Traitement fichier excel VB

typhoon676 -  
 typhoon676 -
Bonjour,

Je dois faire un traitement VB d'un fichier excel, mais je n'y connais rien!!
J'ai fouillé sur internet mais je n'ai trouvé aucune réponse intéressante, j'aurai besoin de vos lumière, svp.
Voilà je voudrais créer un sous-dossier à chaque fois q'une cellule est différente dans la colonne A.
Exemple: colonne A = Nom d'Agent, je voudrais pour chaque agent créer un sous dossier.

Merci de vos réponses

3 réponses

  1.
    tsunamidream Messages postés 283 Statut Membre 59
     
    Bonjour,

    Voici le code que je vous ai fait : 

    Dim tableau() As Variant
Dim finded As Boolean
Dim currentIndex As Variant
Dim path As Variant

Sub Bouton1_Cliquer()

path = "Mettre le chemin du dossier"

i = 1
Do While Feuil1.Cells(i, 1) <> ""
    i = i + 1
Loop
ReDim tableau(i)

i = 1
currentIndex = 0
Do While Feuil1.Cells(i, 1) <> ""
finded = False
    For j = LBound(tableau) To UBound(tableau)
        If tableau(i) = Feuil1.Cells(i, 1) Then
            finded = True
        End If
    Next j
    
    If finded = False Then
        tableau(currentIndex) = Feuil1.Cells(i, 1)
        MkDir (path + Feuil1.Cells(i, 1))
    End If
    
    i = i + 1
Loop


    Cordialement,
    1
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour 

    Sub creer_dossier()
MkDir ThisWorkbook.Path & "\" & Cells(Range("A65536").End(xlUp).Row, 1)
End Sub

    0
  3. typhoon676
     
    Merci michel_m et tsunamidream pour vos réponse,

    tsunamidream quand j'exécute ton code j'ai une erreur qui apparait pourtant j'ai bien mis le chemin de mon fichier, voilà l'erreur:

    Ligne 1
    Caractère 15
    Fin d'instruction attendu
    code: 800A0401

    Merci
    0