Path File
Bonjour à tous,
Concevant un programme excel VBA, je cherche à rajouter une ligne à ma macro.
L'objectif de ma macro et d'ouvrir plusieurs fichiers qui se trouvent tous dans le même fichier.
Cependant, la macro doit pouvoir être exécutée depuis des postes différents avec des chemins d'accès donc différents. (sachant que se sont des ordinateurs de réseaux).
J'ai donc trouvé la fonction "Path.File", mais très peu d'informations supplémentaires à son sujet.
Merci d'avance pour toutes informations pouvant m'aider !
Bonjour
essayez comme ceci peut être :
ActiveWorkbook.FullNameCordialement
Bonjour Dan et merci de ta réponse très rapide.
Je n'ai pas bien exprimé la situation, je vais la détailler.
Le principe de ma macro est :
1) Je clique sur un bouton
- Ouverture d'un fichier excel, suppression de son contenu
- importation des données d'un autre classeur excel
- enregistrement et ouverture du nouveau classeur dans Access
Tout les fichiers seront placés dans le même dossier.
Le problème est que la macro actuelle n'est utilisable que sur ma session avec les chemins d'accès que j'ai défini.
Ma question est donc de savoir si l'on peut avec une macro trouver les fichiers qui se trouvent dans le dossier ou le tableur excel avec le bouton se situe (la base du processus de la macro) et de les ouvrir comment dans le déroulement décrit plus-haut.
Re
Le problème est que la macro actuelle n'est utilisable que sur ma session avec les chemins d'accès que j'ai défini.
l'instruction que je vous ai donnée renvoie le path du dossier où se trouve le fichier
Je suppose que les utilisateurs pointent tous vers le même dossier et même fichier ?
Possible de voir la macro ?
Re Dan,
Le souci vient d'être réglé à partir de la formule suivante :
Workbooks.Open Filename:=ThisWorkbook.Path & "\Commande.xlsm"
Cependant, un problème apparaît encore sinon ce n'est serait pas amusant ...
Je dois importer le texte d'un classeur en adaptant le path également...
A la base cela donnait :
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\\.............\................\...................\Downloads\orders.csv" _
, Destination:=Range("$A$1"))
Est-ce possible de l'adapter également ?
Re
Le souci vient d'être réglé à partir de la formule suivante :
Workbooks.Open Filename:=ThisWorkbook.Path & "\Commande.xlsm"
Ok mais je ferais plutôt comme ceci --> Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Commande.xlsm"
je dois importer le texte d'un classeur en adaptant le path également...
Un truc du genre à essayer
Dim chemin As String, fichier as string
chemin = "\\.............\................\...................\Downloads\"
fichier = "orders.csv"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & chemin & fichier, Destination:=Range("A1")Crdlt