A voir également:
- Renommer des feuilles et l appliquer à tous les classeurs
- Renommer plusieurs fichiers - Guide
- Renommer iphone - Guide
- Aucune application permettant d'ouvrir ce lien n'a été trouvée ✓ - Forum Wiko
- Comment renommer quelqu'un sur instagram - Forum Instagram
- Un agent immobilier a préparé un diaporama pour présenter une maison à vendre. appliquez la mise en forme de la première diapositive à toutes les autres. quel est le code du portail ? ✓ - Forum Powerpoint
1 réponse
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
Modifié le 13 nov. 2019 à 12:14
Modifié le 13 nov. 2019 à 12:14
bonjour, suggestion:
Private Sub hakim()
Dim fso As Scripting.FileSystemObject, dossier As Scripting.Folder, fichier As Scripting.File, classeur As Workbook
Dim nomfichier As String, extensionfichier As String
Set fso = New Scripting.FileSystemObject
Set dossier = fso.GetFolder(ThisWorkbook.Path)
For Each fichier In dossier.Files
nomfichier = fichier.Name
If nomfichier <> ThisWorkbook.Name Then
extensionfichier = Right(nomfichier, Len(nomfichier) - InStr(nomfichier, "."))
If left(nomfichier, 1) <> "~" And Left(extensionfichier, 3) = "xls" Then
Set classeur = Workbooks.Open(fichier.Path)
classeur.Sheets(1).Name = nomfichier
classeur.Save
Call classeur.Close
End If
End If
Next fichier
End Sub
14 nov. 2019 à 17:50