Alimenter un fichier de suivi Excel

voici l'exemple adapté:

Sub edlyg()
Dim wb As Workbook
Dim ws As Worksheet
Dim filename As String
Dim nlig As Long
Dim source As Worksheet

Set source = ThisWorkbook.ActiveSheet
filename = Environ("temp") & "/ccm/testedlyg.xlsx"
Set wb = Workbooks.Open(filename)
Set ws = wb.Worksheets(1)
nlig = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
'C3, C4, C7, C12 et C14
ws.Cells(nlig, 1) = Now()
ws.Cells(nlig, 2) = source.[C3]
ws.Cells(nlig, 3) = source.[C4]
ws.Cells(nlig, 4) = source.[C7]
ws.Cells(nlig, 5) = source.[C12]
ws.Cells(nlig, 6) = source.[C14]
wb.Save
wb.Close
End Sub

le nom complet du fichier doit être dans la ligne 9, la ligne 10 ne doit pas changer.
autre exemple de ligne 9:

filename="C:\data\temp/ccm/testedlyg.xlsx"

les lignes 15 à 19 copient les données à partir de la feuille active dans le fichier principal. tu peux changer la ligne 8 si tu veux prendre des données dans une autre feuille.

Je viens d'essayer et ai la ligne 10 surlignée en jaune

Sub edlyg()
Dim wb As Workbook
Dim ws As Worksheet
Dim filename As String
Dim nlig As Long
Dim source As Worksheet

Set source = ThisWorkbook.ActiveSheet
filename = Environ("temp") & "/ccm/testedlyg.xlsx"
Set wb = Workbooks.Open(filename)
Set ws = wb.Worksheets(1)
nlig = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
'C3, C4, C7, C12 et C14
ws.Cells(nlig, 1) = Now()
ws.Cells(nlig, 2) = source.[C3]
ws.Cells(nlig, 3) = source.[C4]
ws.Cells(nlig, 4) = source.[C7]
ws.Cells(nlig, 5) = source.[C12]
ws.Cells(nlig, 6) = source.[C14]
wb.Save
wb.Close
End Sub

que j'ai mis en gras dans ma copie

il faut que la ligne 9 contienne le nom complet d'un fichier existant, par exemple:

filename="C:\data\temp/ccm/testedlyg.xlsx"

quel est la message d'erreur?

Bonjour

Le voici
Erreur d'exécution 1004
il m'indique que le fichier est introuvable.
Je l'ai mis sous la racine du dossier dans lequel est le fichier source.