Erreur définie par l'application ou par l'objet et fonction Find

[Perth]

Bonjour le forum,

J'ai un souci au niveau de ma macro alors que celle ci fonctionnais à merveille hier. Qui l'eu cru ? Bref.

Je cherche à faire exécuté une macro (écrite dans un template.xls) sur un autre classeur (mettons x.xls). Lorsque j'exécute la macro de x.xls celui-ci me sort une erreur: "Erreur définie par l'application ou par l'objet" sur ma ligne où je fait une recherche:

Set CelluleTrouvee = ActiveSheet.Range("A:XFD").Find(What:="Wavelength", LookAt:=xlWhole)
    If CelluleTrouvee Is Nothing Then
        Set CelluleTrouvee = ActiveSheet.Range("A:XFD").Find(What:="Lambda", LookAt:=xlWhole)
        If CelluleTrouvee Is Nothing Then
            DejaImport = False
        Else
            DejaImport = True
        End If
    Else
        DejaImport = True
    End If

Mon x.xls a cette gueule :

Lambda	                  345.54	345.76
AVO 3.3.020311 DV000	-1652.174	-1652.174
AVO 3.3.020311 DV001	-1004.348	-1004.348

Merci d'avance de toutes réponses!

 

[Compte Supprimé 979]

Re : Erreur définie par l'application ou par l'objet et fonction Find

Bonjour Perth,

Si le Find d'Excel ne trouve rien, cela renvoie un message d'erreur
Ce message d'erreur tu essaye de l'attribuer à une variable objet, d'ou ton message

Ce qu'il faut faire, c'est entourer la fonction find d'une gestion d'erreur
Comment faire, comme cela :

On Error Resume Next  ' En cas d'erreur on continue sans message
Set CelluleTrouvee = ActiveSheet.Range("A:XFD").Find(What:="Wavelength", LookAt:=xlWhole)
On Error Goto 0 ' En cas d'erreur on affiche un message
     If CelluleTrouvee Is Nothing Then
         Set CelluleTrouvee = ActiveSheet.Range("A:XFD").Find(What:="Lambda", LookAt:=xlWhole)
         If CelluleTrouvee Is Nothing Then
             DejaImport = False
         Else
             DejaImport = True
         End If
     Else
         DejaImport = True
     End If

A+