XL 2016 Problème lien hypertexte

job75

XLDnaute Barbatruc

• 27 Janvier 2021

• #2

Bonsoir acasses, bienvenue sur XLD,

Votre exposé n'est pas clair.

De toute façon tout fichier Excel peut être modifié, volontairement ou par erreur.

A+

 

Vote positif 0 Vote négatif

A

acasses

XLDnaute Nouveau

• 27 Janvier 2021

• #3

Bonsoir, merci pour votre réponse.
Quand un fichier simple est mis en modèle Excel il n'est pas modifiable normalement ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Janvier 2021

• #4

acasses à dit:

Quand un fichier simple est mis en modèle Excel il n'est pas modifiable normalement ...

Cliquez pour agrandir...

Bien sûr que si, il suffit d'enregistrer le fichier ouvert au format Modèle xltx ou xltm.

 

Vote positif 0 Vote négatif

A

acasses

XLDnaute Nouveau

• 27 Janvier 2021

• #5

oui mais ça ne modifie pas le fichier source alors ?

 

Vote positif 0 Vote négatif

M

Molpé41

XLDnaute Nouveau

• 17 Mars 2022

• #6

Bonjour, J'ai le même pb.
Je reformule la question autrement : un double clic sur un modèle xltx dans Windows Explorer ouvre une copie du fichier modèle. A l'enregistrement, il sera naturellement au format fichier xlsx (et non xltx) Ca ça fonctionne bien.
Maintenant, comment obtenir le même fonctionnement en lançant le processus à partir d'un lien dans un fichier ? C'est la question. En mettant un simple lien, Excel se contente d'ouvrir le modèle et non un copie.
De mémoire, "dans le temps", il suffisait de mettre un connecteur (/xxx) après le nom du modèle pour paramétrer la façon dont il s'ouvrait mais je ne retrouve pas ces infos dans l'aide Microsoft.
Si une bonne âme sait comment faire... Merci.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Mars 2022

• #7

Bonjour Molpé41,

Avec un lien hypertexte ça ne va pas mais avec une macro si.

Téléchargez les 2 fichiers zippés joints dans le même dossier.

Ouvrez le fichier Devis.xlsm et faites un double-clic en B3 ce qui lance la macro :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [B3]) Is Nothing Then _
    Workbooks.Open ThisWorkbook.Path & "\Modèle.xltx" 'chemin à adapter
End Sub

A+

 

Pièces jointes

• ZIP.zip

  20.2 KB · Affichages: 3

Vote positif 0 Vote négatif

M

Molpé41

XLDnaute Nouveau

• 17 Mars 2022

• #8

Merci. ça fait bien le job...75
Une macro qui répond parfaitement à la question. Dommage que Monsieur Microsoft n'ai pas pensé qu'un modèle n'avait pas vocation à s'ouvrir naturellement au format... modèle !
Merci encore pour ce retour rapide. Excellement vôtre.

 

Vote positif 0 Vote négatif