Petit probleme de macros

[teodormircea]

Bonjour

Je tourne autour de ce code et j'ai du mal a trouver ou ça merde, une petite aide ça seras bien venue

Private Sub CommandButton3_Click()
    Workbooks.Open ActiveWorkbook.Path & "" & ListBox1
End Sub

Private Sub UserForm_Initialize()
    Dim fso As FileSystemObject
    Dim fld As Folder
    Set fso = New FileSystemObject
    Set fld = fso.GetFolder(ActiveWorkbook.Path)
    For Each fil In fld.Files
        If UCase(Right(fil.Name, 3)) = "XLS" Then
            ListBox1.AddItem fil.Name
        End If
    Next
End Sub

Merci pour votre aide

 

[PascalXLD]

Re : Petit probleme de macros

Bonjour

il manque un \

Workbooks.Open ActiveWorkbook.Path & "\" & ListBox1

 

[teodormircea]

Re : Petit probleme de macros

Merci pour ton aide
J'ai encore besoin de ton aide .
Après avoir ouvert les fichiers , je voudrais choisir, des ces fichiers des feuillets dans une list box, deux a vrais dire , une pour chaque fichier ouvert.
Je me suis inspire d'un code sur le net mais ça marche pas.Est ce que on peut afficher le nom du feuillet avec le nom du fichier ouvert.
Le code est suppose montre que dans un seul list box.
Merci de ton aide.

 

[teodormircea]

Re : Petit probleme de macros

Oui en effet il manque le fichier
Ah j'ai oublie de le mettre
Voila , je voudrais sélecter dans le 2 comboboxes des feuillets des deux fichiers ouverts SOURCE et TARGET

Une fois que j'ai choisit ces deux feuillets , choisir pour chaque feuillet une colonne .
merci pour ton aide

 

[teodormircea]

Re : Petit probleme de macros

je bute sur ce code

 Sub GET_SHEETS()
    Dim ws1 As Worksheet
    For Each ws In ActiveWorkbook.Names("SOURCE") 'ici  il faut mettre le nom du fichier SOURCE

        ListBox2.AddItem (ws.Name)
    Next ws
End Sub

 

[PascalXLD]

Re : Petit probleme de macros

Re

Pas trop le temps de regarder mais à vue de nez essaies plutot

For Each ws In Workbooks(SOURCE)

 

[teodormircea]

Re : Petit probleme de macros

Bonjour,
J'avance a petit pas sur mon projet .Mais la je suis vraiment bloque.
Voila ce que j'ai fait jusqu'a maintenat.

Alors je peux puvrir deux fichier , ca marche
Après je veux sélecter un range sur 2 feuillet des 2 fichiers ouverts, puis faire un update pour sélecter des colonnes.