Ouvir un fichier pour copier des données

Bonjour a tous,

Je reviens sur un ancien sujet, en effet une partie de la solution à été traitée

Il s'agit d'un code VBA qui permet de copier et de coller des données d'un document (emetteur) vers un autre document (récepteur)

Le dernier problème à résoudre est de pouvoir insérer un code VBA qui perment d'ouvir le document (récepteur) afin d'y coller les données du document (émetteur)

Lien vers fichier récepteur ("U:\OPERATIONS\01-Secteur\05-Tech\Road To Target\t100\t100 dynamiques-900.xlsm")

Ci-dessous le code en question:

Sub Rectangle9_Cliquer()

Application.ScreenUpdating = False

i = 6

j = 4

While Feuil2.Range("B" & i) <> ""

If Feuil2.Range("B" & i) = "CWB" And Feuil2.Range("C" & i) = ("PEC-EBAUCHE") Or Feuil2.Range("C" & i) = ("PEC-FINITION") And Feuil2.Range("K" & i) = "<> NA" And Feuil2.Range("M" & i) <> 0 And (Feuil2.Range("V" & i) = "G*") Then

Feuil1.Range("B" & j) = Feuil2.Range("C" & i)

Feuil1.Range("C" & j) = Feuil2.Range("D" & i)

Feuil1.Range("D" & j) = Feuil2.Range("E" & i)

Feuil1.Range("E" & j) = Feuil2.Range("I" & i)

Feuil1.Range("F" & j) = Feuil2.Range("J" & i)

Feuil1.Range("G" & j) = Feuil2.Range("K" & i)

Feuil1.Range("H" & j) = Feuil2.Range("L" & i)

Feuil1.Range("I" & j) = Feuil2.Range("M" & i)

Feuil1.Range("J" & j) = Feuil2.Range("R" & i)

Feuil1.Range("K" & j) = Feuil2.Range("S" & i)

Feuil1.Range("L" & j) = Feuil2.Range("T" & i)

Feuil1.Range("M" & j) = Feuil2.Range("U" & i)

Feuil1.Range("N" & j) = Feuil2.Range("V" & i)

Feuil1.Range("O" & j) = Feuil2.Range("AR" & i)

j = j + 1

End If

i = i + 1

Wend

End Sub

Je vous remercie d'avance pour toute aide

BOUBOU