Besoin d'aide pour la suite de ce code Résolu/Fermé

Question

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.

ThauTheme · Answer

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

phil · Answer

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

phil · Answer

Re ThauTheme,
Forum, 

C'est nickel !
Merci pour le coup de main

Cordialement

Phil

Besoin d'aide pour la suite de ce code

3 réponses

Discussions similaires