Bonjour,

Je souhaite enregistrer une colonne excel de date dans un fichier texte.
Pour resoudre le probleme de date francaise - americaine, j utilise la fonction format.

J avais un probleme pour les 12 premiers que je resouds comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
                While Not n = 31
                    If n <= 12 Then
                        Cells(i, "A") = n & "-" & mes & "-" & Anom
                    Else
                        Cells(i, "A") = mes & "-" & n & "-" & Anom
                    End If
                    Cells(i, "A") = Format(Cells(i, "A"), "dd/mm/yyyy")
                    i = i + 1
                    n = n + 1
                Wend
Mon probleme est lorsque je veux sauver le fichier et fermer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
                    ActiveWorkbook.SaveAs Filename:="D\text.txt" _
                    , FileFormat:=xlText, CreateBackup:=False
- Si je mets
Code : Sélectionner tout - Visualiser dans une fenêtre à part
workbook.close
il ne me garde pas les bonnes dates...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
1/10/1950
1/11/1950	
1/12/1950	
13/01/1950	
14/01/1950
meme avec ma condition...

- Si je ne le mets pas
Excel me demande si je souhaite garder les changements efectués, et conserver le format text
et si je reponds oui aux 2 : c´est tout bon! (je veux avec les 0 : 01/02/2006 exactement)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
10/01/1950	
11/01/1950	
12/01/1950	
13/01/1950
Mon probleme est que je ne comprends pas pourquoi avec le saveas text il ne me garde pas les infos... je voudrais que ces reponses "ok" soient automatiques mais je ne vois pas comment...

pour votre aide!