Chercher un classeur

bonsoir sylsyl

peux tu tester la procedure ci joint qui affiche la boite de dialogue "ouvrir"

Sub ouvrir()
Application.Dialogs(xlDialogOpen).Show
End Sub


bonne soirée
Michel

Salut michel,

la comande est pafaite mais est-ce qu'il est possible d'en retirer le chemin du fichier ouvert ?

J'arrive a extraire le nom en ajoutant .application.caption et a indiquer un chemin par default avec .application.defaultfilepath mais .application.path semble me donner le chemin d'un outil excel...

En fait j'utilise la fonction suivante trouvee ici meme

Function IsWorkbookOpen(wbName As String) As
On Error Resume Next
IsWorkbookOpen = Len(Workbooks(wbName).Name)
End Function

et j'aimerais afficher l'explorateur si false, j'ai donc besoin de mettre un chemin par default qui serait le dossier dans lequel le fichier a ete trouve la derniere fois.

Merci beaucoup.

Un syl qui veut toujours faire mieux.

re-salut michel,

j'ai trouve "GetOpenFilename" mais il me donne le chemin + le nom du fichier ouvert. Comment faire pour extraire que le chemin ?

Je peux effacer toutes les lettres du string a partir de la droite jusqu'au premier "\" mais bon... ill doit y avoir mieux.

Merci.

Ca y est j'ai trouve:

Public Function OpenWPath(WorkName As String) As String

Dim Pa As String

Pa = Application.GetOpenFilename("Fichiers Excel(*.xls),*.xls,All Files (*.*),*.*", , "Please open the " & WorkName & " worbook")

OpenWPath = Left(Pa, Len(Pa) - Len(WorkName) - 4)

End Function

le "-4" est pour le ".xls" qui n'apparait pas dans mon "WorkName"

Merci beaucoup michel, je n'ai finalement pas utilise ta solution mais elle m'a beaucoup inspire. Je cherchais a tout prix un controle car je ne savais pas que ce genre de fenetre existait (ou plutot comment les utiliser). En plus j'ai decouvert pleins d'autres trucs du genre sauvegarde de copies,...

Encore merci...

c'est beau ça ;-(
pour en apprendre encore un peu plus : <http://xlbysteph.free.fr/aideinformatique/actionfichier.htm>

Je n'y ai jete qu'un coup d'oeil mais ca a l'air tres interessant...

Merci.