Remplir automatiquement une feuille en fonction d'un autre fichier

Bonjour à vous,

Je vous explique mon problème :

J'ai deux fichiers Excel distincts, présents dans le même dossier dans mes documents.

L'un (que je vais appeler fichier A) contient un tableau, avec en colonne A (de A1 à A"fin"), un code .

Dans le second (fichier B), j'ai une fiche dans laquelle je souhaite caler en cellule B8, le premier code de la colonne, que la macro aura préalablement gardé en mémoire.

Ensuite je souhaiterai que le fichier B contenant le code, soit enregistré sous, mais ça je me débrouille .

Une fois la fiche avec le premier code est enregistrée, on passe au second code, puis rebelote, jusqu'au dernier code de la colonne.

Je vous serai extrêmement redevable.

Bien Cordialement,

Bonjour,

Voici un exemple,

note/ j'ai supposé que les deux fichiers sont ouvert.

Sub test()
Set wk1 = ThisWorkbook 'fichier B
Set sh1 = wk1.Sheets(1) 'en Feuil1

Set wk2 = Workbooks("Fichier.xlsx") 'contient un tableau, avec en colonne A (de A1 à A"fin")
Set sh2 = wk2.Sheets(1)  'en Feuil1

For i = 1 To sh2.Cells(Rows.Count, 1).End(xlUp).Row
 sh1.Range("B8") = sh2.Cells(i, "A").Value
 sh2.Copy
 'code pour SaveAs
Next i
End Sub