Execution interrompue sans raison

Bonjour,

J'ai un gros problème, lorsque je lance une macro un message arrive pour me dire exécution interrompue mais il n'y a aucun code erreur. J'ai le choix de continuer, d'arrêter ou débogage.

Quand je fais la méthode pas à pas se message n'apparait pas.

Mon code (les deux lignes en rouge sont celles qui sont surlignées quand je fais débogage :

Sub date_planification_BOBINE()

'Figer l'écran

Application.ScreenUpdating = False

Worksheets("Export").Visible = True

Worksheets("Export").Activate

'Copier l'export dans le fichier appro bobine

'Ouvre le fichier source

Workbooks.Open ("\\vm-05-lefrancq\Direct Planning\Planning Trad export\export_task_V2.csv")

'Copie-colle le fichier

Workbooks("export_task_V2.csv").Worksheets("export_task_V2").Cells.Copy _

Workbooks("APPRO BOBINE.xlsm").Worksheets("Export").Range("A1")

'Fermer le fichier source

Workbooks("export_task_V2.csv").Close

Aurez vous une solution ?

Bonjour,

Tu pourrais tester :

ActiveWorkbook.Worksheets("export_task_V2").Cells.Copy _ 
Workbooks("APPRO BOBINE.xlsm").Worksheets("Export").Range("A1") 

En espèrant que cela t'aide

Merci beaucoup ! J'ai pas eu le message

A+

juju125 a écrit :

Merci beaucoup ! J'ai pas eu le message

A+

De rien ...

Bonjour,

Une petite contribution.

Cdlt.

Public Sub date_planification_BOBINE()
Dim wb As Workbook, ws As Worksheet
    Application.ScreenUpdating = False
    Set ws = ActiveWorkbook.Worksheets("Export")
    ws.Visible = -1
    Set wb = Workbooks.Open("\\vm-05-lefrancq\Direct Planning\Planning Trad export\export_task_V2.csv")
    With wb
        .Worksheets("export_task_V2").Cells.Copy ws.Cells(1)
        .Close False
    End With
End Sub