Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Petit probleme de macros

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

teodormircea

XLDnaute Occasionnel
Bonjour

Je tourne autour de ce code et j'ai du mal a trouver ou ça merde, une petite aide ça seras bien venue
Code: 
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
 

Pièces jointes

Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Petit probleme de macros

je bute sur ce code

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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Listbox click
Réponses
10
Affichages
669
ChTi160
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Question Question
XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )
2
Réponses
15
Affichages
599
Dranreb
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
337
patricko-13
P
R
  • Question Question
XL 2019 Extraire propriété d'un mail (Outlook eml)
Réponses
4
Affichages
793
re4
R
C
  • Résolu(e)
XL 2021 Sauvegarder répertoire/sous répertoire un peu volumineux 2 Go
Réponses
7
Affichages
479
Claudinedu13
C
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
523
vgendron
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
4 K
saidoush
S
EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
533
oguruma
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
700
ChTi160
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
650
JJ69
J
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
922
Mody200
M
F
  • Question Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
2 K
Felipe54
F
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
942
Liner77
L
T
  • Question Question
Microsoft 365 Ouvrir un fichier en fonction de sa date
Réponses
1
Affichages
504
sylvanu
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
978
Excellearning
E
  • Question Question
XL 2021 comment convertir et enregistrer en pdf tout en conservant la date d'une textbox vba
Réponses
2
Affichages
663
AugusteP
  • Question Question
Microsoft 365 Erreur d'exécution 5 argument ou appel de procédure incorrect avec ActiveSheet.ChartObjects.Add()
Réponses
12
Affichages
965
pmfontaine
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…