insertion ligne par macro

[Gillou]

Coucou Excelleuses et Excelleurs,
j'ai encore un problème: cette fois j'aimerai faire une macro ki permet d'ouvrir un autre fichier Excel, d'inserer une ligne, de la quadriler dans ce dernier et apres de mettre des valeurs provenant d'une des feuilles du premier fichier pour aller dans l'une des feuilles du fichier ouvert.
J'ai fait l'ouverture du fichier ki marche mais ma partie insertion de ligne me revoi l'erreur d'execution '1004' : erreur définie par l'application ou par l'onbjet. Voici le code:

Workbooks.Open Filename:=C:\\NomRecapitulatif.xls

Windows('NomRecapitulatif').Activate
Sheets('Feuil1').Select
Rows('2:2').Select 'l'erreur est là apparement
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
....

Voili Voilou
Kel kun peut m'aider???

Gillou

 

[Léa]

Bonsoir Gilou,

Je n'ai pas étudié complètement ton code, mais selon ce que tu penses au niveau de l'erreur, remplace Rows('2:2') par Rows(2)

A tout hasard

 

[Gillou]

Coucou Léa,
désolé ça marche quand même pas....

Help Me please
Gillou

 

[Léa]

en ce qui concerne l'erreur 1004 est-ce qu'il est précisé quelque chose autour deu style de ligne de la bordure ?

 

[Gillou]

Non non il n'y a marqué que: erreur
d'execution '1004' : erreur définie par l'application ou par l'onbjet. c tout

 

[michel_m]

Bonsoir Léa et Gillou

Gillou ton erreur vient de la ligne:

windows('tonclasseur'). activate

il aurait fallu marquer 'tonclasseur.xls'

sinon je te suggère pour les lignesd'après d'écrire ceci:

With Rows(2)
.Insert
.Borders.Weight = xlThin
End With
End Sub

qui parait faire la m^me chose, insérer et quadriller


A+
Michel

 

[Léa]

eh oui Michel, c'est ce qui est le plus évident qui échappe à l'oeil et de ce fait on cherche midi à 14 h

Bonne soirée

 

[galopin01]

bonsoir,
moi je ne suis pas arrivé à reproduire cette erreur 1004 dans ces conditions.
Par contre j'ai bien une erreur 1004 sur
Selection.Insert... si la feuille est protégée !

??