Besoin d'aide pour la suite de ce code

Résolu

phil -
phil - 11 avril 2019 à 15:51

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.

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

Réponse 1 / 3

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

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

Réponse 2 / 3

phil

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

Réponse 3 / 3

phil

Re ThauTheme,
Forum,

C'est nickel !
Merci pour le coup de main

Cordialement

Phil

Discussions similaires

sertissage des cables rj45

Votre réponse

Discussions similaires