Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Création de dossier en automatique

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gildas lechat

XLDnaute Occasionnel
Bonjour à tous,

Voici un nouveau problème à vous soumettre.
J'ai une série de dossier à créer avec un contenue identique.
Le nombre de dossier est important et surtout la création de dossier récurente
J'aimerai pouvoir créer les dossiers comme expliqué dans le fichier joint.
Merci d'avance de votre aide
Gildas
 

Pièces jointes

Trier par date Trier par votes
Re : Création de dossier en automatique

bonjour gildas,

voici un essai (pas testé)

Code: 
Private Sub CommandButton1_Click()
Dim nouveauDossier As String

'si ce n'est pas un chiffre qui a été saisi dans le champ, quitter la macro
If Not IsNumeric(TextBox1.Text) Then Exit Sub

'créer un dossier "Origine" (ThisWorkbook.Path) + "textbox"
nouveauDossier = ThisWorkbook.Path & "\" & CInt(TextBox1.Text)
CreateObject("Scripting.FileSystemObject").CreateFolder nouveauDossier

'copier le fichier "a-original1.XLS"
CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.Path & "\a-original1.XLS", nouveauDossier & "\a-" & CInt(TextBox1.Text) & ".xls"

End Sub

Private Sub CommandButton2_Click()
Dim nouveauDossier As String, i As Integer

'si ce ne sont pas des chiffres qui ont été saisis dans les champ, quitter la macro
If Not IsNumeric(TextBox2.Text) Then Exit Sub
If Not IsNumeric(TextBox3.Text) Then Exit Sub

For i = CInt(TextBox2.Text) To CInt(TextBox3.Text)

    'créer un dossier "Origine" (ThisWorkbook.Path) + i
    nouveauDossier = ThisWorkbook.Path & "\" & i
    CreateObject("Scripting.FileSystemObject").CreateFolder nouveauDossier
    
    'copier le fichier "a-original1.XLS"
    CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.Path & "\a-original1.XLS", nouveauDossier & "\a-" & i & ".xls"

Next i

End Sub


a+
 
Vote positif 0 Vote négatif
Re : Création de dossier en automatique

Bonjour tout le monde,

