Creation classeur en automatique

Staple1600 à dit:

Bonsoir


Est-il possible de commencer ton message par un petit bonjour ? 🙄

Sinon oui c'est possible

Tu veux créer des onglets dans un classeur ou créer des classeurs dans un répertoire donné ?

Cliquez pour agrandir...

CBernardT à dit:

Bonsoir à tous,

Un exemple de fichier qui :

1- boucle sur les noms des classeurs en Colonne A
2- crée des classeurs d'après la feuille modele
3- enregistre le nouveau classeur au nom souhaité dans le répertoire du classeur contenant la macro

Cliquez pour agrandir...

CBernardT à dit:

Re,

Essaye cette macro :

Sub EnregistrerClasseurs()
Dim Repertoire As String, NomClasseur As String
Dim Derlig As Integer, i As Integer, Chemin As String
' Désactivation de l'affichage
Application.ScreenUpdating = False
' Ici chemin du classeur actif contenant la macro
Repertoire = "C:\Users\user\Desktop\"
' Boucle sur les noms contenus dans la colonne A
With Sheets("Base")
Derlig = .Range("A65536").End(xlUp).Row
For i = 1 To Derlig
' Définition du nom du classeur
NomClasseur = .Cells(i, 1) & ".xls"
' Création du classeur d'après la feuille "modèle"
Sheets("Modele").Copy
'Enregistrement du classeur
Chemin = Repertoire & NomClasseur
ActiveWorkbook.SaveAs Filename:=Chemin
ActiveWorkbook.Close
Next i
End With
End Sub

Cliquez pour agrandir...

CBernardT à dit:

Re,

Essaye cette macro :

Sub EnregistrerClasseurs()
Dim Repertoire As String, NomClasseur As String
Dim Derlig As Integer, i As Integer, Chemin As String

😡Le chemin est le suivant

\\Srv2003\bureautique\Traçabilité

mais si je mets en colonne AA
A01
A02
A03
Cela ne crée pas des dossiers au chemin indiqué .

????? 😡 est ce normal ???

Cliquez pour agrandir...