Bonjour,

Je suis novice sur la programmation de VBA.

J'ai créer ce programme avec l'aide de Youtube et je comprends pas pourquoi il bloque au niveau du texte en rouge.

Pouvez-vous m'aider svp ?

Je dois générer ce fichier souvent pour l'exporter vers mon fichier de travail

Merci par avance pour votre aide



Sub copier_coller_celluleA1_fichier2feuil1()

Dim wk_fichier As Workbook
Dim ws_fichier1feuil1 As Worksheet

Dim wk_fichier2 As Workbook
Dim ws_fichier2feuil1 As Worksheet

Dim der_ligne_1 As Long
Dim der_ligne_2 As Long

'définir les variables fichiers et onglets
Set wk_fichier = ActiveWorkbook
Set ws_fichier1feuil1 = wk_fichier.Worksheets(1)

Set wk_fichier2 = Application.Workbooks.Open("C:\Users\Jam\Desktop\Tableau JAM macro\EXTRACTION declaration-2023-04-20_11-58.xlsx")
Set ws_fichier2feuil1 = wk_fichier2.Worksheets(1)


'copier coller une plage de cellule

ws_fichier1feuil1.Range(ws_feuil1.Cells(2, 1), ws_feuil1.Cells(der_ligne_1, 2)).Copy ws_fichier2feuil1.Cells(der_ligne_2 + 1, 1)

'enregistrer et fermer fichier 2
wk_fichier2.Close (True)


End Sub