Modif de liens hypertexte en masse

Question

Bonjour,  

Un problème qui me fait m'arracher les cheveux me pousse vers vous. 

J'ai un Dossier comprenant un fichier excel et 350 (pour le moment) dossiers de photos. 
Dans le classeur excel, j'ai 350 cellules qui renvoient chacune à un des dossiers de photos. 
Tout marchait bien, j'ai rentré les liens hypertexte au fur et à mesure que je remplissait les lignes. Et là, oh surprise (je n'avais pas testé ces liens depuis un certain temps, mais les emplacements des divers objets n'ont pas été modifiés pour autant), l'adresse de TOUS mes liens hypertexte a été modifié et me renvoit donc un message d'erreur, comme quoi c'est introuvable blablabla. (il cherche les photos dans C:\Documents and Settings\espaces_verts\Application Data\Microsoft\Excel)
Même les nouvelles entrées que j'avais faites hier!!!!! 
C'est à n'y rien comprendre... 

Si vous aviez une solution pour modifier l'adressage des liens hypertexte ça serait vraiment chouette! (sachant que chaque dossier de photos a exactement le même nom que la cellule contenant le lien) 

Merci à vous! 

Beeloobop 


Configuration: Office 2007 
Internet Explorer

Mihawk · Answer

En utilisant VBA tu dois pouvoir faire ça facilement dans une boucle !

Beeloobop · Answer

Bonjour et merci pour ta réponse rapide!

J'ai testé une petite boucle (je m'épate moi-même, ya 1 semaine, vba était une chose étrange et quasi-inconnue héhéhé ):

Sub modif_lien_hypertexte()

Dim i As Integer

Dim Lg%
Lg = Range("A7").End(xlDown).Row

For i = 7 To Lg
    Range("A" & i).Select
    Selection.Hyperlinks(1).Address = Range("A" & i).Value
Next i
   
End Sub

ça marche jusqu'à ce qu'il rencontre une cellule à laquelle aucun dossier de photos ne correspond, là il s'arrête. Saurais-tu comment faire pour qu'il continue, qu'il passe au i suivant? ou alors qu'il fasse apparaître une input box pour pouvoir faire le lien manuellement et cliquer ensuite pour reprendre au i suivant?

Merci!

Mihawk · Answer

Qu'entends-tu par "aucun dossier ne correspond" ? Je croyais que le lien était fait en fonction du nom de la cellule... Cela voudrait dire que ta cellule n'a pas de nom ?

Beeloobop · Answer

Non excuse moi je me suis mal expliquée.

La cellule contient bien une valeur mais il n'y a pas de dossier portant son nom : 
- soit le nom est différent : erreur de ma part à résoudre grâce éventuellement à cette fameuse message box (plutot que inputbox, non?) qui reprendrait la macro suite à mes modifs
- soit il n'y a pas du tout de dossier de photos : il faudrait faire une recherche pour voir s'il existe un fameux dossier de photos, s'il y en a une, faire le lien hypertexteet s'il n'y en a pas passer au i suivant. Je pensais donc rajouter une condition if, mais je ne sais pas trop comment la formuler... je cherche je cherche ^^

Beeloobop · Answer

J'ai modifié mon code comme suit (merci ;) je sens que j'approche!) :

Sub modif_lien_hypertexte()
Dim i As Integer
Dim Lg%
Lg = Range("A7").End(xlDown).Row
For i = 7 To Lg
    If Dir(Range("A" & i).Value) <> "" Then
    Range("A" & i).Select
    Selection.Hyperlinks(1).Address = Range("A" & i).Value
    End If
Next i
End Sub

Le problème c'est qu'il ne va pas me chercher les dossier de photos dans le bon emplacement. Comment faire pour lui dire de chercher dans le même dossier que le classeur excel? ou de lui demander de chercher dans un dossier spécifique?

Merci!

Beeloobop · Answer

Bon bé après moultes recherches je suis arrivée à ça :

Sub modif_lien_hypertexte()

Dim Lg%
Lg = Range("A7").End(xlDown).Row

Dim Nom

    For i = 7 To Lg
    Range("a" & i).Select
    Nom = Range("A" & i).Value
    
        If Nom <> "" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Inventaire Botanique (PC)\" & Nom, TextToDisplay:=Nom
End If
    
    Next

End Sub

Et ça marche!!!
Il me reste plus qu'à trouver un moyen pour qu'il ne me souligne pas et ne me colore pas en bleu les cellules pour lesquelles le lien hypertexte n'est pas valable. Mais ça reste du détail!
Aaaah ça va un peu mieux!

Merci pour ton aide précieuse Mihawk!

Beeloobop

Mihawk · Answer

De rien, je n'ai pas fait grand chose...
Le problème des liens, c'est qu'il se soulignent automatiquement en bleu comme ça... Il faudrait carrément écrire, dans le cas où il ne faut pas mettre de lien, un texte ou un symbole bidon genre '#'.

Mihawk · Answer

Bah : 

Si (le dossier existe)
    alors écrire le lien
Sinon
    laisser le nom de la plante tel quel
Fin si

Modif de liens hypertexte en masse

8 réponses

Discussions similaires

Newsletters