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

Bonjour à tous

EDITION: je viens de penser à plus simple (à mon sens)
Essayes ce code

Sub CopyClasseurs()
Dim i  As Long, chemin$, fso
chemin = "C:\temp\"
Set fso = CreateObject("Scripting.FilesystemObject")
With ThisWorkbook.Sheets(1)
For i = 1 To .[A65536].End(xlUp).Row
fso.CopyFile chemin & "toto1.xls", chemin & .Cells(i, 1).Text & ".xls"
Next
End With
End Sub

L'intérêt est que tu n'as pas à ouvrir le fichier à copier


Merci d'avoir répondu à mes questions
Tu peux aussi utiliser la fonction Name

voir ci dessous

Name, instruction, exemple

Cet exemple utilise l'instruction Name pour renommer un fichier. Dans le cadre de cet exemple, supposez que les dossiers indiqués existent déjà. Sur le Macintosh, "HD:" désigne le lecteur par défaut et les éléments du chemin d'accès sont séparés par deux points et non par des barres obliques inversées.
Dim OldName, NewName
OldName = "ANCFICH": NewName = "NOUVFICH" ' Définit les noms de fichiers.
Name OldName As NewName ' Renomme le fichier.

OldName = "C:\MONREP\ANCFICH":NewName = "C:\VOTREREP\NOUVFICH"
Name OldName As NewName ' Déplace et renomme le fichier.

 

[Staple1600]

Re : Creation classeur en automatique

Re


Version modifiée avec le chemin en colonne A et le nom du fichier en colonne B

Sub CopyClasseursII()
Dim i  As Long, chemin$, fso
chemin = "C:\temp\"
Set fso = CreateObject("Scripting.FilesystemObject")
With ThisWorkbook.Sheets(1)
For i = 1 To .[A65536].End(xlUp).Row
fso.CopyFile chemin & "toto1.xls", .Cells(i, 1).Text & "\" & .Cells(i, 2).Text & ".xls"
Next
End With
End Sub

1) Tu crées et mets en forme ton fichier Excel à dupliquer
Tu l'enregistres et tu le fermes

2) Tu crées un nouveau classeur tu saisis en colonne A
le chemin des répertoires destination et en colonne B le nom du fichier destination
ex:
C:\Temp\toto1 |fichier1
C:\Temp\toto2 |fichier2

3) Tu copies/colles la macro dans ce fichier nouveau
tu adaptes le nom et le chemin du fichier source et tu lances la macro.


Je viens de tester sous Excel 2000, cela fonctionne sans problème.

 

[LPandre]

Re : Creation classeur en automatique

Bonjour,
je repars de ce post pour la demande suivante :
est il possible en VBA depuis Excel de créer des répertoires Windows à partir d'une liste depuis une feuille Excel.
Autrement écrit : j'ai dans la feuille 1 d'un classeur Excel en colonne A les valeur suivantes :
en A1 : L1
en A2 : L2
etc.
je souhaiterais que la macro créé les répertoires L1, L2, etc. sur le disque c/: dossier_toto /
par exemple.
Par avance merci.

edit : j'ai essayé ce code, mais j'ai un message d'erreur m'indiquant "chemin d'accès introuvable" alors que le répertoire "Monrepertoire exixte bien. :
Sub creat()
On Error Resume Next
Feuil1.Select
For Each c In Range("A1:A3")
MkDir "C:\>Monrepertoire" & c.Value
Next
End Sub

 

[LPandre]

Re : Creation classeur en automatique

Problème résolu. 😀