[Résolu][Calc] Ouverture dossier Windows par hyperlien

[Psychoz]

Bonjour à tous.

Alors voila, la macro suivante permet normalement d'ouvrir un fichier windows dont l'adresse et sur un lien hypertexte dans une autre feuille que celle ou s'exécute la macro :

Code : Tout sélectionner

Sub Vers_CCA()
     Sheets("Menu").Range("AE4").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 End Sub

Le problème est que lors de l'exécution de cette macro j'ai un message d'erreur qui est le suivant :

" Erreur d'exécution Basic, Propriété ou méthode non trouvée : Hyperlinks "

Je voulais donc savoir si ce problème est déjà arrivé à quelqu'un et comment le résoudre si possible.

Merci d'avance
Cordialement

[Pierre-Yves Samyn]

Bonjour

Alors voila, la macro suivante permet normalement...

Normalement, dans Excel ?

[Psychoz]

Bonjour,

Normalement, dans Excel ?

Tout à fait ...

[Dude]

Tout à fait ...

http://user.services.openoffice.org/fr/ ... 820#p51878

Pourquoi ne pas utiliser la fonction LIEN.HYPERTEXTE tout simplement ?

[Psychoz]

Bonjour,

Pourquoi ne pas utiliser la fonction LIEN.HYPERTEXTE tout simplement ?

Merci pour ta réponse, cependant aurais-tu un petit exemple de code qui introduit ce LIEN.HYPERTEXTE stp?

cordialement

[Sébastien C]

Bonjour à tous,

Dude te spécifie que LIEN.HYPERTEXTE n’est pas du code Basic mais une fonction Calc.
Tu trouveras sans doute réponse à ta question (et illustration des propos de Dude) par ma pièce jointe qui démontre l’inutilité de faire une macro pour ce que tu cherches.

[Psychoz]

Bonjour Sébastien C et merci de ta réponse.

Ce que tu m'a envoyer a titre d'exemple m'a permis de mieux comprendre ce que m'expliquais Dude le soucis c'est que ce n'est pas applicable dans mon cas car j'appelle l'ouverture d'un dossier à partir d'un menu que j'ai créer sur open office et donc on ne peut pas faire " a ma connaissance " de lien hypertexte dans un menu.

à tu une solution dans ce cas?

Merci
Cordialement

[jeanmimi]

Bonjour,
ll faudrait voir ton fichier avec son Menu.
Mais il est possible de connecter des URL par un bouton cliquable.
Dans l'exemple joint, le clic fait changer de feuille.

Bouton hyperlien dans Tableur.jpg

[Psychoz]

Bonjour jeanmimi et merci de ta réponse.

Cependant quand je parle de menu déroulant je parle de menu de ce genre :

Sans titre.png

C'est pour cela que j'ai poster mon code macro car sur excel il permet d'appeler un lien hypertexte d'une feuille pour ensuite ouvrir le dossier dont l'adresse est dans le lien.

y a t il une solution dans le cas du menu alors?

Merci
Cordialement

[jeanmimi]

Ton image ressemble à ce qui peut être créé avec une Extension.

[Psychoz]

Ton image ressemble à ce qui peut être créé avec une Extension.

J'ai créer ce menu à partir de l'onglet personnaliser qu'offre open office calc, le soucis c'est que pour l'onglet répertoire je ne peut qu'associer une macro et non passer par le système de propriété que tu m'a montré par exemple pour le bouton.

[Sébastien C]

La chose impose (pour l’instant) que soit installé le navigateur Firefox mais je crois possible de pouvoir lancer le navigateur par défaut (je ne sais plus comment et la question est lancée).

Code : Tout sélectionner

Sub lienHypertexte(adresse As String)
 Shell ("firefox", 1, adresse)
End Sub

Sub Google       : lienHypertexte("http://google.fr")                              : End Sub
Sub OOo_Officiel : lienHypertexte("http://fr.openoffice.org/")                     : End Sub
Sub OOo_Forum    : lienHypertexte("http://user.services.openoffice.org/fr/forum/") : End Sub

[Psychoz]

Bonjour Sebastien C,

Merci de ta réponse bien précise sur mon problème, cependant j'ai une dernière question et je pense que cela devrais fonctionner,

Comment déclare tu le Sub lienHypertexte dans le cas ou on ouvre un dossier de windows " exemple Mes documents " et non Firefox?

Merci D'avance
Cordialement

[Sébastien C]

Et bien, et bien, et bien,
euhhhh...
sous M$-Wouindoze, je dirais,
euh....,
kek choz kom :

Code : Tout sélectionner

Sub lienHypertexte(adresse As String)
 Shell ("explorer", 1, adresse)
End Sub

Sub mesDocuments : lienHypertexte("C:\Documents and Settings") : End Sub
Sub programFiles : lienHypertexte("C:\Program Files")          : End Sub
Sub wouindoze    : lienHypertexte("C:\WINDOWS")                : End Sub

[Psychoz]

Bonjour Sebastien C,

Merci de ta réponse cependant j'ai un soucis avec ta macro, lorsque que je l'exécute j'obtiens le message d'erreur suivant :

" Erreur de syntaxe BASIC , Attendu : =. "

juste après la ligne de code suivante :

Code : Tout sélectionner

Shell ("explorer", 1, adresse)

Sait-tu pourquoi?

Encore merci
Cordialement

[Dude]

La ligne de code est correct. Si tu as une erreur, cela vient sûrement de la chaîne adresse que tu passes.

[Psychoz]

+1 Dude

le sujet passe donc en résolu, merci encore Sebastien C pour ton code

[Sébastien C]

Petit addenda à base d’éléments évoqué dans ce forum qui devrait finir d’illustrer les choses illustrées particulièrement dans ce fil.

De plus, la consultation de ce fil (et la lecture du code du fichier proposé) me fait encore remarquer qu’il est préférable de ne pas utiliser la fonction Shell généraliste du Basic mais plutôt le service Uno « com.sun.star.system.SystemShellExecute ». Ce faisant, non seulement il est possible de rentrer une adresse HTTP autant qu’une adresse de fichier. C’est alors le système d’exploitation qui s’occupe de lancer le programme par défaut :

Sous M$-Windows

• Le navigateur par défaut pour les « http:// » (Firefox, Internet Explorer, « Opera, &c.)
• Explorer pour les adresses de fichier.

Sous GNU-Linux (KDE) :

• Le navigateur par défaut pour les « http:// » (Firefox, Internet Explorer, « Opera, &c.)
• konqueror pour les adresses de fichier.

Je suppose que la compatibilité est totale, même sous Macintosh.