J'ai deux classeurs : dans le premier il y a tous les CA des différents
Magasins soit un magasin par feuille, les onglets portent le nom de la
ville concernée soit : Draguignan, St Tropez etc
Dans le deuxième classeur je récupére ces CA par copier avec liaison. Mon
problème est le suivant : lorsque je rajoute une ville par exemple Vidauban
dans le premier classeur je souhaiterais mettre à jour les données dans le
deuxième classeur via une macro j'ai essayé ceci :
Sub AA()
'
' AA Macro
'
Range("P2").Select
Windows("agence Vidauban 2001 2002.xls").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True
End Sub
cela fonctionne si je me positionne sur la bonne feuille ici Vidauban, pour
éviter les risques d'erreurs je souhaiterais pouvoir exécuter cette macro
sans devoir me positionner dans la feuille correspondante. J'espère avoir
été assez claire !
Merci Pascale, pour ce gentil message ! Bisous -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Pascale" a écrit dans le message de news:
Bonjour Sabatier et Philippe,
Excusez-moi, mais je reprends le fil aujourd'hui, alors je répète le message "merci beaucoup pour ton aide, cela marche et c'est extra" et je rajoute merci à tous car depuis que j'ai découvert ce news groupe, j'ai fait d'énormes progrès et je ne me sens plus seule face à mes problèmes Excel Bon journée à tous les deux
Pascale "sabatier" a écrit dans le message de news:
bonjour pascale peux-tu répéter ce message, steplé : j'ai trop peur que philippe R ne l'ait pas vu... mais sache qu'il est très gentil...je parle de ton message, bien sûr jps
Pascale a écrit:
Bonjour Sabatier,
Merci beaucoup pour ton aide, cela marche c'est extra. Excuse pour le retard, mais je n'ai pu m'y remettre qu'aujourd'hui.
Bonne journée Pascale "sabatier" a écrit dans le message de news:
rere si tu peux écrire la macro dans ton classeur départ (celui avec les
villes) ce
serait mieux mais tu dois aussi ouvrir celui arrivée, bien sûr, pour que
le
Activate 02.06 fonctionne...pense aussi à sélectionner dans ce dernier le
Range
P2 qui reçoit le link... si tu veux laisser la macro dans ton second classeur, il faut après le
Then Exit
Sub que tu activates le classeur départ dont rien ne me fait dire comment
il
s'appelle... HTH jps
Pascale wrote:
Re re re bonjour,
J'ai testé la Inputbox et lorsque je lance la macro cela bug.. à la
ligne
Sheets(ville).Activate, j'avoue que je ne comprends pas, à préciser
niveau
débutante en VBA
Précisions : la macro se trouve dans le classeur "02.06 prjete.xls qui
doit
recevoir le copier coller avec liaison
ville = InputBox("tapez la ville(nom de la feuille):") If ville = "" Then Exit Sub Sheets(ville).Activate Range("M3").Select Selection.Copy Windows("02 06 prjete.xls").Activate ActiveSheet.Paste Link:=True End Sub
Mille mercis Pascale
"sabatier" a écrit dans le message de news:
rebonjour pascale je ne comprends toujours pas bien malgré le fait que tu t'as gouré.... Windows. Activate active un classeur Sheets ("vidauban"). Activate activera la feuille vidauban du
classeur
activé... moi, à ta place je ferais une Inputbox de ce style :
ville = Inputbox("tapez la ville", "pour sélectionner la feuille dans
mais je ne vois pas ce que vient faire le Range("P2").Select à suivre jps
Pascale wrote:
tout d'abord merci pour ton aide effectivement je me suis trompée en seconde ligne j'acitvate le
classeur
agence ceres 2001 2002.xls et non pas la feuille Vidauban et cela
donne
donc
: Sub AA()
' ' AA Macro ' Range("P2").Select Windows("agence Agence Ceres 2001 2002.xls").Activate ActiveWindow.SmallScroll ToRight:=4 Range("M3").Select Selection.Copy Windows("02 06 prjete.xls").Activate ActiveSheet.Paste Link:=True End Sub
Si je me positionne par erreur sur la feuille Saint Tropez la mise
à
jour
se fait sur St Trop et non pas sur Vidauban comme je le souhaiterais
Merci encore Pascale
"sabatier" a écrit dans le message de news:
bonjour pascale il ne me semble pas que tu aies été assez claire... tu dis que tu dois être positionnée dans la feuille vidauban...ce
n'est
pas ce que je comprends de ta macro puisqu'en seconde ligne, tu activates ladite feuille et je suppose que tu pars d"une autre feuille, celle où se trouve P2, non? à suivre jps
Pascale wrote:
Bonjour à toutes et à tous,
Je travaille sous Excel97
J'ai deux classeurs : dans le premier il y a tous les CA des
différents
Magasins soit un magasin par feuille, les onglets portent le
nom de
la
ville concernée soit : Draguignan, St Tropez etc
Dans le deuxième classeur je récupére ces CA par copier avec
liaison.
Mon
problème est le suivant : lorsque je rajoute une ville par
exemple
Vidauban
dans le premier classeur je souhaiterais mettre à jour les
données
dans
le
deuxième classeur via une macro j'ai essayé ceci : Sub AA() ' ' AA Macro ' Range("P2").Select Windows("agence Vidauban 2001 2002.xls").Activate ActiveWindow.SmallScroll ToRight:=4 Range("M3").Select Selection.Copy Windows("02 06 prjete.xls").Activate ActiveSheet.Paste Link:=True End Sub cela fonctionne si je me positionne sur la bonne feuille ici
Vidauban,
pour
éviter les risques d'erreurs je souhaiterais pouvoir exécuter
cette
macro
sans devoir me positionner dans la feuille correspondante.
J'espère
avoir
été assez claire !
Merci à tous et bonne journée,
Merci Pascale, pour ce gentil message !
Bisous
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Pascale" <p.vasnier@tiscali.fr> a écrit dans le message de
news:OwwSACaWDHA.2360@TK2MSFTNGP12.phx.gbl...
Bonjour Sabatier et Philippe,
Excusez-moi, mais je reprends le fil aujourd'hui, alors je répète le message
"merci beaucoup pour ton aide, cela marche et c'est extra" et je rajoute
merci à tous car depuis que j'ai découvert ce news groupe, j'ai fait
d'énormes progrès et je ne me sens plus seule face à mes problèmes Excel
Bon journée à tous les deux
Pascale
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F2AD9BD.70104@wanadoo.fr...
bonjour pascale
peux-tu répéter ce message, steplé : j'ai trop peur que philippe R ne
l'ait pas vu...
mais sache qu'il est très gentil...je parle de ton message, bien sûr
jps
Pascale a écrit:
Bonjour Sabatier,
Merci beaucoup pour ton aide, cela marche c'est extra. Excuse pour le
retard, mais je n'ai pu m'y remettre qu'aujourd'hui.
Bonne journée Pascale
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F27FB3D.B8673937@wanadoo.fr...
rere
si tu peux écrire la macro dans ton classeur départ (celui avec les
villes) ce
serait mieux mais tu dois aussi ouvrir celui arrivée, bien sûr, pour que
le
Activate 02.06 fonctionne...pense aussi à sélectionner dans ce dernier
le
Range
P2 qui reçoit le link...
si tu veux laisser la macro dans ton second classeur, il faut après le
Then Exit
Sub que tu activates le classeur départ dont rien ne me fait dire
comment
il
s'appelle...
HTH
jps
Pascale wrote:
Re re re bonjour,
J'ai testé la Inputbox et lorsque je lance la macro cela bug.. à la
ligne
Sheets(ville).Activate, j'avoue que je ne comprends pas, à préciser
niveau
débutante en VBA
Précisions : la macro se trouve dans le classeur "02.06 prjete.xls qui
doit
recevoir le copier coller avec liaison
ville = InputBox("tapez la ville(nom de la feuille):")
If ville = "" Then Exit Sub
Sheets(ville).Activate
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True
End Sub
Mille mercis Pascale
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F27E191.B2051B09@wanadoo.fr...
rebonjour pascale
je ne comprends toujours pas bien malgré le fait que tu t'as gouré....
Windows. Activate active un classeur
Sheets ("vidauban"). Activate activera la feuille vidauban du
classeur
activé...
moi, à ta place je ferais une Inputbox de ce style :
ville = Inputbox("tapez la ville", "pour sélectionner la feuille dans
mais je ne vois pas ce que vient faire le Range("P2").Select
à suivre
jps
Pascale wrote:
tout d'abord merci pour ton aide
effectivement je me suis trompée en seconde ligne j'acitvate le
classeur
agence ceres 2001 2002.xls et non pas la feuille Vidauban et cela
donne
donc
:
Sub AA()
'
' AA Macro
'
Range("P2").Select
Windows("agence Agence Ceres 2001 2002.xls").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True
End Sub
Si je me positionne par erreur sur la feuille Saint Tropez la mise
à
jour
se fait sur St Trop et non pas sur Vidauban comme je le souhaiterais
Merci encore
Pascale
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F27AFDE.B5233366@wanadoo.fr...
bonjour pascale
il ne me semble pas que tu aies été assez claire...
tu dis que tu dois être positionnée dans la feuille vidauban...ce
n'est
pas ce
que je comprends de ta macro puisqu'en seconde ligne, tu activates
ladite
feuille et je suppose que tu pars d"une autre feuille, celle où se
trouve P2,
non?
à suivre
jps
Pascale wrote:
Bonjour à toutes et à tous,
Je travaille sous Excel97
J'ai deux classeurs : dans le premier il y a tous les CA des
différents
Magasins soit un magasin par feuille, les onglets portent le
nom de
la
ville concernée soit : Draguignan, St Tropez etc
Dans le deuxième classeur je récupére ces CA par copier avec
liaison.
Mon
problème est le suivant : lorsque je rajoute une ville par
exemple
Vidauban
dans le premier classeur je souhaiterais mettre à jour les
données
dans
le
deuxième classeur via une macro j'ai essayé ceci :
Sub AA()
'
' AA Macro
'
Range("P2").Select
Windows("agence Vidauban 2001 2002.xls").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True
End Sub
cela fonctionne si je me positionne sur la bonne feuille ici
Vidauban,
pour
éviter les risques d'erreurs je souhaiterais pouvoir exécuter
cette
macro
sans devoir me positionner dans la feuille correspondante.
Merci Pascale, pour ce gentil message ! Bisous -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Pascale" a écrit dans le message de news:
Bonjour Sabatier et Philippe,
Excusez-moi, mais je reprends le fil aujourd'hui, alors je répète le message "merci beaucoup pour ton aide, cela marche et c'est extra" et je rajoute merci à tous car depuis que j'ai découvert ce news groupe, j'ai fait d'énormes progrès et je ne me sens plus seule face à mes problèmes Excel Bon journée à tous les deux
Pascale "sabatier" a écrit dans le message de news:
bonjour pascale peux-tu répéter ce message, steplé : j'ai trop peur que philippe R ne l'ait pas vu... mais sache qu'il est très gentil...je parle de ton message, bien sûr jps
Pascale a écrit:
Bonjour Sabatier,
Merci beaucoup pour ton aide, cela marche c'est extra. Excuse pour le retard, mais je n'ai pu m'y remettre qu'aujourd'hui.
Bonne journée Pascale "sabatier" a écrit dans le message de news:
rere si tu peux écrire la macro dans ton classeur départ (celui avec les
villes) ce
serait mieux mais tu dois aussi ouvrir celui arrivée, bien sûr, pour que
le
Activate 02.06 fonctionne...pense aussi à sélectionner dans ce dernier le
Range
P2 qui reçoit le link... si tu veux laisser la macro dans ton second classeur, il faut après le
Then Exit
Sub que tu activates le classeur départ dont rien ne me fait dire comment
il
s'appelle... HTH jps
Pascale wrote:
Re re re bonjour,
J'ai testé la Inputbox et lorsque je lance la macro cela bug.. à la
ligne
Sheets(ville).Activate, j'avoue que je ne comprends pas, à préciser
niveau
débutante en VBA
Précisions : la macro se trouve dans le classeur "02.06 prjete.xls qui
doit
recevoir le copier coller avec liaison
ville = InputBox("tapez la ville(nom de la feuille):") If ville = "" Then Exit Sub Sheets(ville).Activate Range("M3").Select Selection.Copy Windows("02 06 prjete.xls").Activate ActiveSheet.Paste Link:=True End Sub
Mille mercis Pascale
"sabatier" a écrit dans le message de news:
rebonjour pascale je ne comprends toujours pas bien malgré le fait que tu t'as gouré.... Windows. Activate active un classeur Sheets ("vidauban"). Activate activera la feuille vidauban du
classeur
activé... moi, à ta place je ferais une Inputbox de ce style :
ville = Inputbox("tapez la ville", "pour sélectionner la feuille dans
mais je ne vois pas ce que vient faire le Range("P2").Select à suivre jps
Pascale wrote:
tout d'abord merci pour ton aide effectivement je me suis trompée en seconde ligne j'acitvate le
classeur
agence ceres 2001 2002.xls et non pas la feuille Vidauban et cela
donne
donc
: Sub AA()
' ' AA Macro ' Range("P2").Select Windows("agence Agence Ceres 2001 2002.xls").Activate ActiveWindow.SmallScroll ToRight:=4 Range("M3").Select Selection.Copy Windows("02 06 prjete.xls").Activate ActiveSheet.Paste Link:=True End Sub
Si je me positionne par erreur sur la feuille Saint Tropez la mise
à
jour
se fait sur St Trop et non pas sur Vidauban comme je le souhaiterais
Merci encore Pascale
"sabatier" a écrit dans le message de news:
bonjour pascale il ne me semble pas que tu aies été assez claire... tu dis que tu dois être positionnée dans la feuille vidauban...ce
n'est
pas ce que je comprends de ta macro puisqu'en seconde ligne, tu activates ladite feuille et je suppose que tu pars d"une autre feuille, celle où se trouve P2, non? à suivre jps
Pascale wrote:
Bonjour à toutes et à tous,
Je travaille sous Excel97
J'ai deux classeurs : dans le premier il y a tous les CA des
différents
Magasins soit un magasin par feuille, les onglets portent le
nom de
la
ville concernée soit : Draguignan, St Tropez etc
Dans le deuxième classeur je récupére ces CA par copier avec
liaison.
Mon
problème est le suivant : lorsque je rajoute une ville par
exemple
Vidauban
dans le premier classeur je souhaiterais mettre à jour les
données
dans
le
deuxième classeur via une macro j'ai essayé ceci : Sub AA() ' ' AA Macro ' Range("P2").Select Windows("agence Vidauban 2001 2002.xls").Activate ActiveWindow.SmallScroll ToRight:=4 Range("M3").Select Selection.Copy Windows("02 06 prjete.xls").Activate ActiveSheet.Paste Link:=True End Sub cela fonctionne si je me positionne sur la bonne feuille ici
Vidauban,
pour
éviter les risques d'erreurs je souhaiterais pouvoir exécuter
cette
macro
sans devoir me positionner dans la feuille correspondante.
