Salut le forum,
Je rencontre un ptit souci sur le code ci-après :
Message d'erreur apparaissant : erreur définie par l'application ou par l'objet..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Nomenclature.Sheets(1).Range("A6:C" & LastrowNomenclature & ",E6:E " & LastrowNomenclature & "").Copy Sheets("PiecesAFabriquer").Activate LastrowPieceAFabriquer = Sheets("PiecesAFabriquer").Range("A1").End(xlDown).Row + 1 Sheets("PiecesAFabriquer").Range("A" & LastrowPieceAFabriquer).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Quelqu'un aurait-il une ptite idée sur la question????
@+ Jeanvaljean
Partager