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