Bouton parcourir + ouvrir

Résolu/Fermé
Signaler
-
 Kader -
Bonjour, je suis actuellement en stage ( conception mécanique), et mon tuteur m'a demandé de créer une macro sur excel qui peut parcourir les fichiers sur mon ordinateur mettre le chemin dans une cellule puis ouvrir ce même fichier, après quelques recherche voila ou je suis arrivé:

Sub parcourir()
Dim chemin As String
chemin = joindre
If chemin <> "" Then Range("C1").Value = chemin
End Sub

Function joindre()
joindre = Application.GetOpenFilename
End Function


Vu que c'est pas trop mon domaine j'ai besoin d'un petit coup de main, merci d'avance.

1 réponse

Messages postés
16116
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 novembre 2021
1 563
Bonjour,

Ouvrir quel(s) genre(s) de fichier, excel ou autre(s) ????
>
Messages postés
16116
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 novembre 2021

Merci de m'avoir répondu aussi vite, ça marche très bien, à un détail près il lance l’application AutoCAD et non le fichier dont il donne le chemin.
Messages postés
16116
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 novembre 2021
1 563 > Kader
Re,

mettez cette ligne
AcadObj.Visible = True
en commentaire en mettant un ' devant
>
Messages postés
16116
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 novembre 2021

je tiens à te remercier pour ton aide, la AutoCAD ne se lance plus quand je mets la phrase en commentaire
Messages postés
16116
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 novembre 2021
1 563 > Kader
Re,

enlevez le ' de cette ligne et remplacez
AcadObj.Open chemin

par
AcadObj.Documents.Open chemin
>
Messages postés
16116
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 novembre 2021

Bonjour f894009

ça fonctionne un très grand merci à toi.