Utiliser FindFile Résolu/Fermé

Question

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 ?

gbinforme · Answer

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

BricoVBA · Answer

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

Utiliser FindFile

2 réponses

Discussions similaires