Nommer automatiquement des fichiers excels
Bonjour à tous
je souhaite sélectionner des fichiers excels et changer leurs nominations, je vous transmets une partie de macro que je commence à faire (fichier changement nom fichiers excel), mais je bloque.
la nomination actuelle (fichier OT150.CVI Echangeur_ARK2020 rev00) n'est pas bonne, les noms des fichiers doivent être sous cette forme:
OT_(cellule AA2 du fichier OT...)_(cellule D5 du fichier OT...)_ARK2020rev00
La macro passe d'un fichier à un autre.
Merçi pour tt aide.
Voici le code avec la partie manquante, pour pouvoir changer le nom de fichiers excels automatiquement
Sub Changement_nom_fichier_excel()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
Folder = .SelectedItems(1)
End With
File = Dir(Folder & "\", vbReadOnly)
Application.ScreenUpdating = False
Do While File <> ""
Workbooks.Open Filename:=Folder & "\" & File, _
UpdateLinks:=False
Sheets("travaux").Activate
' *************code pour changer nom de fichier*************
ActiveWorkbook.Close (SaveChanges = True)
File = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Tous les noms ont été modifiés.", vbOKOnly + vbInformation
End Sub