OVH Cloud OVH Cloud

Modification de la racine

2 réponses
Avatar
JACK 43
Bonjour,

Je viens de mettre un bouton macrocommande dans un fichier qui ouvre un
autre fichier(. Rien de plus facile :

Workbooks.Open FileName:= _
"D:\Documents and Settings\essaieenregistrement.xls"

Mais voilà mon problème, des boutons comme celà j'en ai une bonne dizaine.

Je dois diffuser mon travail sous CD à tous mes collaborateurs pour qu'il
puisse exploiter l'application.

Donc je vais mettre tous les fichiers sur le CD mais les boutons
macrocommande ne fonctionneront pas car il chercheront le fichier sur la
racine D:\

Doncil faut que je modifie mes macros (pour fonctionnement sur CD) en
remplaçant D:\ par X:\

1 - je dois le faire manuellemnt macro après macro pù peut-on à l'origine
paramètrer la macro pour celà ?

2 - si changement manuelle, le lecteur de CD des PC de mes collaborateurs ne
sera pas forcèment sur X (celà peut une autre lettre Y, .....)

Dans ce cas je dois faire des différents CD en fonction de la lettre du
lecteur.


MERCI A +

2 réponses

Avatar
JB
Bonjour,

Il ne faut pas mettre en dur le chemin. Il faut être en relatif par
rapport au répertoire de l'application. Ici, on suppose que les
fichiers sont dans le répertire de l'application.

ChDrive Left(ActiveWorkbook.Path, 2) ' change de lecteur
ChDir ActiveWorkbook.Path ' positionne dans le
répertoire du classeur de l'application
MsgBox CurDir()
nf = "essai.xls"
Workbooks.Open Filename:=nf

Si les fichiers sont dans sou repertoire Toto de l'application:

Workbooks.Open Filename:="Toto & nf

Cordialement JB
Avatar
michdenis
Bonjour Jack 43,

IL n'y a aucun moyen de savoir d'avance où un usager placera le fichier dans son arborescence des fichiers.

2 solutions :
A )
Tu indiques en clair aux usagers un endroit où ils devront copier les fichiers sur leur disque dur ....
A cet égard, la proposition de JB peut aider à établir une procédure, seulement si les
usagers sont "obéissants" ;-)

B )
tu crées une procédure qui recherchera ledit fichier à ouvrir sur l'ensemble du disque sur
pour tous les lecteurs contenus sur ce disque dur... c'est un peu longuet !


Salutations!







"JACK 43" (sansspam)> a écrit dans le message de news:

Bonjour,

Je viens de mettre un bouton macrocommande dans un fichier qui ouvre un
autre fichier(. Rien de plus facile :

Workbooks.Open FileName:= _
"D:Documents and Settingsessaieenregistrement.xls"

Mais voilà mon problème, des boutons comme celà j'en ai une bonne dizaine.

Je dois diffuser mon travail sous CD à tous mes collaborateurs pour qu'il
puisse exploiter l'application.

Donc je vais mettre tous les fichiers sur le CD mais les boutons
macrocommande ne fonctionneront pas car il chercheront le fichier sur la
racine D:

Doncil faut que je modifie mes macros (pour fonctionnement sur CD) en
remplaçant D: par X:

1 - je dois le faire manuellemnt macro après macro pù peut-on à l'origine
paramètrer la macro pour celà ?

2 - si changement manuelle, le lecteur de CD des PC de mes collaborateurs ne
sera pas forcèment sur X (celà peut une autre lettre Y, .....)

Dans ce cas je dois faire des différents CD en fonction de la lettre du
lecteur.


MERCI A +