Bouton parcourir + ouvrir

Résolu

Kader -
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
Comment ouvrir un fichier epub ? - Guide
Ouvrir fichier .bin - Guide
Ouvrir fichier .dat - Guide
Comment ouvrir un fichier docx ? - Guide
Ouvrir avec - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

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

Kader

c'est des fichiers AutoCAD

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > Kader

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 17277 Date d'inscription Statut Membre Dernière intervention

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > Kader

Re,

mettez cette ligne

AcadObj.Visible = True

en commentaire en mettant un ' devant

Kader > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

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

Quel est la touche shift sur le clavier

Bouton ON OFF, O ou I ?

Votre réponse

Discussions similaires