Variable sur vba pour acces adresse reseau

[Lighter]

Bonjour à tou(te)s
Je cherche à comprendre comment mettre une variable dans une application VBA pour définir l'adresse réseau d'un programme VBA qui appelle l'ouverture de plusieurs fichiers afin de ne pas copier systématiquement l'ordre sur chaque ligne et permettre de changer aisemment l'adresse 'réseau' en une seule fois, au cas où.
Cela me permettrait de d'éviter d'écrire ce type de code :
Workbooks.Open Filename:="S:\Classeur1.xls"
Workbooks.Open Filename:="S:\BG311207.xls"
etc ......
en mettant une variable "quelque part mais je ne sais pas comment" sur "S:\"
Merci à vous tou(te)s pour votre aide.
A+

 

[JNP]

Re : Variable sur vba pour acces adresse reseau

Bonjour Lighter 🙂,
Malgré ton pseudo, je ne suis pas sûr que ta lumière m'ai beaucoup éclairé...
Comme ceci peut-être

Dim Lecteur As String
Lecteur = "S:\"
Workbooks.Open Filename:=Lecteur & "Classeur1.xls"
Workbooks.Open Filename:=Lecteur & "BG311207.xls"

Bon WE 😎

 

[Guest]

Re : Variable sur vba pour acces adresse reseau

Bonjour,

Si l'adresse réseau ne change que quelques fois, deux propositions

1 - Avec une constante à changée manuellement de temps en temps:

Const ADR as String = "S:\"

Puis dans tes macros

Workbooks.Open Filename:= ADR & "BG311207.xls"

2 - Avec l'adresse Reseau dans une cellule nommée (dans une feuille cachée par exemple)
s'assurer que la cellule contienne bien quelque chose.

Workbooks.Open Filename:= Range("NomDeLaCellule").Text & "BG311207.xls"

A+

[Edition] Hello JNP

 

[Lighter]

Re : Variable sur vba pour acces adresse reseau

Bonjour JNP,
Bonjour Hasco,

Effectivement JNP j'étais plutôt en veilleuse sur ce coup, mais grace à toi la lumière fût. En mettant, "Lecteur" en "Option Explicit" Je peux definir une seule fois l'adresse réseau dans un module comprenant plusieurs applications.
Hasco, plutôt sympa la fonction 'Const' , mais dans ton exemple 2, je dois tester car en fait selon les utilisateurs, le pointeur réseau n'est pas le même, je dois donc entrer directement l'adresse "IP" du réseau sur la fonction "Workbooks.Open" et là sur ce dernier exemple '("NomDeLaCellule").Text',, je ne suis pas sûr que cela marche.
En tout cas, mille mercis à vous deux pour votre professionnalisme.
Bonne journée
A+