macro qui ouvre un fichier et execute le reste de la macro

bonjour comment faire pour executer une macro qui ouvrirai un fichier excel et qui executerai la suite de la macro dans le fichier choisi

merci bcp

Code:

---

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

Dim Chemin as string ' le répertoire Dim NomFich as string 'le nom du fichier Dim CL1 as workbook 'Le classeur Dim FL1 as worksheet 'la feuille de calcul Chemin = "D:\Mes classeurs\" NomFich = "Le classeur.xls" Set CL1 = Workbooks.open filname:=Chemin & NomFich ' CL1 => instance du classeur Set FL1 = CL1.worksheets("Feuil1") 'FL1 => instance de la feuille de calculs "feuil1" With FL1 'avec l'instance de la feuille "feuil1" (FL1) on écrit dans la cellule "A1" .Range("A1") = "Ceci est un début" End with 'Ici on lit ce qui se trouve dans la cellule "A1" de la feuille "feuil1" en utilisant son instance. Msgbox FL1.Range("A1")

---

merci mais c pas ca en fait que je veux faire

je voudrai avoir un fichier avec une macro dedans qui :

ouvre la boite de dialogue ouvrir un fichier
je choisi un fichier excel
et le reste de la macro s'éxecute dans le fichier ouvert

merci

Code:

---

Application.dialogs.Item(xlDialogOpen).Show

---

(on appelle cette boîte de dialogue une "boîte de dialogue intégrée" ;) )

oui merci mais je ne peux pas mettre la suite de ma macro derierre cette ligne !!!!!!

Citation:

---

Envoyé par flyhb

oui merci mais je ne peux pas mettre la suite de ma macro derierre cette ligne !!!!!!

---

Si !!!!!!!! De même que le code précédent qui ouvre un fichier puis continue à s'exécuter.
Mais si tu expliquais ça autrement...

ba ecoute désolé ca ne marche pas, ca ouvre bien la boite de dialogue, ouvre le fichier mais execute rien sur le nouveau fichier ouvert

cela ne marche pas... aider moi svp

Montre le code tel que tu l'as transcrit.
Où places-tu ce code ?
A+