Uvrir un fichier à partir d'un bouton dans un UserForm

Bonjour à tous,

Voila je voudrai pouvoir ouvrir un fichier se trouvant sur une clé USB, où dans un dossier à partir d'un bouton de commande se trouvant dans un UserForm.

Pourriez vous m'aider?

Amicalement,

Toubabou

Bonjour djodjo

A tester

Sub Macro1()

    ChDir "G:\" ' le nom de la clé USB
    Workbooks.Open Filename:="G:\Oui - Non dans colonnes.xlsm" ' le nom du fichier sur la clé

End Sub
' Dans le formulaire, insérer un Bouton commande et lui affecter la macro1

Amicalement

Pierrot

Bonjour

Il faudrait pour cela que tu donnes le chemin d'accès à ce fichier depuis le PC où t veux l'ouvrir.

Pour cela :

1 – Tu ouvres le fichier dont tu veux noter le chemin d’accès

2 – Tu mets dans une cellule vide quelconque de ce fichier a formule :

= CELLULE(« Nomfichier »)

et tu valides

3 – Tu copies cette cellule et tu fais un collage spécial-valeur, dans la même cellule ou dans une autre.

4 - tu copies la formule obtenue et tu la joins à ton prochain message.

OK ?

Bye !

Bonsoir, une proposition :

Public Sub ouvrir()
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlm;*.xlsm", 1
        If .Show = -1 Then .Execute
    End With
End Sub