Bonjour,
La macro me permet d'ouvrir dans un repertoire les fichiers excel un à un, pour ensuite copier l'onglet et le sauvegarder dans un autre fichiers excel.
Sachant que j'ai plusieurs types de fichier excel à ouvrir ("*.xls", "*.xlsx", "*.xlsm"), je ne sais pas indiquer à la macro, d'ouvrir uniquement les fichiers ayant ces extentions "*.xls", "*.xlsx", "*.xlsm".
Merci de votre aide.
La macro me permet d'ouvrir dans un repertoire les fichiers excel un à un, pour ensuite copier l'onglet et le sauvegarder dans un autre fichiers excel.
Sachant que j'ai plusieurs types de fichier excel à ouvrir ("*.xls", "*.xlsx", "*.xlsm"), je ne sais pas indiquer à la macro, d'ouvrir uniquement les fichiers ayant ces extentions "*.xls", "*.xlsx", "*.xlsm".
Merci de votre aide.
Code:
Sub Enregistrer_onglet()
Dim Chemin As String
Dim Fichier As String
Dim i As Long
Application.DisplayAlerts = False
Chemin = "C:\Traités\"
Fichier = Dir(Chemin & "*.xls", "*.xlsx", "*.xlsm")
Do While Fichier <> ""
For i = 1 To Sheets.Count
Workbooks.Open Filename:=Chemin & Fichier
Sheets("Tableau").Copy
TempFilePath = "C:\DATA\"
TempFileName = Workbooks(Fichier).Worksheets("Fiche").Range("F19") & "_" & Workbooks(Fichier).Worksheets("Fiche").Range("F7") & "_E_" & Format(Now, "yyyymmdd") & "_A_MAJ00_01"
FileExtStr = ".xlsx" '
ActiveWorkbook.SaveAs Filename:=TempFilePath & TempFileName & FileExtStr
ActiveWorkbook.Close
Workbooks(Fichier).Close SaveChanges:=False
Fichier = Dir
Next i
Loop
Application.DisplayAlerts = True
End Sub