J'ai 2 fichiers Excel.
Dans l'un, je vais chercher une date ("03/02/2010") que je transfère dans
l'autre classseur
en utilisant cells.value (cellule du fichier2) =cells.value (valeur du
fichier1)
Seulement la date dans la cellule du fichier 2 est toujours "02/03/2010" et
non pas "03/02/2010".
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour,
Je n'ai pas vu toute ta procédure, mais tu peux utiliser .Value2 comme ceci :
'--------------------------------- Sub test1()
Dim T As Variant With ThisWorkbook With .Worksheets("NomFeuille") T = .Range("J1:J10").Value2 End With End With
With Workbooks("MonClasseur.xls").Worksheets("MaFeuille").Range("A1").Resize(UBound(T, 1)) .NumberFormat = "DD/MM/YY" .Value = T End With End Sub '---------------------------------
Je n'ai pas vu toute ta procédure, mais tu peux utiliser .Value2
comme ceci :
'---------------------------------
Sub test1()
Dim T As Variant
With ThisWorkbook
With .Worksheets("NomFeuille")
T = .Range("J1:J10").Value2
End With
End With
With Workbooks("MonClasseur.xls").Worksheets("MaFeuille").Range("A1").Resize(UBound(T, 1))
.NumberFormat = "DD/MM/YY"
.Value = T
End With
End Sub
'---------------------------------
Je n'ai pas vu toute ta procédure, mais tu peux utiliser .Value2 comme ceci :
'--------------------------------- Sub test1()
Dim T As Variant With ThisWorkbook With .Worksheets("NomFeuille") T = .Range("J1:J10").Value2 End With End With
With Workbooks("MonClasseur.xls").Worksheets("MaFeuille").Range("A1").Resize(UBound(T, 1)) .NumberFormat = "DD/MM/YY" .Value = T End With End Sub '---------------------------------
Si ta date est vraiment entre guillemets "03/02/2010", alors cette dernière est perçue par Excel comme du texte. Pour la recopier vers une autre cellule, tu devrais utiliser une fonction de conversion comme "Cdate()"
Dim MaDate As string MaDate = "03/02/2010"
Range("G1").value = cdate(MaDate)
La fonction de conversion utilise le format que tu as défini dans le panneau de configuration de Windows.
MichD -------------------------------------------- "michdenis" a écrit dans le message de groupe de discussion : ij65gp$qs9$
Bonjour,
Je n'ai pas vu toute ta procédure, mais tu peux utiliser .Value2 comme ceci :
'--------------------------------- Sub test1()
Dim T As Variant With ThisWorkbook With .Worksheets("NomFeuille") T = .Range("J1:J10").Value2 End With End With
With Workbooks("MonClasseur.xls").Worksheets("MaFeuille").Range("A1").Resize(UBound(T, 1)) .NumberFormat = "DD/MM/YY" .Value = T End With End Sub '---------------------------------
Si ta date est vraiment entre guillemets "03/02/2010", alors
cette dernière est perçue par Excel comme du texte. Pour la
recopier vers une autre cellule, tu devrais utiliser une
fonction de conversion comme "Cdate()"
Dim MaDate As string
MaDate = "03/02/2010"
Range("G1").value = cdate(MaDate)
La fonction de conversion utilise le format que tu as défini
dans le panneau de configuration de Windows.
MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de discussion : ij65gp$qs9$1@speranza.aioe.org...
Bonjour,
Je n'ai pas vu toute ta procédure, mais tu peux utiliser .Value2
comme ceci :
'---------------------------------
Sub test1()
Dim T As Variant
With ThisWorkbook
With .Worksheets("NomFeuille")
T = .Range("J1:J10").Value2
End With
End With
With Workbooks("MonClasseur.xls").Worksheets("MaFeuille").Range("A1").Resize(UBound(T, 1))
.NumberFormat = "DD/MM/YY"
.Value = T
End With
End Sub
'---------------------------------
Si ta date est vraiment entre guillemets "03/02/2010", alors cette dernière est perçue par Excel comme du texte. Pour la recopier vers une autre cellule, tu devrais utiliser une fonction de conversion comme "Cdate()"
Dim MaDate As string MaDate = "03/02/2010"
Range("G1").value = cdate(MaDate)
La fonction de conversion utilise le format que tu as défini dans le panneau de configuration de Windows.
MichD -------------------------------------------- "michdenis" a écrit dans le message de groupe de discussion : ij65gp$qs9$
Bonjour,
Je n'ai pas vu toute ta procédure, mais tu peux utiliser .Value2 comme ceci :
'--------------------------------- Sub test1()
Dim T As Variant With ThisWorkbook With .Worksheets("NomFeuille") T = .Range("J1:J10").Value2 End With End With
With Workbooks("MonClasseur.xls").Worksheets("MaFeuille").Range("A1").Resize(UBound(T, 1)) .NumberFormat = "DD/MM/YY" .Value = T End With End Sub '---------------------------------
Bonjour, ne serait qu'un pb de format ? la source serait en jj/mm/aaaa et le résultat en serait mm/jj/aaaa ?
Michel
"Al" a écrit dans le message de news: 4d56924e$0$19723$
Bonjour à tous,
J'ai 2 fichiers Excel. Dans l'un, je vais chercher une date ("03/02/2010") que je transfère dans l'autre classseur en utilisant cells.value (cellule du fichier2) Îlls.value (valeur du fichier1) Seulement la date dans la cellule du fichier 2 est toujours "02/03/2010" et non pas "03/02/2010".
Comment faire pour récupérer la même date ?.....
Merci pour votre aide à tous Al
Bonjour,
ne serait qu'un pb de format ?
la source serait en jj/mm/aaaa et le résultat en serait mm/jj/aaaa ?
Michel
"Al" <al@wanadoo.fr> a écrit dans le message de news:
4d56924e$0$19723$426a74cc@news.free.fr...
Bonjour à tous,
J'ai 2 fichiers Excel.
Dans l'un, je vais chercher une date ("03/02/2010") que je transfère dans
l'autre classseur
en utilisant cells.value (cellule du fichier2) Îlls.value (valeur du
fichier1)
Seulement la date dans la cellule du fichier 2 est toujours "02/03/2010"
et non pas "03/02/2010".
Bonjour, ne serait qu'un pb de format ? la source serait en jj/mm/aaaa et le résultat en serait mm/jj/aaaa ?
Michel
"Al" a écrit dans le message de news: 4d56924e$0$19723$
Bonjour à tous,
J'ai 2 fichiers Excel. Dans l'un, je vais chercher une date ("03/02/2010") que je transfère dans l'autre classseur en utilisant cells.value (cellule du fichier2) Îlls.value (valeur du fichier1) Seulement la date dans la cellule du fichier 2 est toujours "02/03/2010" et non pas "03/02/2010".
