Utiliser FindFile

Résolu/Fermé
BricoVBA Messages postés 2 Date d'inscription jeudi 10 mars 2016 Statut Membre Dernière intervention 11 mars 2016 - 10 mars 2016 à 18:10
BricoVBA Messages postés 2 Date d'inscription jeudi 10 mars 2016 Statut Membre Dernière intervention 11 mars 2016 - 11 mars 2016 à 09:07
Je veux utiliser la méthode FindFile pour choisir le classeur à traiter,
mais je ne sais par récupérer le Path du classeur ainsi ouvert.
Voici la procedure:

Sub Choisir()
Dim Fichier As String
Dim CR As Boolean

CR = Application.FindFile
If CR = True Then
'Fichier = ?????
'Workbooks.Open (Fichier)
Else
MsgBox " Pas de classeur choisi"
End If
End Sub

Avez vous une réponse ?
A voir également:

2 réponses

gbinforme Messages postés 14935 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 628
10 mars 2016 à 18:58
Bonjour,

je ne sais par récupérer le Path du classeur ainsi ouvert
Cette méthode ouvre le classeur que tu choisis et ne fournit que le résultat oui/non, il te faut donc récupérer le nom du classeur choisi
Sub Choisir()
Dim Fichier As String
Dim CR As Boolean

CR = Application.FindFile
If CR = True Then
    MsgBox ActiveWorkbook.FullName
Else
    MsgBox " Pas de classeur choisi"
End If
End Sub

0
BricoVBA Messages postés 2 Date d'inscription jeudi 10 mars 2016 Statut Membre Dernière intervention 11 mars 2016
11 mars 2016 à 09:07
Parfait, c'est trop simple.
Je n'avais pas capté que ma méthode ouvrait le fichier en tant que workbook.

Merci et hasta luego
0