Copier les données d'un fichier vers un autre fichier Excel

Bonjour,

Je suis novice dans l'utilisation du VBA.

Je cherche à copier entièrement une ligne d'un tableau d'un fichier "BdB Paps brutes" dans le fichier "exportation paps" si la référence de la ligne contenu dans la première cellule de la ligne de BdB Paps n'est pas déjà contenu dans le tableau de la feuille "Export Paps csv".

J'ai tenté un code mais cela ne fonctionne pas, le message d'erreur est " la méthode Range de l'objet "_Global" a échoué".

Sub importer_info2()

j = 2

For Each cell In Range("A")

Workbooks("Exportation Paps .xlsx").Worksheets("Export Paps csv").Select

If Workbooks("BdD brutes PAPS.xlsx").Sheets(1).Range("C" & j) <> cell.Value Then

End If

With Workbooks("Exportation Paps .xlsx").Worksheets("Export Paps csv")

Workbooks("BdD brutes PAPS.xlsx").Worksheets("BdD").Rows(j).Copy .Cells(.Rows.Count, "A").End(xlUp)(2)

End With

Next cell

End Sub

Merci d'avance pour votre aide!

Rechercher des sujets similaires à "copier donnees fichier"