chemin

[jean-lucsl]

Bonjour a tous !

voici un petit but de code qui fonctionne :

Dim Chemin as string
chemin = "c:\documents and settings\jean-luc\bureau\"
activeworkbook.saveas filename = chemin etc... etc...

ma Question est la suivante :

Existe t'il des termes générique pour indiquer le chemin et qui rendrait mon code valable sur n'imorte quel ordi

Merci por vos réponses

 

[fred65200]

Re : chemin

bonjour

Si tu veux enregistrer sur le Bureau de chaque utilisateur

MsgBox Environ("USERPROFILE") & Application.PathSeparator & "Desktop" & Application.PathSeparator

cordialement

 

[jeanpierre]

Re : chemin

Bonjour jean-lucsl, re tous,

La seule chose que j'ai trouvé, mais à une époque où ce forum n'existait pas, était de demander à chacun de créer un répertoire à un endroit précis, avec un nom précis (valable quelque soit l'ordinateur et sauf versions montantes arrivées plus tard).

Sinon, et de ce que j'ai lu, cela me parraît difficile, mais ai-je bien tout lu ?

En attendant mieux, bonne journée.

Jean-Pierre

 

[Dan]

Re : chemin

Bonjour,

Une idée qui vaut ce qu'elle vaut mais ce que tu peux faire :
- vas dans menu/outils/options et sous l'onglet general --> nom utilisateur, met un nom d'une personne
- Crée ensuite une variable à partir de cette instruction :

 Nom = Application.UserName

- Reprends cette variable dans la variable CHEMIN

 Dim nom as string, chemin as string
Nom = Application.UserName
chemin = "c:\documents and settings\" & nom & " \bureau\"

A te lire

Dan

 

[gg13]

Re : chemin

Salut le forum
A tester pour info

=CELLULE("Nomfichier")

qui donne le chemin complet,avec la feuille active.

GG13

 

[jean-lucsl]

Re : chemin

salut a tous

Merci de vos reponses, je me mets au boulot de suite
a+