Besoin d'aide pour la suite de ce code
Résolu
phil
-
phil -
phil -
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
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. |
3 réponses
-
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
-
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 -
