Fonction Filecopy

[Egruat]

Bonjour,

Je souhaite copier un fichier en:
. le sélectionnant sans l'ouvrir
. le renommant dans un autre dossier
. changer le format (passage de "xls." en ".xlsm")

La fonction FileCopy "old file", "new file" fonctionne bien mais elle copie malheureusement le même format .xls

Y-aurait-il la même fonction mais permettant de spécifier le format Excel désiré pour le nouveau fichier ?

Merci de votre aide !

 

[david84]

Re : Fonction Filecopy

Bonsoir,
regarde ce lien et teste en passant par la méthode CopyFile de l'objet File System Object (cf. p 14 du doc).
A+

 

[Staple1600]

Re : Fonction Filecopy

Bonsoir à tous

changer le format (passage de "xls." en ".xlsm")

Sans ouvrir le fichier au préalable, je ne crois cela possible.

Glané sur le net
Code VBA:
'Bernie Deitrick
'MS Excel MVP
Sub TransformAllXLSFilesToXLSM()
Dim myPath As String
myPath = "C:\Excel\"
WorkFile = Dir(myPath & "*.xls")
Do While WorkFile <> ""
If Right(WorkFile, 4) <> "xlsm" Then
Workbooks.Open FileName:=myPath & WorkFile
ActiveWorkbook.SaveAs FileName:= _
myPath & WorkFile & "m", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close
End If
WorkFile = Dir()
Loop
End Sub

 

[Egruat]

Re : Fonction Filecopy

Merci à vous tous !