Bonjour,
Je rencontre le problème suivant :
J'ai une liste excel avec en colonne A des nom, prenom et numero, a partir de cette liste je souhaite créer automatiquement un dossier par nom du type (nom prenom - numero) en cliquant sur un bouton.
J'ai fait quelque recherche sur le forum et j'ai reussis a avoir le code suivant :
Sub creation_dossier()
Dim x As String, strPath As String
Range([A1], [A20].End(xlUp)).Select
For Each cell In Selection
Rep = cell.Value
On Error Resume Next
strPath = "C:\dossier_perso\" & Rep
x = GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
End If
Next cell
On Error GoTo 0
End Sub
Code que j'ai saisi dans VBA dans la feuille ThisWorkbook
J'ai attribué la macro sur le bouton, mais rien ne se passe.
Je n'ai pas de maitrise du code VBA. Qulqu'un pourrais m'aider ?
Salutations
Je rencontre le problème suivant :
J'ai une liste excel avec en colonne A des nom, prenom et numero, a partir de cette liste je souhaite créer automatiquement un dossier par nom du type (nom prenom - numero) en cliquant sur un bouton.
J'ai fait quelque recherche sur le forum et j'ai reussis a avoir le code suivant :
Sub creation_dossier()
Dim x As String, strPath As String
Range([A1], [A20].End(xlUp)).Select
For Each cell In Selection
Rep = cell.Value
On Error Resume Next
strPath = "C:\dossier_perso\" & Rep
x = GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
End If
Next cell
On Error GoTo 0
End Sub
Code que j'ai saisi dans VBA dans la feuille ThisWorkbook
J'ai attribué la macro sur le bouton, mais rien ne se passe.
Je n'ai pas de maitrise du code VBA. Qulqu'un pourrais m'aider ?
Salutations