Discussion :

[Bangalore]

Bonjour à tous!
J'ai a ma disposition un ensemble de documents Excel liés entre-eux par des liens hypertextes (entre les classeurs, environ 450). Jusqu'ici pas de problème, rien à voir avec VBA, tout fonctionne.
Le problème est que ces documents sont destinés à être partagés, et que le poste où ils ont été créés ne dispose pas des autorisations pour les mettre en partage. Comme il s'agit d'un cadre professionnel, la solution qui consisterait à modifié les autorisations du PC n'est pas acceptable. Je souhaiterai donc que vous m'expliquiez quels codes & objets je pourrais utiliser pour modifier tous mes liens hypertextes et les rendres valides (au niveau du chemin d'accès) une fois les documents déplacés.
voici la structure : les pages du 1er classeur portent des codes à 3 caractères, qui se retrouvent en colonne dans la page d'un classeur faisant office de sommaire, à côté d'une cellule contenant le lien hypertexte qui renvoie vers les pages du premier classeur.
OUF !
J'espère que je me fait à peu près comprendre...

Merci d'avance pour vos idées et/ou exemples

[Bangalore]

Bon je répéte que je suis débutant VBA... Néophyte même...
J'ai trifouillé de mon coté avec l'application .path mais je n'arrive à rien, je n'ai pas la culture de la progammation, et mes activités annexes ne me laissent pas le temps de m'immerger dans la découverte de cet outil...
Je ne vous demande pas forcément de me "pondre" un programme clés en main, mais si au moins vous pouviez m'éviter de gaspiller mon temps en prenant un peu du votre, je vous en serais reconnaissant...
Merci d'avance

[SfJ5Rpw8]

tiens essai et inspire toi de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ChangeRepertoire(stRep As String, stNewRep As String)
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
  Debug.Print h.Address;
  h.Address = Replace(h.Address, stRep, stNewRep)
  Debug.Print " ==> " & h.Address
 Next
End Sub
Sub test()
 ChangeRepertoire "D:\Mes documents\", "Z:\Mes documents\"
End Sub

[Bangalore]

Merci merci !
J'essaie, je me creuse un peu la tête, et je poste un com !

[Bangalore]

Re ! J'ai testé, le principe est là, t'as complètement compris ce dont j'ai besoin, il n'y a qu'un détail (mais qui a son importance) : dans ma cellule, le texte n'est pas le lien hypertexte en lui-même, par exemple une cellule affichant détecteur de métal renvoie vers le lien hypertexte C:\Entretien-Signalétique\Historique alimentation broyeur 531.xls#'MT1'!A1 où MT1 est la page concernée du classeur "Historique alimentation broyeur 531.xls", car MT1 est le code du détecteur de métal... et c'est ainsi pour tous les liens.

Le code que tu m'a proposé fonctionnerait à merveille si ma cellule affichait réellement C:\Entretien-Signalétique\Historique alimentation broyeur 531.xls#'MT1'!A1 ... mais hélas dans le document initial ça n'est pas le cas.

Quelqu'un voit une piste ?

[SfJ5Rpw8]

et
h.Address n'est pas l'adresse vers la quelle pointe ton lien..?

[Bangalore]

Ben non... h.Address renvoit le contenu de la cellule affiché et pas le lien hypertexte réel (il renvoit "image" au lieu de c:\mes docs\exemple1.bmp par exemple)

[SfJ5Rpw8]

Ben non... h.Address renvoit le contenu de la cellule affiché et pas le lien hypertexte réel (il renvoit "image" au lieu de c:\mes docs\exemple1.bmp par exemple)

pas chez moi c'est quoi la verion d'excel. .?

[Bangalore]

Excel 2003 tournant sous Windows 2000...