Recuperer la lettre du lecteur reseau !

Salut

Un code du style :

monclass = ActiveWorkbook.FullName te donne le chamin complet
Tu n'as plus qu'à récupérer la lettre de gauche.

Sinon pourquoi dans ton code au lieu de noter la lettre du lecteur tu n'indiquerais pas le chemin réel (\\serveur\fichier\toto.log) comme cela tu te moques de la lettre attribuée

Bon courage

Pascal

Bonjour Creepy, Pascal, Le Forum

Il m'est arrivé dans le passé de développer pas mal de macro en utilisant le le chemin réel (\\serveur_A\Users\Share\Log\Reports\toto.log)... Cà marchait super... Jusqu'au jour où on a remplacé le serveur... (!)

Je pense que si l'on applique cette méthode de chemin réél il est important de l'utiliser en Constante en Top de module pour éviter des déboires dans un certain future...

Exemple (en haut du Module) :
Const ThePath As String = "\\serveur_A\Users\Share\Log\Reports\"

Puis dans les macros on appelle que la Constante :
Sub SaveLogV1 ()
Dim TheFileName As String
TheFileName = "Toto.Log" '<<< (ou une cellule ou une autre variable )
Workbooks("TheBook.xls").SaveAs Filename:=ThePath & TheFileName
End Sub


Mais sinon il y a encore bien plus simple avec l'instruction "ThisWorkBook.Path" qui ne nécessitera rien à faire de plus à partir du moment où le log doit être sauvé dans le même répertoire que le classeur lançant cette instruction...

Exemple :
Sub SaveLogV2 ()
Dim TheFileName As String

ThePath = ThisWorkbook.Path & "\"
TheFileName = "Toto.Log"
Workbooks("TheBook.xls").SaveAs Filename:=ThePath & TheFileName
End Sub


Bon Aprèm
@+Thierry