Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fonction Filecopy

  • Initiateur de la discussion Initiateur de la discussion Egruat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Egruat

XLDnaute Occasionnel
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 !
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
177
  • Question Question
Microsoft 365 Classeur Disparu
Réponses
2
Affichages
571
Réponses
5
Affichages
867
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…