Besoin d'aide pour la suite de ce code
Résolu/Fermé
A voir également:
- Besoin d'aide pour la suite de ce code
- Code asci - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code blocks free - Télécharger - Langages
- Code windows 10 - Guide
3 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
11 avril 2019 à 11:42
11 avril 2019 à 11:42
Bonjour Phil, bonjour le forum,
Si j'ai bien compris , essaie comme ça :
Si j'ai bien compris , essaie comme ça :
Private repertoire As String Private Sub UserForm_Initialize() Dim fichierorigine As String, nf As String ' recherche du chemin complet du fichier contenant le MENU fichierorigine = Workbooks(ActiveWorkbook.Name).FullName CB_fichier.Visible = True ' repertoire du fichier MENU repertoire = "D:\WILLY\Devis-Factures-2019\DEVIS-EXCEL\" nf = Dir(repertoire & "*.xlsm") 'premier fichier xls tel qu'exporté de la MCT Do While nf <> "" If nf <> "FichierANePasPrendreEnCompte" Then Me.CB_fichier.AddItem nf End If nf = Dir Loop End Sub Private Sub CB_fichier_Change() Application.Workbooks.Open (repertoire & Me.CB_fichier.Value) End Sub
Bonjour ThauTheme,
Forum,
Merci pour ta réponse ça devrait coller il faut que je regarde pour placer çà dans le reste de mon code.
je dois verifier quelques parametre de mon user.
Cordialment
Phil
Forum,
Merci pour ta réponse ça devrait coller il faut que je regarde pour placer çà dans le reste de mon code.
je dois verifier quelques parametre de mon user.
Cordialment
Phil
