(Re)Bonjour,
Encore un petit coup de main svp. J'ai le code suivant qui marchait très bien et maintenant il me renvoie l'erreur '1004': erreur définie par l'application ou l'objet:
Les deux codes sont intégrés à ma feuille et fonctionnaient très bien.
cordialment
Encore un petit coup de main svp. J'ai le code suivant qui marchait très bien et maintenant il me renvoie l'erreur '1004': erreur définie par l'application ou l'objet:
Code:
Sub ExtractionColonneFeuil1()
Worksheets("Tableau Général").Columns(1).Copy
Worksheets("Les Règles Prudentielles").Columns(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(2).Copy
Worksheets("Les Règles Prudentielles").Columns(2).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(5).Copy
Worksheets("Les Règles Prudentielles").Columns(3).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(6).Copy
Worksheets("Les Règles Prudentielles").Columns(4).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(6).Copy
Worksheets("Les Règles Prudentielles").Columns(5).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(7).Copy
Worksheets("Les Règles Prudentielles").Columns(6).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(13).Copy
Worksheets("Les Règles Prudentielles").Columns(7).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(14).Copy
Worksheets("Les Règles Prudentielles").Columns(8).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(15).Copy
Worksheets("Les Règles Prudentielles").Columns(9).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(16).Copy
Worksheets("Les Règles Prudentielles").Columns(10).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(17).Copy
Worksheets("Les Règles Prudentielles").Columns(11).PasteSpecial Paste:=xlPasteValues
Worksheets("TableauGénéral").Columns(18).Copy
Worksheets("Les Règles Prudentielles").Columns(12).PasteSpecial Paste:=xlPasteValues
End Sub
Code:
Sub ExtractionDonnéesFeuil1()
Worksheets("Tableau Général").Columns(1).Copy Worksheets("Les Règles Prudentielles").Columns(1)
Worksheets("Tableau Général").Columns(2).Copy Worksheets("Les Règles Prudentielles").Columns(2)
Worksheets("Tableau Général").Columns(5).Copy Worksheets("Les Règles Prudentielles").Columns(3)
Worksheets("Tableau Général").Columns(6).Copy Worksheets("Les Règles Prudentielles").Columns(4)
Worksheets("Tableau Général").Columns(6).Copy Worksheets("Les Règles Prudentielles").Columns(5)
Worksheets("Tableau Général").Columns(7).Copy Worksheets("Les Règles Prudentielles").Columns(6)
Worksheets("Tableau Général").Columns(13).Copy Worksheets("Les Règles Prudentielles").Columns(7)
Worksheets("Tableau Général").Columns(14).Copy Worksheets("Les Règles Prudentielles").Columns(8)
Worksheets("Tableau Général").Columns(15).Copy Worksheets("Les Règles Prudentielles").Columns(9)
Worksheets("Tableau Général").Columns(16).Copy Worksheets("Les Règles Prudentielles").Columns(10)
Worksheets("Tableau Général").Columns(17).Copy Worksheets("Les Règles Prudentielles").Columns(11)
Worksheets("Tableau Général").Columns(18).Copy Worksheets("Les Règles Prudentielles").Columns(12)
End Sub
Les deux codes sont intégrés à ma feuille et fonctionnaient très bien.
cordialment