Discussion :

[flyhb]

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[flyhb]

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.dialogs.Item(xlDialogOpen).Show

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

[flyhb]

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

[ouskel'n'or]

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...

[flyhb]

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

[flyhb]

cela ne marche pas... aider moi svp

[ouskel'n'or]

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