Ouvrir un fichier avec une macro

Bonjour à tous

Je vous explique mon problème

Je travail dans une petite structure, on me demande de faire une macro pour ouvrir un fichier est copier tout ce qui a dessus et puis y coller sur un autre classeur excel

Dans la macro, J'ouvre le fichier A.xlsx je sélectionne toutes les cellules que je colle dans le fichier Fabricant.xlsx

La seul difficulté que je rencontre c'est le moment de choisir le fichier car ce fichier ( A.xlsx )peut changer de nom du jour au lendemain :

Voici le début de mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Macro1() ' ' Macro1 Macro '   '   Workbooks.Open Filename:="A Définir" Cells.Select Range("A1").Activate Selection.Copy Windows("Fabricant.xlsx").Activate Sheets("Reception des donnees").Select Range("A1").Select ActiveSheet.Paste Sheets("Fabricant").Select End Sub

---

Voila ou je suis coincer si vous avez une idée pour m'éclairer !

Merci par avance

Cordialement

re
oui
getopenfilename

Merci réponse parfaite,

J'ai encore un soucis, si le fichier est déjà ouvert cela ne fonctionne pas, car Excel ne ré ouvre pas 2 fois le même fichier,
Avez vous la solution ?

Merci encore pour le nom de l'application

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sheets("Reception des donnees").Select Range("A1").Select Workbooks.Open Filename:=Application.GetOpenFilename       Application.Wait Now + TimeValue("0:00:05") Cells.Select Selection.Copy Windows("Fabricant.xlsx").Activate Sheets("Reception des donnees").Select Range("A1").Select ActiveSheet.Paste Sheets("Fabricant").Select Range("S8").Select

---

Bonjour,

Voici le principe :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Wkb As Workbook Wouvert = False For Each Wkb In Workbooks If Wkb.Name = Nom_du_fichier Then Wouvert = True End If   If Wouvert = False Then ' ouvrir le fichier End If

---

++