Lien hypertexte vers PDF qui changent de nom

Dranreb

XLDnaute Barbatruc

• 8 Septembre 2013

• #61

Re : Lien hypertexte vers PDF qui changent de nom

Je préfère ne pas l'ouvrir: Les contrôles dans les feuilles sont mal implantés par le convertisseur que je suis obligé d'utiliser pour convertir les .xlsm en .xls, de sorte que des contrôles images seraient un peu en partie des Shapes, et que je ne saurais pas si c'en sont. En bref si ce sont des contrôles Image (système moderne des contrôles de VBA), leurs noms figure dans la liste de gauche qui surmonte la fenêtre de code dans le module de la feuille et ils admettent en général un évènement _Click. Si ce sont des Shapes (vieux système des objets dessinés d'Excel, mais qui a toujours ses avantages) vous pouvez leur affecter une macro d'un module ordinaire par un clic droit dessus.

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 8 Septembre 2013

• #62

Re : Lien hypertexte vers PDF qui changent de nom

Alors comment différenciez vous le terme Shape ou image ?

Dans mon fichier se ne sont que des images importées, rognées , redimentionnées etc....

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Septembre 2013

• #63

Re : Lien hypertexte vers PDF qui changent de nom

Si quand je fais un clic droit dessus j'ai un un menu qui me permet d'y affecter une macro, c'est un Shape.
Si son nom figure dans la liste de gauche qui surmonte la fenêtre de code dans le module de la feuille c'est un contrôle Image.

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 8 Septembre 2013

• #64

Re : Lien hypertexte vers PDF qui changent de nom

Lorsque je clic droit sur l'image voila ce que j'ai....voir JPG

 

Pièces jointes

• Sans titre.jpg

  58.4 KB · Affichages: 53
• Sans titre.jpg

  58.4 KB · Affichages: 54
• Sans titre.jpg

  58.4 KB · Affichages: 55

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Septembre 2013

• #65

Re : Lien hypertexte vers PDF qui changent de nom

Bon, ben il y a bien "Affecter une macro", non ?
Il faudra supprimer le lien hypertexte. On pourrait à la rigueur les rectifier à l'ouverture du fichier, car c'est une propriété Hyperlink du Shape, mais je ne vois pas comment on pourrait intercepter la demande de suivi du lien pour aller en plus à la bonne page.
Mais j'ai vu qu'un Shape possède une propriété AlternativeText dans laquelle ou pourrait très bien ranger le chemin du pdf et la page séparés par un "|".
Il faudrait que la macro puisse fonctionner en mode saisie des infos ou en mode atteindre le fichier.
Par exemple à l'aide d'une variable Public ModifierCibles As Boolean qui serait positionnée au moyen d'un bouton dans la feuille.
On pourrait aussi basculer vers le mode saisie quand une étape du suivi se passe mal. C'est le "Quoi faire ?" qu'il vous appartient de bien définir avec précision, le "Comment faire ?" de chaque détail ne semble poser aucun problème, il y a bien moins d'incertitude qu'à propos du SendKeys qui garantirait un fonctionnement sûr sur tous les postes.

 

Dernière édition: 8 Septembre 2013

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 8 Septembre 2013

• #66

Re : Lien hypertexte vers PDF qui changent de nom

Ha oui, je ne vois même plus ce qu'il y a d'écrit....Désolé.

Si vous dites que ce ne serait pas possible d'affecter ce lien vers page précise directement à l'image, je pourrais peut-être dans ce cas, y superposer un shape (exemple : un rectangle transparent si je peux) par dessus l'image et du coup insérer une formule.

Si vous pensez que c'est possible, je veux bien un dernier coup de main..

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Septembre 2013

• #67

Re : Lien hypertexte vers PDF qui changent de nom

Abandonnez l'idée du lien, c'est plus simple. Affectez seulement une macro aux images.
En voici un brouillon à perfectionner, qui n'a que le mérite de montrer comment on fait chaque chose (comment on récupère le Shape, comment on sélectionne un dossier, et comment on finit par agir comme un lien hypextexte) :

VB:

Sub AtteindrePdf()
Dim Sh As Shape, Spl() As String, Dossier As String, NomFic As String, _
   FD As FileDialog, Page As Integer, NAT As String
