Renommage en masse d'onglets par le nom des fichiers (3000 fichiers)

[Vincev]

Bonjour,

Je suis nouveau sur le forum et pense bien y revenir car il me tarde de savoir écrire des macro Excel. Voici ma colle :

Je souhaite créer une série de fichiers Excel (vierges) nommés comme suit : de "0001.xls" à "2999.xls", ces fichiers comportant chacun un seul onglet nommé "0001" à "2999" respectivement.

La première étape ne m'a posé aucun soucis à l'aide d'un logiciel de renommage de fichier en masse. Ca coince pour la suite....

Merci pour vos réponses,

Vincent

 

[Compte Supprimé 979]

Re : Renommage en masse d'onglets par le nom des fichiers (3000 fichiers)

Bonsoir Vincev et bienvenue sur ce forum

Voici le code à placer dans un module de ton classeur modèle

Sub CreationFichiers()
  Dim Ind As Integer, VPath As String
  ' Je souhaite créer une série de fichiers Excel (vierges) nommés comme suit : de "0001.xls" à "2999.xls",
  ' ces fichiers comportant chacun un seul onglet nommé "0001" à "2999" respectivement
  ' Chemin d'enregistrement = celui de ce classeur
  VPath = ThisWorkbook.Path & "\"
  ' Créer et enregistrer 3000 fichiers
  For Ind = 1 To 2999
    Sheets("Feuil1").Copy
    Sheets("Feuil1").Name = Format(Ind, "0000")
    ActiveWorkbook.SaveAs VPath & Format(Ind, "0000") & ".xls"
    ActiveWorkbook.Close
  Next Ind
End Sub

A+

 

[Vincev]

Re : Renommage en masse d'onglets par le nom des fichiers (3000 fichiers)

Impeccable Bruno, j'ai seulement pu tester aujourd'hui. Je te remercie !