Discussion :

[Raphael DIAZ]

1-Problème avec la fonction « call ».

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 :

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

1
2
3
4
5
6
7
8
9
10
11
12
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

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…

[el_slapper]

As-tu essayé d'executer ton code en pas-à-pas? Histoire de voir ce que contient la valeur Fichier dans chaque cas.