Discussion :

[nico101997]

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

[nico101997]

Bon finalement j'ai trouvé la réponse

https://www.barcodefaq.com/knowledge...compile-error/