Par contre petit souci avec votre macro, ça ne fonctionne pas en xlsx je dois rester en xls, et d'autre part si le dossier principal n'existe pas déjà la macro ne s'exécute pas, ça plante.
Bonjour Kevin, merci pour la vidéo, qui fonctionne parfaitement, mais je souhaiterais ajouter les sous dossiers en fonction d'une colonne par exemple la colonne C. Ma colonne A n'est pas unique et dispose de plusieurs sous-dossiers associés. Dans ton exemple le dossier nom_Prénom aurait des sous dossiers différents en fonction des lignes de la colonne C. Cependant mon code ne prend uniquement la première ligne associée à non prénom mais ne va pas chercher les ligne suivantes pour le m^me nom et prénom. Sub créer_dossier() 'variable' Dim SYSTEME As Worksheet Dim lstrw As Long Dim N_Systeme As String Dim chemin_dossier As String Dim colonne_C As String Dim chemin_sous_dossier As String 'identifier la feuille Set SYSTEME = Worksheets(2) 'dernière ligne lstrw = SYSTEME.Cells(Rows.Count, 1).End(xlUp).Row 'boucle sur les données For i = 4 To lstrw N_Systeme = SYSTEME.Cells(i, 1) colonne_C = SYSTEME.Cells(i, 3) chemin_dossier = "C:\xxx\Documents\Test2\" & N_Systeme & "\" chemin_sous_dossier = chemin_sous_dossier & colonne_C & "\" 'verifier existence du dossier If Dir(chemin_dossier, vbDirectory) vbNullString Then 'dossier existe Else 'cérer le dossier MkDir (chemin_dossier) MkDir (chemin_sous_dossier) End If Next End Sub Merci pour votre retour.
Год назад+1
Bonjour, à voir comme ça et si j'ai bien compris le besoin, je pense qu'il faudrait mettre les lignes suivantes en remplacement : 'verifier existence du dossier If Dir(chemin_dossier, vbDirectory) vbNullString Then 'dossier existe MkDir (chemin_sous_dossier) Else 'cérer le dossier MkDir (chemin_dossier) MkDir (chemin_sous_dossier) End If
Bonjour, merci pou cette vidéo. J'ai appliqué à la lettre, j'ai toujours une erreur de compilation. Le chemin est bon, pas de fautes d'orthographe, c'est hyper frustrant. Vous savez d'où ca peut venir? Merci!:)
Год назад
Bonjour, c'est toujours difficile d'identifier pour tout le monde mais si vous avez le message d'erreur et la ligne de code concernée quand vous faites débogage, cela pourrait me permettre de vous aider :)
@ Merci c'est sympa :). je viens de recommencer à tête reposée, je crois que c'est le "-" que j'ai mis à la place du "_" pour nommer les dossiers qui ne marchait pas partout dans le code. Tout est en ordre. merci beaucoup pour votre contribution
Merci pour vos vidéos
Merci d'avance
Par contre petit souci avec votre macro, ça ne fonctionne pas en xlsx je dois rester en xls, et d'autre part si le dossier principal n'existe pas déjà la macro ne s'exécute pas, ça plante.
Bonjour Kevin, merci pour la vidéo, qui fonctionne parfaitement, mais je souhaiterais ajouter les sous dossiers en fonction d'une colonne par exemple la colonne C. Ma colonne A n'est pas unique et dispose de plusieurs sous-dossiers associés. Dans ton exemple le dossier nom_Prénom aurait des sous dossiers différents en fonction des lignes de la colonne C. Cependant mon code ne prend uniquement la première ligne associée à non prénom mais ne va pas chercher les ligne suivantes pour le m^me nom et prénom.
Sub créer_dossier()
'variable'
Dim SYSTEME As Worksheet
Dim lstrw As Long
Dim N_Systeme As String
Dim chemin_dossier As String
Dim colonne_C As String
Dim chemin_sous_dossier As String
'identifier la feuille
Set SYSTEME = Worksheets(2)
'dernière ligne
lstrw = SYSTEME.Cells(Rows.Count, 1).End(xlUp).Row
'boucle sur les données
For i = 4 To lstrw
N_Systeme = SYSTEME.Cells(i, 1)
colonne_C = SYSTEME.Cells(i, 3)
chemin_dossier = "C:\xxx\Documents\Test2\" & N_Systeme & "\"
chemin_sous_dossier = chemin_sous_dossier & colonne_C & "\"
'verifier existence du dossier
If Dir(chemin_dossier, vbDirectory) vbNullString Then
'dossier existe
Else
'cérer le dossier
MkDir (chemin_dossier)
MkDir (chemin_sous_dossier)
End If
Next
End Sub
Merci pour votre retour.
Bonjour, à voir comme ça et si j'ai bien compris le besoin, je pense qu'il faudrait mettre les lignes suivantes en remplacement :
'verifier existence du dossier
If Dir(chemin_dossier, vbDirectory) vbNullString Then
'dossier existe
MkDir (chemin_sous_dossier)
Else
'cérer le dossier
MkDir (chemin_dossier)
MkDir (chemin_sous_dossier)
End If
@ merci !
Bonjour, merci pou cette vidéo. J'ai appliqué à la lettre, j'ai toujours une erreur de compilation. Le chemin est bon, pas de fautes d'orthographe, c'est hyper frustrant. Vous savez d'où ca peut venir? Merci!:)
Bonjour, c'est toujours difficile d'identifier pour tout le monde mais si vous avez le message d'erreur et la ligne de code concernée quand vous faites débogage, cela pourrait me permettre de vous aider :)
@ Merci c'est sympa :). je viens de recommencer à tête reposée, je crois que c'est le "-" que j'ai mis à la place du "_" pour nommer les dossiers qui ne marchait pas partout dans le code. Tout est en ordre. merci beaucoup pour votre contribution
Merci !