Discussion :

[bravojr]

Bonjour à tous,

voilà mon problème :
j'aimerai qu'à l'ouverture de mon fichier Excel, je convertisse automatiquement d'autres fichiers xls dans le format excel 5.0 / 95. localiser sur un autre disque dur.

de plus avec la fonction: FileDateTime j'ai réussi a avoir la date de dernière modification de ces fichiers... mais est il possible d'obtenir la date de création... qui me serai plus utile...

merci de vos réponses

[fring]

Bonjour,

Le bout de code ci-dessous devrait t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
Dim Wbk As Workbook, Chemin As String, Nom As String
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Chemin = "D:\Temp\" '<-- chemin complet
Nom = "combobox1.xls" '<-- nom du classeur
 
'ouverture du classeur et initialisation
'de la variable Wbk qui représentera ce classeur
Set Wbk = Workbooks.Open(Chemin & Nom)
 
'date de création du classeur
MsgBox "Le classeur " & Nom & " a été créé le " & Wbk.BuiltinDocumentProperties("creation date").Value
 
'sauvegarde du classeur au format Excel5 et fermeture de celui-ci
Nom = Left(Nom, Len(Nom) - 4) & "-XL5.xls"
Wbk.SaveAs Filename:=Chemin & Nom, FileFormat:=xlExcel5
Wbk.Close True
 
Application.DisplayAlerts = True
Application.ScreenUpdating = False
End Sub

Cdlt

[bravojr]

merci de ta réponse rapide,
c exactement ce que je voulais

encore merci