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 Hypertexte pour fermer Excel

Hypertexte pour fermer Excel

10 réponses
Avatar
Bonjour!

J'aimerais savoir si il est possible de cr=E9er un=20
hypertexte qui fermerais automatiquement Excel?
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
Avatar
papou
Bonjour
Ca doit être faisable en insérant un lien hypertexte "bidon" sur une de tes
feuilles, puis en plaçant ceci en l'adaptant dans le code de Thisworkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le message de
news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?
Avatar
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la partie
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire fermer
l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le code
de Thisworkbook :

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.



Avatar
papou
Re
Dans la partie
If Sh.Name = "zozo" Then
tu modifies "zozo" par le nom de l'une de tes feuilles
Tu as bien évidemment placé ce code dans ThisWorkbook ?

Cordialement
Pascal

a écrit dans le message de
news:364201c4b11d$2ae2efa0$
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la partie
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire fermer
l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le code
de Thisworkbook :

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.



Avatar
Biensur que je l'ai mis dans ThisWorkbook... mais ça
marche pas, il me dit qu'il y a des erreurs dans le code
que tu m'as donné
-----Message d'origine-----
Re
Dans la partie
If Sh.Name = "zozo" Then
tu modifies "zozo" par le nom de l'une de tes feuilles
Tu as bien évidemment placé ce code dans ThisWorkbook ?

Cordialement
Pascal

a écrit dans le
message de

news:364201c4b11d$2ae2efa0$
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la partie
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire fermer
l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le code
de Thisworkbook :

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.




.




Avatar
papou
Dans ces conditions désolé mais je ne vois pas.
(testé sur Excel 2003)
Cordialement
Pascal


a écrit dans le message de
news:367901c4b120$409430e0$
Biensur que je l'ai mis dans ThisWorkbook... mais ça
marche pas, il me dit qu'il y a des erreurs dans le code
que tu m'as donné
-----Message d'origine-----
Re
Dans la partie
If Sh.Name = "zozo" Then
tu modifies "zozo" par le nom de l'une de tes feuilles
Tu as bien évidemment placé ce code dans ThisWorkbook ?

Cordialement
Pascal

a écrit dans le
message de

news:364201c4b11d$2ae2efa0$
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la partie
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire fermer
l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le code
de Thisworkbook :

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.




.




Avatar
Ben ici (au bureau) j'ai Excel 2002... je vais essayer à
la maison! merci
-----Message d'origine-----
Dans ces conditions désolé mais je ne vois pas.
(testé sur Excel 2003)
Cordialement
Pascal


a écrit dans le
message de

news:367901c4b120$409430e0$
Biensur que je l'ai mis dans ThisWorkbook... mais ça
marche pas, il me dit qu'il y a des erreurs dans le code
que tu m'as donné
-----Message d'origine-----
Re
Dans la partie
If Sh.Name = "zozo" Then
tu modifies "zozo" par le nom de l'une de tes feuilles
Tu as bien évidemment placé ce code dans ThisWorkbook ?

Cordialement
Pascal

a écrit dans le
message de

news:364201c4b11d$2ae2efa0$
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la
partie


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire fermer
l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le
code



de Thisworkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.




.




.





Avatar
papou
Heu...
As-tu bien fait attention aux sauts de ligne intempestifs ?
Essaie en collant avec ça :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As _
Object, ByVal Target As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Et puis il te faut bien sûr un lien hypertexte "valide" (mais bidon) sur la
feuille que tu auras choisie.

Cordialement
Pascal

a écrit dans le message de
news:296f01c4b126$23c9ae30$
Ben ici (au bureau) j'ai Excel 2002... je vais essayer à
la maison! merci
-----Message d'origine-----
Dans ces conditions désolé mais je ne vois pas.
(testé sur Excel 2003)
Cordialement
Pascal


a écrit dans le
message de

news:367901c4b120$409430e0$
Biensur que je l'ai mis dans ThisWorkbook... mais ça
marche pas, il me dit qu'il y a des erreurs dans le code
que tu m'as donné
-----Message d'origine-----
Re
Dans la partie
If Sh.Name = "zozo" Then
tu modifies "zozo" par le nom de l'une de tes feuilles
Tu as bien évidemment placé ce code dans ThisWorkbook ?

