Bonjour =E0 chaque jour il y a des donn=E9es qui sont entr=E9es=20
dans un fichier et qui est sauvegard=E9 sous le nom=20
cgt0818.xls 0818 repr=E9sentent 18 ao=FBt. Le lendemain le=20
nom est cgt0819.xlc donc il y un nouveau fichier =E0=20
chaque jour =20
j'ai fait la macro suivante.
Sub Macro11()
'
' Macro11 Macro
' Macro enregistr=E9e le 22-08-2003 par Jacques=20
''
ChDir "C:\rev\2003\aout"
Workbooks.Open Filename:=3D"C:\rev\2003\aout\cgt0818.xls"
Application.Goto Reference:=3D"covigo"
Selection.Copy
Windows("REVENUS.xls").Activate
ActiveSheet.Paste
End Sub
Lorsque j'ex=E9cute cette macro j'aimerais que l'utilisateur=20
puisse choisir quel fichier il veux copier. Donc=20
j'aimerais qu'il y est une fen=EAtre qui s'ouvre et qui me=20
pose les questions suivantes : =20
Quelle ann=E9e : 2003 =20
Quel mois: ao=FBt=20
Quel jour: 0818
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Salut Jacques Peut-être en insérant inputbox dans ta macro, année = InputBox("entrez l'année") mois = InputBox("entrez le mois") jour = InputBox("entrez le jour")
A adapté bien sur. JJ "jacques" a écrit dans le message news: 0dae01c368c0$99f9f290$ Bonjour à chaque jour il y a des données qui sont entrées dans un fichier et qui est sauvegardé sous le nom cgt0818.xls 0818 représentent 18 août. Le lendemain le nom est cgt0819.xlc donc il y un nouveau fichier à chaque jour
j'ai fait la macro suivante.
Sub Macro11() ' ' Macro11 Macro ' Macro enregistrée le 22-08-2003 par Jacques '' ChDir "C:rev2003aout" Workbooks.Open Filename:="C:rev2003aoutcgt0818.xls" Application.Goto Reference:="covigo" Selection.Copy Windows("REVENUS.xls").Activate ActiveSheet.Paste End Sub Lorsque j'exécute cette macro j'aimerais que l'utilisateur puisse choisir quel fichier il veux copier. Donc j'aimerais qu'il y est une fenêtre qui s'ouvre et qui me pose les questions suivantes : Quelle année : 2003 Quel mois: août Quel jour: 0818
Et que la macro poursuit son travail!
Merci
Salut Jacques
Peut-être en insérant inputbox dans ta macro,
année = InputBox("entrez l'année")
mois = InputBox("entrez le mois")
jour = InputBox("entrez le jour")
A adapté bien sur.
JJ
"jacques" <ski553@hotmail.com> a écrit dans le message news:
0dae01c368c0$99f9f290$a401280a@phx.gbl...
Bonjour à chaque jour il y a des données qui sont entrées
dans un fichier et qui est sauvegardé sous le nom
cgt0818.xls 0818 représentent 18 août. Le lendemain le
nom est cgt0819.xlc donc il y un nouveau fichier à
chaque jour
j'ai fait la macro suivante.
Sub Macro11()
'
' Macro11 Macro
' Macro enregistrée le 22-08-2003 par Jacques
''
ChDir "C:rev2003aout"
Workbooks.Open Filename:="C:rev2003aoutcgt0818.xls"
Application.Goto Reference:="covigo"
Selection.Copy
Windows("REVENUS.xls").Activate
ActiveSheet.Paste
End Sub
Lorsque j'exécute cette macro j'aimerais que l'utilisateur
puisse choisir quel fichier il veux copier. Donc
j'aimerais qu'il y est une fenêtre qui s'ouvre et qui me
pose les questions suivantes :
Quelle année : 2003
Quel mois: août
Quel jour: 0818
Salut Jacques Peut-être en insérant inputbox dans ta macro, année = InputBox("entrez l'année") mois = InputBox("entrez le mois") jour = InputBox("entrez le jour")
A adapté bien sur. JJ "jacques" a écrit dans le message news: 0dae01c368c0$99f9f290$ Bonjour à chaque jour il y a des données qui sont entrées dans un fichier et qui est sauvegardé sous le nom cgt0818.xls 0818 représentent 18 août. Le lendemain le nom est cgt0819.xlc donc il y un nouveau fichier à chaque jour
j'ai fait la macro suivante.
Sub Macro11() ' ' Macro11 Macro ' Macro enregistrée le 22-08-2003 par Jacques '' ChDir "C:rev2003aout" Workbooks.Open Filename:="C:rev2003aoutcgt0818.xls" Application.Goto Reference:="covigo" Selection.Copy Windows("REVENUS.xls").Activate ActiveSheet.Paste End Sub Lorsque j'exécute cette macro j'aimerais que l'utilisateur puisse choisir quel fichier il veux copier. Donc j'aimerais qu'il y est une fenêtre qui s'ouvre et qui me pose les questions suivantes : Quelle année : 2003 Quel mois: août Quel jour: 0818
