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

8 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
JLuc
*Bonjour STEN83*,
AMHA, dans la macro du classeur principal (donc CommandButton1_Click)
il faut juste ouvrir le classeur sur lequel tu veux travailler
Sub CommandButton1_Click()
Workbooks.Open filename:="Monclasseur.xls"
End Sub

Dans le classeur ainsi ouvert, une macro dans le ThisWorkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("GESTCAST.xls").Activate
End Sub

Je pense qu'il ne faut pas vouloir tout traiter dans une seule et meme
macro, tu vas finir pas t'y perdre si tu utilise des "ThisWorkbook"
(lequel est effectivement actif ?)


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






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



Avatar
STEN83
Oui je peux mettre les classeurs mais comment dois-je proceder?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



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

















Avatar
Jacky
Re---
1- Tu vas ici: http://cjoint.com
2-Un clique sur parcourir et cherche le fichier sur ton Pc
3-Clique sur "Créer le lien Cjoint" (le lien est automatiquement copié)
4-Retour dans la messagerie et Coller ( Ctrl+V )



Idem pour le fichier 2

JJ


"STEN83" a écrit dans le message de news:

Oui je peux mettre les classeurs mais comment dois-je proceder?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



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



















Avatar
STEN83
http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
--
il y a trois fichier rar car le site ne prend pas au dessus de 500k si tu
recois mal je peux te le faire parvenier a ton adresse email dis le moi si tu
rencontre des problèmes, merci

Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



Oui je peux mettre les classeurs mais comment dois-je proceder?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



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



















Avatar
JLuc
*Bonjour STEN83*,
Est ce que ma reponse pourrait eventuelement te satisfaire ?
P.S. tu as mis trois fois le meme lien

http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
--
il y a trois fichier rar car le site ne prend pas au dessus de 500k si tu
recois mal je peux te le faire parvenier a ton adresse email dis le moi si tu
rencontre des problèmes, merci

Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



Oui je peux mettre les classeurs mais comment dois-je proceder?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



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















--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O







Avatar
JLuc
*Bonjour STEN83*,
Je crois avoir resolu ton probleme. Dans le ThisWorkbook du classeur
GESTCAST.xls, rajoute :

Private Sub Workbook_Activate()
MENU.Show
End Sub


http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
--
il y a trois fichier rar car le site ne prend pas au dessus de 500k si tu
recois mal je peux te le faire parvenier a ton adresse email dis le moi si tu
rencontre des problèmes, merci

Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



Oui je peux mettre les classeurs mais comment dois-je proceder?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



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















--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O







Avatar
STEN83
Donne moi ton email je te le fais parvenir directement
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



*Bonjour STEN83*,
Est ce que ma reponse pourrait eventuelement te satisfaire ?
P.S. tu as mis trois fois le meme lien

http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
--
il y a trois fichier rar car le site ne prend pas au dessus de 500k si tu
recois mal je peux te le faire parvenier a ton adresse email dis le moi si tu
rencontre des problèmes, merci

Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



Oui je peux mettre les classeurs mais comment dois-je proceder?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



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















--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O












Avatar
Jacky
Re....
A premier vue, comme le fichier n'est jamais fermé(du moins par ceux
envoyés), la solutions de JLuc devrait résoudre le problème.
J'ajouterais qu'avant la procédure d'ouverture des fichiers , je mettrais le
UserForm "menu" en veille.
Un bouton pour sortir des fichiers pourrait aussi rendre service......;-)
'-------
Private Sub CmdJournalCoffre_Click()
MENU.Hide
OuvreCoffre
Me.Hide
End Sub
'---------
Idem pour les autres fichiers.

Bon courage
JJ


"JLuc" a écrit dans le message de news:

*Bonjour STEN83*,
Je crois avoir resolu ton probleme. Dans le ThisWorkbook du classeur
GESTCAST.xls, rajoute :

Private Sub Workbook_Activate()
MENU.Show
End Sub


http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
http://cjoint.com/?dFts1GmvqP
--
il y a trois fichier rar car le site ne prend pas au dessus de 500k si tu
recois mal je peux te le faire parvenier a ton adresse email dis le moi
si tu rencontre des problèmes, merci

Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



Oui je peux mettre les classeurs mais comment dois-je proceder?
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous



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















--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O











1 2