Discussion :

[weyb06]

bjr

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

puis avec le caractère " :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut
Peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[weyb06]

Salut
Peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

bjr,

"incompatibilité de type"
:-(

cordt

[l_autodidacte]

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