Problème rédaction commande Application.Run

bjr

mon pb est que je stocke la routine dans le PERSONAL.XLSB
et donc lors de mon appel, je dois écrire :

Code:

---

if Application.Run("'PERSONAL.XLSB'!verif_serveur("Y:\")") = False Then

---

or le " avant Y: ferme l'expression...
-> comment "protéger" les 2 caractères " du lecteur réseau ?
j'ai essayé avec le caractère \ :

Code:

---

if Application.Run("'PERSONAL.XLSB'!verif_serveur(\"Y:\\")") = False Then

---

puis avec le caractère " :

Code:

---

If Application.Run("'PERSONAL.XLSB'!verif_serveur(""Y:\"")") = False Then

---

mais cela ne fonctionne pas :-(
- les 2 premiers ont un pb de syntaxe
- le 2e me renvoie "incompatibilité de type"

EDIT :
j'ai résolu en contournant le pb avec :

Code:

---

1 2	Drive = "Y:\" If Application.Run("'PERSONAL.XLSB'!verif_serveur", Drive) = False Then

---

mais qq part, c'est de la triche...

merci d'avance de résoudre mon pb !

cordt

Salut
Peut être

Code:

---

If Application.Run("'PERSONAL.XLSB'!verif_serveur(" & Chr(34) & "Y:\" & Chr(34) & ")") = False Then

---

Citation:

---

Envoyé par ProgElecT

Salut
Peut être

Code:

---

If Application.Run("'PERSONAL.XLSB'!verif_serveur(" & Chr(34) & "Y:\" & Chr(34) & ")") = False Then

---

---

bjr,

"incompatibilité de type"
:-(

cordt

Je crois que tu as utilisé 2 syntaxes différentes et celle qui a fonctionné est If Application.Run("'PERSONAL.XLSB'!verif_serveur", Drive) = False Then.
On pourrait alors se passer de la variable Drive et mettre : If Application.Run("'PERSONAL.XLSB'!verif_serveur", "Y:\") = False Then