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 Classeurs multiples

Classeurs multiples

18 réponses
Avatar
STEN83
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs sont
dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que j'ai
mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "\" & GESTCAST.xls
Merci de votre aide
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
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
Jacky
Bonjour,

Changer:
Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
comme ceci:
Workbooks.Open ThisWorkbook.Path & "GESTCAST.xls"

Salutations
JJ

"STEN83" a écrit dans le message de
news:
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs sont
dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que j'ai
mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous


Avatar
michdenis
Bonjour Sten83,

As-tu essayé d'inverser l'ordre de ces 2 lignes de commande ?

ThisWorkbook.Close
Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls

Plutôt :

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
ThisWorkbook.Close


Salutations!





"STEN83" a écrit dans le message de news:
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs sont
dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que j'ai
mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Avatar
STEN83
Désolé mais le classeur se ferme et l'autre ne s'ouvre pas?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



Bonjour,

Changer:
Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
comme ceci:
Workbooks.Open ThisWorkbook.Path & "GESTCAST.xls"

Salutations
JJ

"STEN83" a écrit dans le message de
news:
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs sont
dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que j'ai
mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous







Avatar
JLuc
STEN83 avait soumis l'idée :
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs sont
dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que j'ai
mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide


Teoriquement, ce classeur est sense etre ouvert :
Workbooks("GESTCAST.xls").Activate
devrait suffir, dis nous

--
JLuc

Avatar
JLuc
STEN83 avait soumis l'idée :
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs sont
dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que j'ai
mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide


La macro est executee a partir de quel classeur ?

--
JLuc

Avatar
Jacky
Re...
Désolé mais le classeur se ferme et l'autre ne s'ouvre pas?
Y a-t'il un message d'erreur ??


JJ

"STEN83" a écrit dans le message de
news:
Désolé mais le classeur se ferme et l'autre ne s'ouvre pas?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



Bonjour,

Changer:
Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
comme ceci:
Workbooks.Open ThisWorkbook.Path & "GESTCAST.xls"

Salutations
JJ

"STEN83" a écrit dans le message de
news:
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs
sont



dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il
me



ramème directement sur le classeur de début avec le menu voici ce que
j'ai



mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées",
vbInformation,



"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide
--
Le partage du savoir contribue à l'amélioration de la condition
humaine!



Merci à tous









Avatar
STEN83
Il ne s'affiche aucun message d'erreur et la ligne de commande de Jluc ne
fonctionne pas non plus, la macro et exécutée aprtir du classeur nommé
"Comptage.xls".
En fait le classeur qui contient le menu ne comprote aucune feuille qui sert
il y a juste un usf avec les boutons de commande qui doivent ouvrir les
autres classeurs.
A chaque fois que j'ouvre un classeur celui avec le menu se ferme et c'est
lorsque je quitte le classeur que j'ai ouvert que j'aimerai réouvrir celui
avec le menu????
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



STEN83 avait soumis l'idée :
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs sont
dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que j'ai
mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide


Teoriquement, ce classeur est sense etre ouvert :
Workbooks("GESTCAST.xls").Activate
devrait suffir, dis nous

--
JLuc






Avatar
Jacky
re...
N'y a t'il pas un "on error resume next" en court
essaie "on error goto 0" avant:
Workbooks.Open ThisWorkbook.Path & "GESTCAST.xls"


JJ

"JLuc" a écrit dans le message de
news:
STEN83 avait soumis l'idée :
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs
sont


dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que
j'ai


mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide


Teoriquement, ce classeur est sense etre ouvert :
Workbooks("GESTCAST.xls").Activate
devrait suffir, dis nous

--
JLuc





Avatar
STEN83
Toujours pareil je ne sais plus quoi faire, pour info les macros se trouve
sur chaque classeur que j'ouvre avec le classeur qui contient le menu!
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



re...
N'y a t'il pas un "on error resume next" en court
essaie "on error goto 0" avant:
Workbooks.Open ThisWorkbook.Path & "GESTCAST.xls"


JJ

"JLuc" a écrit dans le message de
news:
STEN83 avait soumis l'idée :
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais de
boutons de commandes a ouvrir d'autres classeurs, tous les classeurs
sont


dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il me
ramème directement sur le classeur de début avec le menu voici ce que
j'ai


mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées", vbInformation,
"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide


Teoriquement, ce classeur est sense etre ouvert :
Workbooks("GESTCAST.xls").Activate
devrait suffir, dis nous

--
JLuc










Avatar
Jacky
Re...
Peut-tu mettre les classeurs sur http://cjoint.com ??

JJ

"STEN83" a écrit dans le message de
news:
Toujours pareil je ne sais plus quoi faire, pour info les macros se trouve
sur chaque classeur que j'ouvre avec le classeur qui contient le menu!
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



re...
N'y a t'il pas un "on error resume next" en court
essaie "on error goto 0" avant:
Workbooks.Open ThisWorkbook.Path & "GESTCAST.xls"


JJ

"JLuc" a écrit dans le message de
news:
STEN83 avait soumis l'idée :
Bonjour a tous
J'ai une classeur avec un menu principal, ce menu sert par le biais
de




boutons de commandes a ouvrir d'autres classeurs, tous les classeurs
sont


dans le même répertoire.
Ce que je voudrais c'est que lorsque je ferme un de ces classeur, il
me




ramème directement sur le classeur de début avec le menu voici ce
que




j'ai
mis mais cela ne fonctionne pas:

ThisWorkbook.Save
MsgBox "Vous avez encaissé la somme de:" & Chr(13) _
& Feuil2.Range("C18") & " Euros" & Chr(13) _
& "Vous pouvez à présent fermer, vos" & Chr(13) _
& "données ont été enregistrées et vont être imprimées",
vbInformation,




"Information!"
Feuil2.Visible = True
COMPTAGE.PrintOut , , 1
Feuil2.PrintOut , , 1
ThisWorkbook.Save
ThisWorkbook.Close

Workbooks.Open ThisWorkbook.Path & "" & GESTCAST.xls
Merci de votre aide


Teoriquement, ce classeur est sense etre ouvert :
Workbooks("GESTCAST.xls").Activate
devrait suffir, dis nous

--
JLuc












1 2