Transformer un string en date

[Claudy]

Bonjour....
dans une procédure, j'utilise ceci:
Range('F' & cel.Row) = Trim(Mid(cel.Value, 48, 10))
Ce qui me renvoit une chaine de caractère que je voudrais transformer en date!
Comment faire, quelle autre bout de code à rajouter?
Merci d'avance,
Claudy

 

[PascalXLD]

Bonjour

à vue de nez essaies ainsi

Range('F' & cel.Row) = CDate(Trim(Mid(cel.Value, 48, 10)))

 

[Robert]

Bonjour Claudy, Pascal, bonjour le forum,

Ha ce Pascal !!! Il transforme les strings en date... Heu moi j'ai un vieux slip (mais propore hein !). Tu peux pas me le transformer en figue sèche...? C'est pour une corbeille de fruits secs pour Noël. Dattes, Figues et pâte d'amande... Spécial régime...

 

[Claudy]

Merci l'aventurier....
mais j'avais déjà essayé cela avant de poster....
Ca va po!! 🙁
A+
Claudy

 

[PascalXLD]

Re

Pas de problème Robert

Dim VieuxSlip as Object

MonFruit=CFigueSèche(VieuxSlip)

Bonne journée 🙂

 

[PascalXLD]

Re

Peux-tu envoyer un bout du fichier pour faire des tests STP

 

[Claudy]

OK, ci joint fichier
A+
Merci [file name=Fideliotest.zip size=9931]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fideliotest.zip[/file]

 

[PascalXLD]

RE

Bah avec le cdate chez moi c'est passé

Je t'envoie [file name=Fideliotest_20051212115755.zip size=9751]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fideliotest_20051212115755.zip[/file]

 

[Claudy]

ok, merci ça fonctionne maintenant....
Bonne journée
Claudy