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. |
A voir également:
- Besoin d'aide pour la suite de ce code
- Code ascii - Guide
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
3 réponses
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
