Erreur 438 sur worksheet.name [Résolu]

Signaler
Messages postés
55
Date d'inscription
mardi 8 juin 2004
Statut
Membre
Dernière intervention
27 février 2009
-
Messages postés
55
Date d'inscription
mardi 8 juin 2004
Statut
Membre
Dernière intervention
27 février 2009
-
Bonjour ,

Je suis sur excel 2003 et j'ai une erreur '438' = Cet objet ne gère pas cette propriété ou méthode (erreur 438) .

Le but de ma macro est de mettre à jour à partir d'une liste (listes chantiers) les cellules de mes feuilles (les chantiers).

Private Sub CommandButton3_Click()


Dim name As String

' Trouve le n° 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° de chantier n'existe pas il crée une nouvelle feuille d'après un modèle
'sinon met à jour les cellules de la feuille correspondante
If Worksheets(name) <> Worksheet.name Then <= erreur 438
new_sheet 'Crée une nouvelle feuille
Mise3 'met à jour la nouvelle feuille
Else
'la feuille existe donc mise à jour
sheetname = ActiveSheet.name
Mise2
Worksheets(sheetname).Activate
End If
Next i
ActiveWorkbook.Save
End Sub

Merci d'avance

Estelle

1 réponse

Messages postés
55
Date d'inscription
mardi 8 juin 2004
Statut
Membre
Dernière intervention
27 février 2009
1
Bonjour,

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

[?] Estelle[8D]
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci