Erreur 424

Bonsoir le forum

je veut ecrire un code pour renomé toutes les en-tête de mon fichier (chaque feuille les mêmes) donc j'ai écrit ça

Sub titre()
    'en_tete = Array(demandeur, date_de_comande, reference_notice, nom_notice, combinaison_langue, famille, Notice, revision, ?tat, d?lais, traducteur, n?_notice, CA, DeNot, Affectation, remarque)
    For i = 1 To 6
         With feuili
         .Cells(1, 1) = "demandeur"
         .Range(1, 2) = "date de comande"
         .Range(1, 3) = "reference notice"
         .Range(1, 4) = "nom notice"
         .Range(1, 5) = "combinaison langue"
         .Range(1, 6) = "famille"
         .Range(1, 6) = "Notice"
         .Range(1, 7) = "revision"
         .Range(1, 8) = "?tat"
         .Range(1, 9) = "d?lais"
         .Range(1, 10) = "traducteur"
         .Range(1, 11) = "n? notice"
         .Range(1, 12) = "CA"
         .Range(1, 13) = "DeNot"
         .Range(1, 14) = "Affectation"
         .Range(1, 15) = "remarque"
        End With
    Next

End Sub

Sauf que erreur objet requis " .Cells(1, 1) = "demandeur"", comme vous pouvez le constater j'ai essayer rang et cells mais rien n'y fait.

Si quelqu'un peut aussi me donner un petit conseil pour éviter ces erreurs ce serait top

3bdv0-7.xlsm (256.79 Ko)

Bonjour,

remplace

With feuili

par

With sheets(i)

merci pour le coup de main c'était ça mais pourquoi ?

Rechercher des sujets similaires à "erreur 424"