Discussion :

[gugas]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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.

[gugas]

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,

[Menhir]

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wb_MV = Application.Workbooks.Open(chemin_dossier_management_visuel & "\fichier.xls")

[gugas]

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

[Menhir]

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.