Discussion :

[hbc87]

Bonjour,
je veux capter le contenu de deux cellules, dans la première cellule (A2) : 2010-05-01
dans la deuxième cellule (B2) : 00:02:43

J'utilise la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
string1 = Workbooks(fichier.Name).Worksheets(1).Range("A2").Value
string2 = Workbooks(fichier.Name).Worksheets(1).Range("B2").Value

la valeur dans string1 est 2010-05-01, donc ça fonctionne, par contre la valeur dans string2 est 1.7824020432156E-03 , donc ça ne fonctionne pas pour cette valeur.

Moi ultimement je veux récupérer les deux valeurs, les regrouper dans une valeur et la recoller dans la cellule A2.

Merci de m'aider!

[sabzzz]

bonjour hbc87,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Workbooks(fichier.Name).Worksheets(1)
.Range("A2") = .Range("A2") + .Range("B2")
.Range("A2").NumberFormat = "yyyy/mm/dd hh:mm:ss"
End With

[mercatog]

La première est considérée comme du texte
la deuxième c'est une date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim string1 as string, string2 as string
string1 = Workbooks(fichier.Name).Worksheets(1).Range("A2").Value
string2 = cstr(cdate(Worksheets(1).Range("B2").Value))

[hbc87]

WOW!

Vous êtes incroyables, 5 minutes et déjà 2 réponses!

Merci énormément à vous deux, vos deux solutions fonctionnent!

[Didier Gonard]

Bonjour,

pour en savoir plus et surtout pourquoi, tu peux consulter le tutoriel suivant :

Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier