Discussion :

[totoche]

Bonjours,
Je parcours plusieurs fichier excel sur lesquels je dois supprimer la première ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
...
Set wsExcel = wbExcel.Worksheets(1)
Rows("1:1").Select 'ligne entière
Selection.Delete Shift:=xlUp..

pour le premier fichier aucun probleme, pour le second j'ai le message d'erreur suivant :

La méthode 'rows de l'objet _Global a échoué

Merci de votre aide

[SfJ5Rpw8]

à quoi te sert ta variable
wsExcel ... si tu ne t'ens sert pas ensuite...

[totoche]

Bonjour & merci
j'ai corrigé en effet ,mais maintenant j'ai l'erreur sur la 2 ligne
Variable objet non définie : ligne SELECTION.delete ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
wsExcel.Rows("1:1").Select 'ligne entière
Selection.Delete Shift:=xlUp

[illight]

Si tu as laissé le wsExcel, c'est normal que ça marche pas.

Il suffit juste d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows("1:1").select

Tu pourrait meme écrire (normalement, car il y en a qui n'aiment pas les Select ici ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(1).Delete Shift:=xlUp