A voir également:
- Renommer des feuilles et l appliquer à tous les classeurs
- Renommer des fichiers en masse - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Renommer iphone - Guide
- Appliquez à tous les paragraphes du document à télécharger, à l’exception des titres et des sous-titres, la mise en forme suivante : - Guide
- Bruler des feuilles de laurier - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
hakim
merci beaucoup Monsieur yg_be pour votre aide précieuse , je suis reconnaissant mais ca n 'a pas marché , mais au moins là j'ai un début de réponse
