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

Vincev · 25 Janvier 2012

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 · 26 Janvier 2012

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

Code:

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 · 31 Janvier 2012

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 !

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

Vincev

Guest

Compte Supprimé 979

Guest

Vincev

Guest

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

Vincev

Guest

Compte Supprimé 979

Guest

Vincev

Guest

Privacy & Transparency

Privacy & Transparency