D'un classeur a un autre

[Alyre]

Bonjour a touts et a toutes

je sais que pour vous les forumiens, mes questions vont être tres facile

1 = j'explique : dison que j'ai 2 classeur d'ouvert (classeur1.xls et classeur2.xls),

le classeur1 est le principal, je voudrais me transporter d'un classeur a l'autre sans transféré quoi que se sois

qu'elle serais la sub que je devrais écrire qui ferais cette action

2 = j'ai un sub pour ouvrir le deuxime classeur, mais je ne sais pas comment écrire la sub,
pour fermé le classeur2 sans fermé les 2 classeurs en même temps

Merci a l'avance

@+
alyre

 

[zon]

Bonsoir à tous,


dans ton classeur 1

sub Changer()
Windows("classeur2").activate
end sub




Pour quitter un classeur

workbooks("Classeur2").close savechanges:=False ' n'enregistre pas les modif, mettre true pour les sauvegarder...


A+++

 

[Alyre]

re bonsoir a tous

salut Zon, comme d'habitude toujours de plus en plus rapide pour des bonne réponces,

grasse a toi je m'amélior un peut plus a chaque jours, au bout de 1000 jours je serai peut être rendu un petit peux moin niaiseux hi hi hi

je te remerci encore mille foisssssssssssssssss
bonne soiré
@ ++
alyre

 

[Alyre]

re bonsoir a tous

salut Zon je vien d'essayer

pour quiter ça fontionne parfaitements

mais pour classeur 1 , je l'ai copier et coler dans ThisWorkbooks classeur1

je l'ai fait roulé, elle bloc a la ligne Windows ( erreur d'exécution 9 l'indice n'appartien pas à la sélection)

Qu'est-ce que j'ai fait de pas correcte

A+
alyre

 

[zon]

Re,


Tu dois vouloir ouvrir Classeur 2 alors qu'il n'est pas ouvert, il faut rajouter un test pour savoir si classeur2 est ouvert en jouant avec les index de classeurs qui fonctionnent aussi pour les feuilles de calcul...



dim I as byte

sub changer()

for I=1 to worbooks.count
If workbooks(I).name="Classeur2" then workbooks(I).activate
next I
end sub





A+++

 

[zon]

Re,



Erreur de saisie

dim I as byte

sub changer()

for I=1 to workbooks.count '''''''''''''''''''''''ICI ERREUR MODIFIEE
If workbooks(I).name="Classeur2" then workbooks(I).activate
next I
end sub


A+++

 

[Alyre]

re salut Zon

mon classeur 2 étais belle et bien ouvert, mais pour que sa passe j'ai changer le mots Windows pour Workbooks et classeur2 pour classeur2.xls.

est-ce que c'est la bonne solution ?
car je reste toujour dans le classeur1

merci Zon

a++ alyre

 

[Alyre]

re
j'ai oublier de mentionner quand le classeur2 est ouvert , dans la boucle I je voie qu'il y a 2 classeur, et s'il est fermé alors il y a erreur

merci encore

a+++

 

[@+Thierry]

Bonsoir ce fil

Rien de grave Docteur !!!


Zon a du tester en enregistrant une macro sur des Nouveaux Classeurs tout neufs et jamais sauvés...
et donc là c'est OK
sub Changer()
Windows("classeur2").activate
end sub


MAIS si le classeur est un classeur enregistré alors il prend l'extention XLS

sub Changer()
Windows("LeClasseurEnregistré.xls").activate
end sub

Voilà c'est tout

VoumFré 100 Lignes Mister Zon !! (et sans macro)

Bonne Nuit (cette fois-ci c'est la bonne)
@+Thierry

 

[zon]

Re,



Ok Thierry, d'ailleurs je ne comprenais pas pourquoi je n'avais pas besoin du .xls(Quel imbécile que je fais ????)....



A+++

 

[Alyre]

salut Thierry

J'ai réessayer la ligne

Windows("Classeur2.xls").activate

j'ai encore une erreur d'exécution 9

je suis tres embèter avec cette erreur

merci a vos deux de bien vouloir m'aider

@+Alyre

 

[Alyre]

re c'est encore moi

un autre petite question, est-ce le Mots (VBProject) avant classeur2.xls,
devrais être inclus

merci encore
@+Alyre

 

[@+Thierry]

Re Alyre

Suis pas encore couché alors !! lol

Le VPProject, si tu le vois depuis la fenetre de VBE (Visual Basic Editor) C'est normal, rassure-toi !

Par contre si tu le vois depuis la fenêtre d'Excel....... (???)

T'es pas sous Mac AU MOINS (vu que tu n'es pas membre, je ne peux savoir)

Sinon je ne vois pas pourquoi une macro comme ceci ne tournerait pas (SI LE CLASSEUR EST OUVERT of course)
Windows("listbox_colonneZON2.xls").Activate
...

Mais là je vais dod pour de bon, suis pas au Canada, l'est 3:00 du mat presque.

Bonne Nuit et bonne chance
@+Thierry

 

[Alyre]

re Thierry

C'est seulment pour te dire que je suis sur WindowsXP, et Excel 2000

le VBProject je le vois dans la fenêtre de VBE (Visual Basic Editor)

je vais continuer a faire mes recherche dans le livre Excel 2002 et VBA
le guide du développeur, éditeur Jhon Walkenbach

en passant je tenais a vous féliciter pour votre merveilleux forum

Merci encore Thierry et aussi a Zon,

@Zon: tu est pardonnée pour la petite erreur de l'extention .xls
ça ma permis d'évoluer encore un peut plus,

et aussi tu ma donner tellement de service a venir a date, que pour moi ça vaux s'ont pesant d'or

Bonne nuit a vos 2, et cotinuer vous faite du bon travaile

@+Alyre

 

[zon]

RE,



Merci pour les félicitations en cette nuit longue pour insomniaque que je suis, un petit bémol je ne suis pas du sexe féminin (@Zon: tu est pardonnée).



Mets le code de ta procédure, et dis nous où tu l'as mise....



A+++