Menu

Besoin d'aide pour la suite de ce code [Résolu]

-
Bonjour Forum
Besoin d'aide pour la suite de ce code
pour finaliser ce code je voudrai ouvrir le fichier Excel selectionné dans la combobox
je cherche et je ne trouve pas
merci a vous
Private Sub UserForm_Initialize()

Dim fichierorigine As String, nf As String, repertoire 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


Configuration: Windows / Firefox 66.0

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
4490
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
19 avril 2019
229
1
Merci
Bonjour Phil, bonjour le forum,

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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 40635 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ThauTheme
0
Merci
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
Commenter la réponse de phil
0
Merci
Re ThauTheme,
Forum,

C'est nickel !
Merci pour le coup de main

Cordialement

Phil
Commenter la réponse de phil