Sujet Précédent Sujet Suivant

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

A voir également:

3 réponses

Réponse 1 / 3
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
Réponse 2 / 3
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour 

Sub creer_dossier()
MkDir ThisWorkbook.Path & "\" & Cells(Range("A65536").End(xlUp).Row, 1)
End Sub
0
Réponse 3 / 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