Bouton parcourir + ouvrir
Résolu
Kader
-
Kader -
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.
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
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 Functionmettez cette ligne
en commentaire en mettant un ' devant