Utiliser FindFile

Résolu
BricoVBA Messages postés 2 Statut Membre -  
BricoVBA Messages postés 2 Statut Membre -
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 ?

2 réponses

gbinforme Messages postés 15478 Statut Contributeur 4 726
 
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 Statut Membre
 
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