Ouvrir un fichier excel avec VBA mais sans avoir à modifier le chemin qaund on déplace le fichier

Version imprimable

Bonjour à tous,

J'ai 4 fichiers excel dont 1 "principal"
En ouvrant d'abord le principal, j'ai mis des macros qui m'envoient vers les autres fichiers excels sur des onglets précis. Cependant, dès que je déplace le dossier ou un des fichiers je suis obligé de changer le chemin.
Le but de ce travail est de créer un dossier unique que je pourrai partager avec le réseau de mon entreprise sans que mes collègues aient à retoucher à vba.

Voici ma macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton10_Click() Dim chemin_dossier_management_visuel As String Dim wb_MV As Workbook Dim ws_parking As Worksheet 'identifier l'emplacement du fichier Set chemin_dossier_management_visuel = ActiveWorkbook.Path MsgBox ("Name") & chemin_dossier_management_visuel 'Ouvrir le fichier et l'onglet de saisie Set wb_MV = Application.Workbooks.Open("fichier.xls") Set ws_parking = ws_parking.Worksheets("parking") End Sub
J'ai essayé de programmer pour qu'il retrouve l'emplacement du fichier principal (où se trouve également les autres fichiers) et de le faire ouvrir "fichier.xls" mais ça ne marche pas !
Aidez moi s'ils vous plait !

02/05/2018, 12h45
unparia

Bonjour
Ce que tu demandes n'est pas possible, sauf à rechercher sur tout le disque dur (et encore ... en espérant qu'un autre fichier ne porte déjà pas ce nom ...)
On évite en général ce genre de problème en utilisant un dossier dont le chemin est relatif à celui du classeur. Même ainsi, toutefois, nul n'est à l'abri d'un effacement ou déplacement inopportun et/ou volontaire de ce dossier

Par ailleurs : Application.Workbooks.Open nécessite que lui soit passé le chemin complet du fichier à ouvrir.
02/05/2018, 13h55
gugas

Citation:

Envoyé par unparia

Bonjour
Ce que tu demandes n'est pas possible, sauf à rechercher sur tout le disque dur (et encore ... en espérant qu'un autre fichier ne porte déjà pas ce nom ...)
On évite en général ce genre de problème en utilisant un dossier dont le chemin est relatif à celui du classeur. Même ainsi, toutefois, nul n'est à l'abri d'un effacement ou déplacement inopportun et/ou volontaire de ce dossier

Par ailleurs : Application.Workbooks.Open nécessite que lui soit passé le chemin complet du fichier à ouvrir.

Merci pour cette réponse très réactive ! Même si cela ne me réjouit pas de savoir que ce n'est pas possible.

Je suis en revanche intéressé par "On évite en général ce genre de problème en utilisant un dossier dont le chemin est relatif à celui du classeur." Comment puis-je faire cela ?

Merci par avance,
02/05/2018, 13h57
Menhir

Citation:

Envoyé par gugas

En ouvrant d'abord le principal, j'ai mis des macros qui m'envoient vers les autres fichiers excels sur des onglets précis. Cependant, dès que je déplace le dossier ou un des fichiers je suis obligé de changer le chemin.

Si ton besoin est de connaitre le chemin du fichier dans lequel se trouve cette macro, tu peux l'obtenir avec ThisWorkbook.Path.

Si ton besoin est de pouvoir permettre aux utilisateurs de rechercher le fichier principal à traiter, tu peux le faire avec la méthode GetOpenFilename.
https://msdn.microsoft.com/library/8...ice.15%29.aspx

Si c'est autre chose, alors il faudra expliquer ton problème plus précisément.

Citation:

J'ai essayé de programmer pour qu'il retrouve l'emplacement du fichier principal (où se trouve également les autres fichiers) et de le faire ouvrir "fichier.xls" mais ça ne marche pas !

Sans doute parce que dans la méthode Open, tu n'indiques que le nom du fichier à ouvrir mais pas son chemin.

Code:

Set wb_MV = Application.Workbooks.Open(chemin_dossier_management_visuel & "\fichier.xls")
02/05/2018, 14h10
gugas

Citation:

Envoyé par Menhir

Si ton besoin est de connaitre le chemin du fichier dans lequel se trouve cette macro, tu peux l'obtenir avec ThisWorkbook.Path.

Si ton besoin est de pouvoir permettre aux utilisateurs de rechercher le fichier principal à traiter, tu peux le faire avec la méthode GetOpenFilename.
https://msdn.microsoft.com/library/8...ice.15%29.aspx

Merci pour ta réponse Menhir ! Effectivement c'est pour que les autres utilisateurs ouvrir le fichier principal à traiter. Je vais suivre la méthode pour voir si ça résoudra mon problème.

Cordialement
02/05/2018, 14h30
Menhir

Citation:

Envoyé par gugas

Merci pour ta réponse Menhir ! Effectivement c'est pour que les autres utilisateurs ouvrir le fichier principal à traiter.

S'il s'agit du fichier dans lequel est enregistrée la macro, c'est le serpent qui se mord la queue : on ne peut pas mettre dans la macro une instruction pour ouvrir ce fichier puisque la macro ne peut être active que si le fichier est ouvert. Ca tourne en rond.