XL 2010 Excel VBA et Liens Hypertextes sujet

Bonjour à tous,

Je programme en VBA sur Excel 2010.
Mon fichier est une liste des 75000 chemins d'accès, noms de fichiers et liens vers les dossiers.
J'ai créé une macro simple pour créer des liens hypertextes :

Code :

---

Sub mettre_liens()
    Dim fin
    Dim nRow
   
    For nRow = 5 To Range("B4").End(xlDown).Row
        With Sheets("Contenu de répertoire")
             If .Cells(nRow, 4).Value <> "" Then
               .Hyperlinks.Add ActiveSheet.Range("B" & nRow), ActiveSheet.Range("D" & nRow).Value
               .Hyperlinks.Add ActiveSheet.Range("D" & nRow), ActiveSheet.Range("D" & nRow).Value
               .Hyperlinks.Add ActiveSheet.Range("E" & nRow), ActiveSheet.Range("E" & nRow).Value
            End If
        End With
       
        Next
       
    MsgBox "Remplissage liens terminé !", vbInformation, "Opération terminée"
       
End Sub

---

Ce pendant, la macro plante en pleine exécution sans aucune raison apparente. une fois elle plante à la 23516è ligne, une fois à la 34321è ligne ou 43278è ligne. Bref j'ai un message d'erreur qui apparait :

Code :

---

Erreur d'exécution 1004 : erreur définie par l'application ou l'objet

---

Ce que je ne comprends pas, c'est qu'elle effectue ce dont j'ai besoin mais plante au bout d'un moment :(
Auriez vous une idée sur l'origine du problème ?
Merci

Modification liens hypertexte sujet

Bonjour,

Je viens à nouveau vers vous pour un problème de liens hypertextes corrompus.
Sur plus de la moitié des liens il manque une partie du chemin pour accéder au fichier.

Quand je fais un clic droit et modifier le lien hypertexte j'ai ceci : Listing%20CR\MW14023%20modif%20brûleur%20OCM.xls
J'aimerais ajouter cette partie du chemin aux liens existants : \s013\Groupes\milestone\Change Request\

J'ai essayé avec cette macro mais ca ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim h As Hyperlink For Each h In [B1:B1000].Hyperlinks If UCase(Left(h.Address, 2)) = "Li" Then h.Address = "\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 1) End If Next End Sub

---

Auriez-vous une solution ?

[JS] Sélectionner mes liens avec les flèches du clavier et les ouvrir avec la touche entrée ? sujet

Salut,

Je vous explique mon problème, j'ai créé un petit site très très simple il y a une iframe qui affiche l'image que je choisis parmi ma grille d'images, à la souris sa fonctionne très bien mais je voudrais pouvoir sélectionner mon image avec les flèches du clavier et l'ouvrir avec la touche entrée.

Voilà comment se présente le code de mon image cliquable :

Citation:

---

<a target="iframe1" href="lien-de-l-image.jpg">
<img src="miniature-de-l-image.jpg" title="mon image" /></a>

---

J'imagine donc qu'il faut passer au choses sérieuses donc au javascript ! :peur:

Je commence à bien maîtriser le html et le css mais alors en javascript je suis vraiment un noob ! :sad:

Voilà pourquoi je me tourne vers vous pour demandé de l'aide.

j'ai trouvé ceci qui me semble être une bonne piste : nhumm

Citation:

---

<script>
document.onkeydown = function(event) {
event = event || window.event;
switch (event.keyCode || event.which) {
case 38:
alert('up');
break;
case 40:
alert('down');
break;
}
};
</script>

---

En fait mon problème c'est que je ne sais pas comment remplacer alert('up'); et alert('down'); par la fonction que je veux, donc par la fonction "sélectionné le lien suivant/précédent".

Voilà merci d'avoir pris le temps de me lire malgré mes nombreuses fautes, j’espère que vous pourrez me venir en aide.