Utiliser FindFile
Résolu
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 ?
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
-
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 -
ContributeurBonjour,
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 choisiSub 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
