Copier/coller dans un autre classeur

Question

Bonjour, 

Je souhaite copier le contenu de mon classeur courant dans une autre classeur. 
J'utilise Copy/Paste mais ca ne fonctionne je tombe sur une erreur au moment de coller (Propiété ou méthode non gérée par cet objet.)

Voici le code que j'ai pour le moment :
    Dim DerLigne_NFC As Long
    
'Dernière ligne du fichier
    DerLigne_NFC = Range("B" & Rows.Count).End(xlUp).Row

ThisWorkbook.Sheets("Feuil1").Range("A1:I" & DerLigne_NFC).Copy

'Ouverture du fichier
    Workbooks.Open Filename:= _
        "C:\Users\Kevin\Desktop\GCE\Etiquettes UBIWIZZ\Envoi_vers_P-touch.xls"       
        
    Range("A1:I" & DerLigne_NFC).Paste

'Fermeture du fichier                  
    Windows("Envoi_vers_P-touch.xls").Close   
     
    Worksheets("Feuil1").Activate

Je ne sais pas pourquoi ça ne fonctionne pas...
Quelqu'un pourrait m'éclairer ?

merci!

Configuration: Windows / Firefox 52.0

ThauTheme · Answer

Bonjour le Roi, bonjour le forum,

Dans ce genre de problème il faut toujours bien spécifier la source et la destination. Essaie comme ça :

Sub Macro1()
Dim CS As Workbook
Dim OS As Worksheet
Dim CD As Workbook
Dim OD As Worksheet
Dim DerLigne_NFC As Long

Set CS = ThisWorkbook
Set OS = CS.Sheets("Feuil1")
Workbooks.Open Filename:="C:\Users\Kevin\Desktop\GCE\Etiquettes UBIWIZZ\Envoi_vers_P-touch.xls"
Set CD = ActiveWorkbook
Set OD = CD.Sheets("Feuil1")
DerLigne_NFC = OS.Range("B" & Rows.Count).End(xlUp).Row
OS.Range("A1:I" & DerLigne_NFC).Copy OD.Range("A1")
CD.Close
End Sub

roideseaux · Answer

Impecc, ca fonctionne !
Tu sais pourquoi ca ne marche pas avec .Paste ?

J'ai juste ajouté un petit CD.Save parce que sinon le fichier n'est pas fermé et demande une sauvegarde... ^^

En tout cas, merci :)

Copier/coller dans un autre classeur

2 réponses

Discussions similaires

Newsletters