J'ai inséré le code ci dessus dans la macro.
le code ci dessus semble comporter des erreurs ou je l'ai mal inséré...
je joint les fichiers zipper.
(les explications de l'action sont joint au premier message)
Si quelqu'un peu m'aider..😕

Merci
Gildas
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Création de dossier en automatique

bonjour gildas,


tu as oublié d'enlever la protection sur le projet VBA de ton classeur..
Sinon, vu la "structure" des tes fichier-dossier, essaye avec ces modifs :

Code: 
Private Sub CommandButton1_Click()
Dim nouveauDossier As String

'si ce n'est pas un chiffre qui a été saisi dans le champ, quitter la macro
If Not IsNumeric(TextBox1.Text) Then Exit Sub

'créer un dossier "Origine" (ThisWorkbook.Path) + "textbox"
nouveauDossier = ThisWorkbook.Path & "\" & CInt(TextBox1.Text)
CreateObject("Scripting.FileSystemObject").CreateFolder nouveauDossier

'copier le fichier "a-original1.XLS"
CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.Path & "[B][COLOR=Red]\Original[/COLOR][/B]\a-original1.XLS", nouveauDossier & "\a-" & CInt(TextBox1.Text) & ".xls"

End Sub



Private Sub CommandButton2_Click()
Dim nouveauDossier As String, i As Integer

'si ce ne sont pas des chiffres qui ont été saisis dans les champ, quitter la macro
If Not IsNumeric(TextBox2.Text) Then Exit Sub
If Not IsNumeric(TextBox3.Text) Then Exit Sub

For i = CInt(TextBox2.Text) To CInt(TextBox3.Text)

    'créer un dossier "Origine" (ThisWorkbook.Path) + i
    nouveauDossier = ThisWorkbook.Path & "\" & i
    CreateObject("Scripting.FileSystemObject").CreateFolder nouveauDossier
    
    'copier le fichier "a-original1.XLS"
    CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.Path & "[B][COLOR=Red]\Original[/COLOR][/B]\a-original1.XLS", nouveauDossier & "\a-" & i & ".xls"

Next i

End Sub

a+
 
Vote positif 0 Vote négatif
Re : Création de dossier en automatique

Bonjour à tous,
Bonjour mromain

Le mot de passe est 123 pour accéder au macro..sorry
il y a un mieux, je pense avoir réussi a créer un dossier, mais vide (sans copie du fichier .xls )

J'ai copié le nouveau code. le bloquage de la macro est toujours présente😕

Cela peut peu être t'aider, le chemin source des différents dossier est la suivante 😀:\info travail\Macro\essai

Je joint la macro modifier avec ton code
@+
gildas
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Création de dossier en automatique

re,


tu as un soucis sur une ligne (tu avais du mal copier le code)
remplacer
Code: 
nouveauDossier = ThisWorkbook.Path & " \ " & CInt(TextBox1.Text)
par
Code: 
nouveauDossier = ThisWorkbook.Path & "\" & CInt(TextBox1.Text)
(enlever les espace autour du \)


a+
 
Vote positif 0 Vote négatif
Re : Création de dossier en automatique

Hello,

j'ai un message d'erreur du type :
erreur 6 :dépassement de capacité
l'erreur est situé sur la ligne (après activation du bouton 1) :

nouveauDossier = ThisWorkbook.Path & "\" & CInt(TextBox1.Text)

si quelqu'un peux m'aider..
merci d'avance
Gildas
 
Vote positif 0 Vote négatif
Re : Création de dossier en automatique

Bonjour à tous,

je n'ai pas tout suivi de la discussion mais vu le message d'erreur, comme ta ligne de code contient Cint :
si ton nombre dépasse 65536, c'est trop grand pour un Integer, il faut un Long

bref, essaye de remplacer CInt par CLng
 
Vote positif 0 Vote négatif
Re : Création de dossier en automatique

Merci tototiti 2008

J'avance d'une ligne
le nouveau code erreur est le suivant:
erreur 76 : "chemin d'accès introuvable" sur la ligne suivante:
CreateObject("Scripting.FileSystemObject").CreateFolder nouveauDossier

Le chemin source ou le nouveau dossier doit être créer est le suivant: D:\info travail\Macro\essai

Si vous pouvez m'aider
merci
Gildas
 
Vote positif 0 Vote négatif
Re : Création de dossier en automatique

Bonsoir à tous,

OK ça fonctionne por la création de 1 fichier.

La 2eme partie consite a créer de la même façon des fichier entre 2 nombres;
Exemple : de 50000 a 50005:
Création du fichier 50000, 50001, 50002... 500005.
j'ai un autre message d'erreur du type:
erreur 6 :'dépassement de capacité' sur la ligne en rouge ;


Private Sub CommandButton2_Click()
dossierSource = "D:\info travail\Macro\essai"
fichierSource = "D:\info travail\Macro\essai\Original"
Dim nouveauDossier As String, i As Integer

'si ce ne sont pas des chiffres qui ont été saisis dans les champ, quitter la macro
If Not IsNumeric(TextBox2.Text) Then
MsgBox "erreur de saisi ou pas de référence"
Exit Sub
End If

If Not IsNumeric(TextBox3.Text) Then
MsgBox "erreur de saisi ou pas de référence"
Exit Sub
End If

For i = CLng(TextBox2.Text) To CLng(TextBox3.Text)

'créer un dossier "Origine" (ThisWorkbook.Path) + i
nouveauDossier = dossierSource & "\" & i
CreateObject("Scripting.FileSystemObject").CreateFolder nouveauDossier

'copier le fichier "a-original1.XLS"
CreateObject("Scripting.FileSystemObject").CopyFile fichierSource & "\a-original1.XLS", nouveauDossier & "\a-" & i & ".xls"

Next i

End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Y
  • Résolu(e)
XL 2019 Vérification si dossier existe et création s'il n'existe pas
Réponses
3
Affichages
149
youguybass
Y
  • Question Question
Microsoft 365 Petit souci lors de la création de dossier par Excel
Réponses
6
Affichages
163
patricktoulon
  • Résolu(e)
Autres Excel LTSC Pro 2024. Créer une hiérarchie afin de créer des dossiers et sous-dossiers.
Réponses
12
Affichages
576
patricktoulon
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
552
youguybass
Y
O
  • Question Question
Microsoft 365 Demande de création de fichier rénumérée
Réponses
5
Affichages
419
dysorthographie
D
  • Question Question
XL 2013 Aide à création Fichiers, SMS, envoi
Réponses
0
Affichages
308
DARRIEUX
D
R
  • Question Question
Microsoft 365 Interrompre synchronisation OneDrive d'un dossier ou sous-dossie
Réponses
5
Affichages
706
wDog66
W
  • Résolu(e)
Microsoft 365 vbDirectory ou pas ? ?
2 3
Réponses
37
Affichages
1 K
job75
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
764
mromain
EXCEL : MakeDirP :: Le mkdir -p de linux reconduit en VBA pour la création d'une arborescence de dossier et sous-dossiers
Réponses
4
Affichages
621
oguruma
  • Question Question
Microsoft 365 Macro qui enchaine deshoraires Aller-Retour en fonction de critères
Réponses
10
Affichages
294
bsalv
B
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
523
job75
D
  • Question Question
XL 2021 Création automatique de lien hypertexte
Réponses
4
Affichages
213
Dimitry
D
D
  • Question Question
Microsoft 365 Aide au publipostage et envoi en nombre de fichiers et/ou mails
Réponses
4
Affichages
477
DARRIEUX
D
C
  • Question Question
Microsoft 365 délai traitement dossier en état instruction et par rapport date du jour et date de réception
Réponses
1
Affichages
650
Phil69970
K
  • Question Question
Microsoft 365 Création organigramme automatique
Réponses
2
Affichages
204
sylvanu
S
  • Question Question
Macro associée à un bouton
Réponses
12
Affichages
581
Santino007
S
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
4 K
patricktoulon
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
767
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…