Bonjour à tous,
après avoir longuement chercher, j'aimerais savoir quel code utiliser pour ouvrir une boite de dialogue avec l'arborescence du disque afin de selectionner un fichier...


j'ai commencer comme cela :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub FileName()
FichiersAOuvrir = Application.GetOpenFilename(, , , , True)
If IsArray(FichiersAOuvrir) Then
For i = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)
'Ouvre les fichiers sélectionnés
Workbooks.Open FichiersAOuvrir(i)
Next i
Else
MsgBox "Annuler"
End If
End Sub
malheureusement, il est genéré l'erreur suivante :
Erreur de compilation : Membre de méthode ou de donnée introuvable sur le GetOpenFilename