Problème pour copier/coller d'un classeur à 1 autre

[pche]

Bonjour à tous.

voilà, j'ai créer un classeur pour éditer des devis. la première feuille (RC) permet de renseigner les champs puis une macro copie vers une autre feuille (Devis). Pour des question de sécurité (les formules et macros) j'ai écrit un bout de code pour copier le tout le contenu de la feuille devis dans un nouveau classeur. Lorsque je créer le bouton associé à la macro il marche mais ne me copie pas tout le contenu.

Voilà le code :

    Cells.Select
    Selection.Copy
    Workbooks.Open Filename:="Devis.xls"
    ActiveSheet.Paste

La ligne ActiveSheet.Paste fait buguer la macro.

Merci de m'aider

 

[Cousinhub]

Re : Problème pour copier/coller d'un classeur à 1 autre

Bonjour, pche

la cellule sélectionnée dans ton classeur Devis.xls lors de l'ouverture est-elle la cellule A1?

sinon, remplace par ceci :

Sub ess()
Cells.Select
    Selection.Copy
    Workbooks.Open Filename:="Devis.xls"
    With ActiveSheet
        .[a1].Select
        .Paste
    End With
End Sub

ou à l'ouverture du classeur Devis, dans l'évènement Thisworkbook, tu colles ceci, et tu dois pouvoir garder ton code :

Private Sub Workbook_Open()
Sheets("Feuil1").[a1].Select
End Sub