Cordialement
Pascal

a écrit dans le
message de

news:364201c4b11d$2ae2efa0$
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la
partie


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire fermer
l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le
code



de Thisworkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.




.




.





Avatar
AH! merci! ça marche maintenant! mais c'est pas tout à
fait ça! Je t'explique comment est mon doc et ce que je
veux faire:

- J'ai une feuille "bidon" pour quitter (qui est Feuil2)
- J'ai une feuille que j'aimerais utile que j'utilise (qui
est la Feuil1)
- J'ai une feuille avec des hypertextes qui permet de
choisir entre la Feuil1 et la Feuil2 (qui est la Feuil3)

Ce que je veux faire c'est:
- quand je clique l'hypertexte pour aller sur la Feuil1,
j'aimerais que ça se sauve automatiquement sur la Feuil1
- quand je clique l'hypertexte pour aller sur la Feuil2,
j'aimerais que ça quitte automatiquement Excel


Est-ce possible? et quel code utiliser?


-----Message d'origine-----
Heu...
As-tu bien fait attention aux sauts de ligne
intempestifs ?

Essaie en collant avec ça :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As _
Object, ByVal Target As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Et puis il te faut bien sûr un lien hypertexte "valide"
(mais bidon) sur la

feuille que tu auras choisie.

Cordialement
Pascal

a écrit dans le
message de

news:296f01c4b126$23c9ae30$
Ben ici (au bureau) j'ai Excel 2002... je vais essayer à
la maison! merci
-----Message d'origine-----
Dans ces conditions désolé mais je ne vois pas.
(testé sur Excel 2003)
Cordialement
Pascal


a écrit dans le
message de

news:367901c4b120$409430e0$
Biensur que je l'ai mis dans ThisWorkbook... mais ça
marche pas, il me dit qu'il y a des erreurs dans le code
que tu m'as donné
-----Message d'origine-----
Re
Dans la partie
If Sh.Name = "zozo" Then
tu modifies "zozo" par le nom de l'une de tes feuilles
Tu as bien évidemment placé ce code dans ThisWorkbook ?

Cordialement
Pascal

a écrit dans le
message de

news:364201c4b11d$2ae2efa0$
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la
partie


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire fermer
l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le
code



de Thisworkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.




.




.




.






Avatar
papou
AH! merci! ça marche maintenant!
Ah bon je préfère ;-)

mais c'est pas tout à fait ça!
On va y arriver :-))

Dans ces conditions, tu adaptes (avec un lien qui comporte ici le texte
"Fermeture") :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil3" And Target.TextToDisplay = "Fermeture" _
Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal

a écrit dans le message de
news:372501c4b12d$1af428b0$
AH! merci! ça marche maintenant! mais c'est pas tout à
fait ça! Je t'explique comment est mon doc et ce que je
veux faire:

- J'ai une feuille "bidon" pour quitter (qui est Feuil2)
- J'ai une feuille que j'aimerais utile que j'utilise (qui
est la Feuil1)
- J'ai une feuille avec des hypertextes qui permet de
choisir entre la Feuil1 et la Feuil2 (qui est la Feuil3)

Ce que je veux faire c'est:
- quand je clique l'hypertexte pour aller sur la Feuil1,
j'aimerais que ça se sauve automatiquement sur la Feuil1
- quand je clique l'hypertexte pour aller sur la Feuil2,
j'aimerais que ça quitte automatiquement Excel


Est-ce possible? et quel code utiliser?


-----Message d'origine-----
Heu...
As-tu bien fait attention aux sauts de ligne
intempestifs ?

Essaie en collant avec ça :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As _
Object, ByVal Target As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Et puis il te faut bien sûr un lien hypertexte "valide"
(mais bidon) sur la

feuille que tu auras choisie.

Cordialement
Pascal

a écrit dans le
message de

news:296f01c4b126$23c9ae30$
Ben ici (au bureau) j'ai Excel 2002... je vais essayer à
la maison! merci
-----Message d'origine-----
Dans ces conditions désolé mais je ne vois pas.
(testé sur Excel 2003)
Cordialement
Pascal


a écrit dans le
message de

