Creation classeur en automatique

[reve24]

est il possible de creer des classeurs en automatique suivant une liste d un ficher d une feuille excel
dans la colonne AA
il y aurait les noms des classeurs a creer
ceux ci serait creer avec macro à l endroit prevu ????

merci de me diriger ??😛

 

[Staple1600]

Re : Creation classeur en automatique

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é ?

 

[reve24]

Re : Creation classeur en automatique

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é ?

Bonjour a tous

des classeurs dans un repertoire donné

 

[Staple1600]

Re : Creation classeur en automatique

Re

a) Des classeurs vides ? (avec combien de feuilles ?)

b) à partir d'un onglet modéle ?

et quel est le chemin et le nom de ton répertoire ?

 

[Staple1600]

Re : Creation classeur en automatique

Re

Essayes cette macro par exemple
(ici les noms sont dans la colonne A)

Sub Crer_Classeurs()
Dim nWB As Workbook, chemin$
chemin = "C:\Temp\"
With ThisWorkbook.Sheets(1)
    For i = 1 To .[a65536].End(xlUp).Row
    Set nWB = Workbooks.Add
    nWB.Close savechanges:=True, _
    Filename:=chemin & .Cells(i, 1).Text & ".xls"
    Set nWB = Nothing
    Next
End With
End Sub

 

[CBernardT]

Re : Creation classeur en automatique

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

 

[reve24]

Re : Creation classeur en automatique

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

MERCI , BONNE DEMARCHE
Ceci pourrait il s appliquer à des DOSSIERS .

sur la meme base creer des dossiers en C:\Users\user\Desktop

 

[Staple1600]

Re : Creation classeur en automatique

Re, Bonsoir CbernardT

reve24: tu as essayé mon code ou pas ?

En tout cas tu n'as pas répondu à mes question de 19h24 🙄

 

[CBernardT]

Re : Creation classeur en automatique

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

 

[reve24]

Re : Creation classeur en automatique

😕

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

😕 Excuse mais il me semble qu il y a un petit probleme😕

 

[CBernardT]

Re : Creation classeur en automatique

Re,

La syntaxe est bonne !

Vérifie bien l'adresse du répertoire. Utilise l'enregistreur de macro pour ouvrir un fichier présent dans le répertoire où tu veux enregistrer ces fichiers.

 

[Staple1600]

Re : Creation classeur en automatique

Re

reve24
C'est volontaire tes non réponses à mes questions ??

Cela donne vraiment envie de te donner un coup de main pffff

 

[reve24]

Re : Creation classeur en automatique

a) Des classeurs vides ? (avec combien de feuilles ?) vide oui 2 feuilles

b) à partir d'un onglet modéle ? oui

et quel est le chemin et le nom de ton répertoire ?
C:\Documents and Settings\PM\Bureau

Excuses moi
et merci pour ton aide .🙂

 

[reve24]

Re : Creation classeur en automatique

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 ???

 

[CBernardT]

Re : Creation classeur en automatique

Bonjour,

Je ne peux que te redire de vérifier le chemin de ton emplacement d'enregistrement. N'oublie pas les antislashs.