Copie de certaine valeur d un fichier et d une fenetre sur un autre fichier

bonjour

j ai fait pas mal de recherche avec chat gbt mais sans réussite

j ai un fichier "bon de production" et dans le fenêtre "caoutchouc" je veux prendre certaine valeur de différente casse pour les copier automatiquement a la dernier ligne du ficher "production_bs" dans la fenêtre atelier

le principe est que je fasse mes bon de production est qu il ce copie en ligne automatiquement dans un simple tableaux

voila ce que chat gbt me donne mais cela marche pas

Sub CopierVersPlanningProdBS()
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wbDest As Workbook
    Dim wsDest As Worksheet
    Dim lastRowDest As Long

    ' Ouvrir le fichier source
    Set wbSource = Workbooks.Open("C:\Users\delho\Desktop\BON ATELIER 2024.xlsm")
    ' Spécifier la feuille source
    Set wsSource = wbSource.Sheets("CAOUTCHOU")

    ' Ouvrir le fichier de destination
    Set wbDest = Workbooks.Open("C:\Users\delho\Desktop\Planning_Prod_BS.xlsx")
    ' Spécifier la feuille de destination
    Set wsDest = wbDest.Sheets("ATELIER")

    ' Trouver la dernière ligne utilisée dans la colonne A de la feuille de destination
    lastRowDest = wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Row + 1

    ' Copier la valeur de la cellule J3 de la feuille source vers la première ligne vide de la colonne A de la feuille de destination
    wsDest.Cells(lastRowDest, 1).Value = wbSource.Sheets("CAOUTCHOU").Range("J3").Value

    ' Fermer les fichiers sans enregistrer les modifications
    wbSource.Close False
    wbDest.Close True

    ' Libérer la mémoire
    Set wbSource = Nothing
    Set wsSource = Nothing
    Set wbDest = Nothing
    Set wsDest = Nothing
End Sub

je debut en vba , et j avoue que je comprend pas tous encore

d avance merci

Bonjour et bienvenue

le principe est que je fasse mes bon de production est qu il ce copie en ligne automatiquement dans un simple tableaux

La réponse à votre problème passe par savoir comment vous fonctionnez avec vos bons de production

Pensez à placer un fichier sans données sensibles

Cordialement