news:367901c4b120$409430e0$
Biensur que je l'ai mis dans ThisWorkbook... mais ça
marche pas, il me dit qu'il y a des erreurs dans le code
que tu m'as donné
-----Message d'origine-----
Re
Dans la partie
If Sh.Name = "zozo" Then
tu modifies "zozo" par le nom de l'une de tes feuilles
Tu as bien évidemment placé ce code dans ThisWorkbook ?

Cordialement
Pascal

a écrit dans le
message de

news:364201c4b11d$2ae2efa0$
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la
partie


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire fermer
l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le
code



de Thisworkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.




.




.




.






Avatar
Ben en fait, c'est pas trop ça... lol! mais ce code ci
est juste? et je devrais changer quoi?

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil1" Then
ThisWorkbook.Save
End If
If Sh.Name = "Feuil2" Then
Application.Quit
End If
End Sub


-----Message d'origine-----
AH! merci! ça marche maintenant!
Ah bon je préfère ;-)

mais c'est pas tout à fait ça!
On va y arriver :-))

Dans ces conditions, tu adaptes (avec un lien qui
comporte ici le texte

"Fermeture") :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _

, ByVal Target As Hyperlink)
If Sh.Name = "Feuil3" And Target.TextToDisplay
= "Fermeture" _

Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal

a écrit dans le
message de

news:372501c4b12d$1af428b0$
AH! merci! ça marche maintenant! mais c'est pas tout à
fait ça! Je t'explique comment est mon doc et ce que je
veux faire:

- J'ai une feuille "bidon" pour quitter (qui est Feuil2)
- J'ai une feuille que j'aimerais utile que j'utilise
(qui

est la Feuil1)
- J'ai une feuille avec des hypertextes qui permet de
choisir entre la Feuil1 et la Feuil2 (qui est la Feuil3)

Ce que je veux faire c'est:
- quand je clique l'hypertexte pour aller sur la Feuil1,
j'aimerais que ça se sauve automatiquement sur la Feuil1
- quand je clique l'hypertexte pour aller sur la Feuil2,
j'aimerais que ça quitte automatiquement Excel


Est-ce possible? et quel code utiliser?


-----Message d'origine-----
Heu...
As-tu bien fait attention aux sauts de ligne
intempestifs ?

Essaie en collant avec ça :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As _
Object, ByVal Target As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Et puis il te faut bien sûr un lien hypertexte "valide"
(mais bidon) sur la

feuille que tu auras choisie.

Cordialement
Pascal

a écrit dans le
message de

news:296f01c4b126$23c9ae30$
Ben ici (au bureau) j'ai Excel 2002... je vais essayer à
la maison! merci
-----Message d'origine-----
Dans ces conditions désolé mais je ne vois pas.
(testé sur Excel 2003)
Cordialement
Pascal


a écrit dans le
message de

news:367901c4b120$409430e0$
Biensur que je l'ai mis dans ThisWorkbook... mais ça
marche pas, il me dit qu'il y a des erreurs dans le
code



que tu m'as donné
-----Message d'origine-----
Re
Dans la partie
If Sh.Name = "zozo" Then
tu modifies "zozo" par le nom de l'une de tes feuilles
Tu as bien évidemment placé ce code dans
ThisWorkbook ?





Cordialement
Pascal

a écrit dans le
message de

news:364201c4b11d$2ae2efa0$
J'ai essayé, mais ca ne marche pas.

Le nom de mes feuilles est "feuil1, feuil2, feuil3"
Et quand j'introduit le code, il me met en rouge la
partie


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target
As Hyperlink)

Quel serait le code EXACT à introduire pour faire
fermer




l'application?

Merci
-----Message d'origine-----
Bonjour
Ca doit être faisable en insérant un lien
hypertexte "bidon" sur une de tes

feuilles, puis en plaçant ceci en l'adaptant dans le
code



de Thisworkbook :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object, ByVal Target

As Hyperlink)
If Sh.Name = "zozo" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Cordialement
Pascal
a écrit dans le
message de

news:286201c4b109$72202db0$
Bonjour!

J'aimerais savoir si il est possible de créer un
hypertexte qui fermerais automatiquement Excel?


.




.




.




.




.