Xipotera
XLDnaute Nouveau
Bonjour, j'ai un classeur avec plusieurs feuilles (tarif clients), j'ai une macro qui se charge de copier chaque feuille dans un classeur séparé. Jusqu'ici pas de problème.
Lorsque je saisie une date dans le classeur pricncipal (par exemple 09/05/2011) lors d la copie celle-ci se convertie en 05/09/2011.
j'ai bien tenté un bidoulliage dans le style :
Mais ça ne me convient pas du tout. quelqu'un aurait une solution?
Code:
Sub CreerOffres()
Dim nbSemaine As String
nbSemaine = Cells(1, 1)
Repertoire = "c:\SEM." & nbSemaine
MkDir Repertoire
For Each sh In ActiveWorkbook.Sheets
sh.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveAs Filename:=Repertoire & "\UNIFLEURS - PHOTOS SEM" & nbSemaine & " " & sh.Name, FileFormat:=-4143, CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub
Lorsque je saisie une date dans le classeur pricncipal (par exemple 09/05/2011) lors d la copie celle-ci se convertie en 05/09/2011.
j'ai bien tenté un bidoulliage dans le style :
Code:
Range("C1").Select
Selection.NumberFormat = "mm/dd/yyyy"
Mais ça ne me convient pas du tout. quelqu'un aurait une solution?