Set Sh = ActiveSheet.Shapes(Application.Caller)
On Error Resume Next
Spl = Split(Sh.AlternativeText, "|")
Dossier = Spl(0): Page = Spl(1)
NomFic = Dir(Dossier & "\*.pdf")
On Error GoTo 0
If Dossier = "" Or NomFic = "" Or ModifierCibles Then
   Set FD = Application.FileDialog(msoFileDialogFolderPicker)
   If Dossier <> "" Then FD.InitialFileName = Dossier
   FD.Title = "Choix du dossier contenant le PDF"
   FD.Show
   On Error Resume Next: Dossier = FD.SelectedItems(1)
   NomFic = Dir(Dossier & "\*.pdf"): End If
If Page = 0 Or ModifierCibles Then
   If Page = 0 Then Page = 1
   Page = InputBox("Page ?", "Atteindre Pdf", Page): End If
NAT = Dossier & "|" & Page: If Sh.AlternativeText <> NAT Then Sh.AlternativeText = NAT
ThisWorkbook.FollowHyperlink Dossier & "\" & NomFic
If Page = 1 Then Exit Sub
Application.Wait Now + 1 / 86400 ' 1 jour / 86400 = 1 seconde
SendKeys "{DOWN " & Page - 1 & "}"
End Sub

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 8 Septembre 2013

• #68

Re : Lien hypertexte vers PDF qui changent de nom

Je dois remplacer ma formule qui se trouve dans VB par celle-ci ou je dois click droit, affecter une macro à l'image et supprimer le lien

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Septembre 2013

• #69

Re : Lien hypertexte vers PDF qui changent de nom

Affecter cette macro à toutes les images (il yen à bien un tas en vrai ?) et supprimer les liens.
Et ensuite perfectionner cette macro pour qu'elle soit facile d'utilisation, comme par exemple veiller à ce que le nouveau dossier choisi contienne bien un *.pdf et sinon repartir à la sélection d'un dossier etc. Divisez en Sub indépendantes plutôt que d'écrire plusieurs fois la même chose. Prenez vous un peu en main, moi je vous ai fourni les briques de base.

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 9 Septembre 2013

• #70

Re : Lien hypertexte vers PDF qui changent de nom

Merci beaucoup. Je vais donc essayer de virer par moi même.

Dites moi seulement ou je peux et dois intervenir afin de placer mes liens et le choix de la page désirée.

merci

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 9 Septembre 2013

• #71

Re : Lien hypertexte vers PDF qui changent de nom

Par contre il me demande un débogage sur

Set Sh = ActiveSheet.Shapes(Application.Caller)

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 9 Septembre 2013

• #72

Re : Lien hypertexte vers PDF qui changent de nom

C'est bon je crois comprendre comment cela fonctionne...
J'ai besoin d'affecter une page voulue. Je ne souhaite pas qu'on me l'a demande.

Je ferais avec l'ancienne formule et je prendrais des cours de VBA

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Septembre 2013

• #73

Re : Lien hypertexte vers PDF qui changent de nom

J'ai besoin d'affecter une page voulue. Je ne souhaite pas qu'on me l'a demande.

Cliquez pour agrandir...

Une fois qu'elle est notée, normalement, il ne la demande plus. A moins qu'un processus extérieur n'ait mis une variable Public ModifierCibles à True.

 

Dernière édition: 9 Septembre 2013

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 9 Septembre 2013

• #74

Re : Lien hypertexte vers PDF qui changent de nom

Ok je vois très bien ok. Je défini un emplacement et ensuite une page et cela se garde en memoire quelquepart.

Je me pose une question forcement, une fois ces fontions attribuées, pouvons nous revenir en arrière et changer de page par exemple ? Il faut réafecter la macro surement.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Septembre 2013

• #75

Re : Lien hypertexte vers PDF qui changent de nom

Je vous l'ai dit: déclarez en tête du module:

VB:

Public ModifierCibles As Boolean

Et débrouiller vous pour exécuter quelque part (Private Sub CommandButton1_Click() dans une feuille par exemple) :

VB:

ModifierCibles = Not ModifierCibles

pour faire basculer le mode de fonctionnement de la macro entre les modes modification des cibles ou simple suivi.

 

Vote positif 0 Vote négatif