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

pche · 2 Novembre 2007

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 :

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 · 2 Novembre 2007

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 :

Code:

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 :

Code:

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

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

pche

Guest

Cousinhub

XLDnaute Barbatruc

Discussions similaires

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

pche

Guest

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency