Obtenir le chemin d'accès d'un fichier en VBA sur AutoCAD

[decottignies_antonin]

Bonjour,

Je cherche à réaliser un programme en VBA où je souhaiterais obtenir le chemin d'accès d'un fichier (un excel)  de mon ordinateur par une fenêtre qui me permettrai de parcourir mes fichiers et de sélectionner le fichier voulu et ainsi stocker le chemin d'accès dans une variable.

Une fonction similaire à Application.GetOpenFilename d'Excel.

Merci.

[Y.AUBRY · Accepted solution]

Bonjour @decottignies_antonin 

Tu peux essayer ca

Public Sub OpenDialog()
   Dim fileName As String
   'À l 'aide de la méthode SendCommand, envoyez des expressions AutoLISP getfiled à la ligne de commande AutoCAD.
   'Définissez la valeur de retour sur une variable système définie par l'utilisateur USERS1.
   ThisDrawing.SendCommand "(setvar " & """users1""" & "(getfiled " & """Selectionner une fichier xlsx""" & """c:/""" & """xlsx""" & "8)) "
   'Utilisez la méthode GetVariable pour récupérer cette variable système afin de stocker le nom de fichier sélectionné
   fileName = ThisDrawing.GetVariable("users1")
   MsgBox "Vous avez selectionné " & fileName & "!!!", , "Message fichier"
End Sub

Une autre solution est de charger la référence  (Menu "Outils" "Référence" dans VBA)

Ensuite tu peux utiliser les fonctions Excel

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
Dim FpFichier as string
FpFichier  = xlApp.GetOpenFilename("Tous les fichiers (*.*),*.*") 

A+ Yoan

[decottignies_antonin]

Merci beaucoup tout est fonctionnel !

[patrick.emin]

Bonjour @decottignies_antonin 

Parmi les réponses qui vous ont été données, si une (ou plusieurs) d'entre elles apporte une solution à votre problème ou vous a permis de mieux l'analyser et le comprendre, voulez vous avoir l'amabilité de cliquer sur le bouton  APPROUVER LA SOLUTION  en bas de la réponse qui apporte une solution?
Merci de ne pas accepter comme solution le message que vous êtes en train de lire.