Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macros Excel97

Macros Excel97

11 réponses
Avatar
Pascale
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,
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Pascale
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,




Avatar
Pascale
Rebonjour Sabatier,

Merci pour ta réponse

Le Range ("P2") est la cellule du classeur2 qui va recevoir le résultat
après le copier coller avec liaison effectivement je n'ai pas besoin de le
préciser.
Je vais essayer ton Inputbox
Merci 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 le
1er
classeur")
Sheets(ville).Activate
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True

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,








Avatar
Pascale
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 le
1er
classeur")
Sheets(ville).Activate
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True

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,








Avatar
sabatier
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 le
1er
classeur")
Sheets(ville).Activate
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True

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,










Avatar
Pascale
merci beaucoup, j'essaie les modifs demain car je dois partir en réunion
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
le



1er
classeur")
Sheets(ville).Activate
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True

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,













Avatar
Philippe.R
T'as vu Jean Paul ?
Publics les remerciements cette fois ci, .... publics !
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"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 le
1er
classeur")
Sheets(ville).Activate
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True

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,













Avatar
sabatier
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


le



1er
classeur")
Sheets(ville).Activate
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True

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,

















Avatar
Philippe.R
Ben oui Jean Paul, je surveille toujours les remerciements qui te sont quelquefois adressés, histoire de
vérifier qu'ils sont bien à la hauteur......
;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"sabatier" a écrit dans le message de news:
merdum, tu les avais donc lus, philippe...
jps

Philippe.R a écrit:
T'as vu Jean Paul ?
Publics les remerciements cette fois ci, .... publics !





Avatar
sabatier
hum, philippe, ce "quelqefois" ne flatte pas trop mon ego, comme dirait
EtPatatiEtPatata
jps

Philippe.R a écrit:
Ben oui Jean Paul, je surveille toujours les remerciements qui te sont quelquefois adressés, histoire de
vérifier qu'ils sont bien à la hauteur......
;o)))


Avatar
Pascale
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


le



1er
classeur")
Sheets(ville).Activate
Range("M3").Select
Selection.Copy
Windows("02 06 prjete.xls").Activate
ActiveSheet.Paste Link:=True

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,




















1 2