Erreur 438 sur worksheet.nameRésolu

Question

Bonjour ,

Je suis sur excel 2003 et j'ai une erreur '438' =  Cet objet ne g&#232;re pas cette propri&#233;t&#233; ou m&#233;thode (erreur 438) .

Le but de ma macro est de mettre &#224; jour &#224; partir d'une liste (listes chantiers) les cellules de mes feuilles (les chantiers).

Private Sub CommandButton3_Click()


Dim name As String

   ' Trouve le n&#176; de chantier dans la liste
    For i = Find_LC("Titres") + 1 To TotalChantier() + 6
        Worksheets("Liste des Chantiers").Activate
        name = Worksheets("Liste des Chantiers").Range(Find_LC("ColNumero") & i)
        
         'Si le n&#176; de chantier n'existe pas il cr&#233;e une nouvelle feuille d'apr&#232;s un mod&#232;le 
         'sinon met &#224; jour les cellules de la feuille correspondante
        If Worksheets(name) <> Worksheet.name Then <=  erreur 438 
            new_sheet 'Cr&#233;e une nouvelle feuille
            Mise3 'met &#224; jour la nouvelle feuille 
        Else
         'la feuille existe donc mise &#224; jour 
            sheetname  = ActiveSheet.name
            Mise2
            Worksheets(sheetname).Activate
        End If
    Next i
      ActiveWorkbook.Save
End Sub

Merci d'avance

 Estelle

fitzjames · Accepted Answer

Bonjour,

[javascript:ol('http://www.vbfrance.com/forum.v2.aspx?ID=514526'); http://www.vbfrance.com/forum.v2.aspx?ID=514526]

[?] Estelle[8D]

Erreur 438 sur worksheet.name

1 réponse

Discussions similaires