raphaeldiaz
Messages postés1Date d'inscriptionmercredi 9 février 2011StatutMembreDernière intervention 9 février 2011
-
9 févr. 2011 à 11:04
NHenry
Messages postés15117Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention10 mai 2024
-
9 févr. 2011 à 12:53
SITUATION : Sur un worksheet de mon classeur (ThisWorkbook ou un autre), j'utilise cette macro qui me permet de vérifier la présence de la référence : reference.xla et d'appeler le Call seulement si elle est présente. Voilà le programme :
CODE :
Private Sub Worksheet_Deactivate()
'Verifie si le fichier referentiel est bien présent
Dim Fichier As String
Fichier = Dir("C:\Program Files\Microsoft Office\OFFICE11\XLSTART\reference.xla")
?fichier de référence
If Fichier <> "" Then 'le fichier existe
Call DeleteVersionItemsInPopup
Else 'le fichier n'existe pas
'MsgBox "Le fichier " & Fichier & " est inexistant"
Exit Sub
End If
End Sub
PROBLEME:
Cependant, à l'utilisation, quant la référence n'est pas présente, le programme appel directement le « call » et m?envoi ce message d'erreur :
« Erreur de complilation : Sub ou Function non définie. ». Il ne prend pas en compte ma condition?
NHenry
Messages postés15117Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention10 mai 2024159 9 févr. 2011 à 12:53
Bonjour,
Call est optionnel, tu peux le retirer.
Concernant ton problème, c'est simple,; quand il entre dans une fonction, il veut que tout soit nickel, donc essayes peut être de faire une Sub qui appellera cette sub.