Bouton parcourir + ouvrir

Résolu/Fermé

Kader - 3 mai 2016 à 12:20
Kader - 4 mai 2016 à 10:09

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.

A voir également:

Bouton parcourir + ouvrir
Ouvrir fichier .bin - Guide
Comment ouvrir un fichier epub ? - Guide
Ouvrir fichier rar - Guide
Comment ouvrir un fichier docx ? - Guide
Ouvrir winmail.dat - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 mai 2016 à 12:25

Bonjour,

Ouvrir quel(s) genre(s) de fichier, excel ou autre(s) ????

Kader
3 mai 2016 à 12:32

c'est des fichiers AutoCAD

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Kader
3 mai 2016 à 14:34

Re,

Je n'ai pas autocad, mais ca devrait le faire, ouvrir le fichier selectionne

Sub parcourir()
    Dim chemin As String
    
    chemin = joindre
    If chemin <> "" Then
        Range("C1").Value = chemin
        On Error Resume Next
        Set AcadObj = GetObject(, "AutoCAD.Application")
        If Err.Number <> 0 Then
            Set AcadObj = CreateObject("AutoCAD.Application")
        End If
        AcadObj.Visible = True
        AcadObj.Open chemin
        Set AcadObj = Nothing
    End If
End Sub

Function joindre()
    joindre = Application.GetOpenFilename("Fichiers Autocad DWG (*.dwg), *.dwg")
End Function

Kader > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
3 mai 2016 à 15:46

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.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Kader
3 mai 2016 à 16:10

Re,

mettez cette ligne

AcadObj.Visible = True

en commentaire en mettant un ' devant

Kader > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
Modifié par Kader le 3/05/2016 à 17:07

je tiens à te remercier pour ton aide, la AutoCAD ne se lance plus quand je mets la phrase en commentaire

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

Où est la touche SHIFT sur mon clavier d'ordi ?

Bouton ON OFF, O ou I ?

Discussions similaires

Newsletters