Bonjour,

J'ai écrit une macro pour compiler plusieurs classeurs Excel dans un seul. Pour récupérer les fichiers à compiler j'utilise l'application GetOpenFilename qui marche très bien quand je la teste comme dans la macro suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub a()
Dim fileToOpen
fileToOpen = Application.GetOpenFilename("All Files (*.*),*.*")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If
End Sub
Or dès que je veux utiliser une fonction ensuite comme dans l'exemple qui suit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub a()
Dim fileToOpen
fileToOpen = Application.GetOpenFilename("All Files (*.*),*.*")
If Right(fileToOpen, 3) = "txt" Then
    MsgBox "Open " & fileToOpen
End If
End Sub
Alors la fenêtre pour choisir les fichiers ne s'ouvre plus et un message d'erreur apparaît. Le message d'erreur est :
Complie error : Can't find project or library
J'ai vraiment besoin d'utiliser des fonctions après et je ne comprends pas d'où viens l'erreur alors si quelqu'un a une solution je suis preneur.

Merci d'avance
Nico