Probleme pour ouvrir une selection de lien hypertexte génèré automatiquemen
Oui je ne sais pas du tout
Oui je ne sais pas du tout
As tu essayé de faire un copier coller des liens à ouvrir dans un nouvel onglet et lancer la macro ouverture à partir de ce nouvel
onglet ?
Oui j'y ai pensé et essayé mais ça ne fonctionne pas
Je vais essayer avec ton fichier et quelques liens perso ajoutés pour voir car je ne peux utiliser les tiens évidemment on n'a pas les même répertoire.
Oui ca serait super sympas, si il fonctionne sur un lien c'est bon. Après la sélection devrait ce faire
Comprend plus pourquoi çà ne fonctionne pas.
Fait un test avec celui-ci pourquoi il m'ouvre pas ma sélection, ils m'ouvrent un lien mais pas plusieurs sniffff on y est presque
Sub Bouton72_Cliquer()
Dim xHyperlink As Hyperlinks
Dim D As Range, f$, n%
Dim Cell As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set D = Application.Selection
Set D = Application.InputBox("Range", xTitleId, D.Address, Type:=8)
f = D.Formula
If f Like "=HYPERLINK(*" Then
n = InStr(f, "(") + 1
f = Evaluate(Mid(f, n, InStrRev(f, ",") - n))
ThisWorkbook.FollowHyperlink f
If InStr(f, "#") Then Application.Goto Evaluate(Split(f, "#")(1))
End If
End Sub
J'ai retire la boucle d’où le problème comment la remettre For Each Cell In D
Xmen je te remercie pour tout tes reponses, je viens enfin de trouver en revanche maintenant je voudrai selectionner les lignes visibles pour pouvoir les trier
Il ne fait rien du tout, qu'est ce que je pourrai rajouter pour que celui-ci lisent les lignes visible selectionné?
Sub SuivreLien()
Dim xHyperlink As Hyperlinks
Dim Cell As Range
Dim c As Range, f$, n%
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set c = Application.Selection
Set c = Application.InputBox("Range", xTitleId, c.Address, Type:=8)
For Each c In Selection
f = c.Formula
If f Like "=HYPERLINK(*" Then
n = InStr(f, "(") + 1
f = Mid(f, n, InStrRev(f, ",") - n)
ThisWorkbook.FollowHyperlink Evaluate(f)
End If
Next
End Sub
Dernière petite précision pour que je puisse travailler tranquillement.
C'est bon je viens de trouver merci a toi pour toutes ces précisions.
Avec ton dernier code effectivement çà fonctionne de mon coté j'avais aussi trouvé comment exporter les liens sur un autre
onglet avant de lancer ta macro et cela fonctionn aussi.
Bien vu et bravo pour ta persévérence !
Salut oui c'est impeccable, maintenant je regarde si je pouvais colorier les cases sélectionner.
Pour savoir si tout les liens on bien etait ouvert comment pourrai je faire ?
Salut oui c'est impeccable, maintenant je regarde si je pouvais colorier les cases sélectionner.
Pour savoir si tout les liens on bien etait ouvert comment pourrai je faire ?
Je pense il n'y a pas de raison que excel n'ouvre pas la selection
cela devrait générer un message d'erreur non ?
Non c'est juste pour mémoire comme ça cela me permettra de savoir si j'ai rien oublier étant donné qu'il y a plus de 1000 plans a faire.
Non c'est juste pour mémoire comme ça cela me permettra de savoir si j'ai rien oublier étant donné qu'il y a plus de 1000 plans a faire.
Ok mais finalement vous avez résolu le problème de selection comment ? une copie sur un autre onglet ? dans ce cas sur
cet onglet on pour ajouter une formule pour compter le nombre de valeur de la selection ?
Je me sert de cette macro
Sub SuivreLien()
Dim c As Range, f$, n%
On Error Resume Next
For Each c In Selection
f = c.Formula
If f Like "=HYPERLINK(*" Then
n = InStr(f, "(") + 1
f = Mid(f, n, InStrRev(f, ",") - n)
ThisWorkbook.FollowHyperlink Evaluate(f)
End If
Next
End Sub
Elle fonctionne super bien, en revanche avant je souhaite que dans ma sélection je change les cases de couleurs si possible bien entendu.
Je te retourne celui que j'ai modifié en privé. .
Le mien passe par une copie des liens dans un nouvel onglet.
- par exemple à l'ouverture tu verras que le filtre est appliqué sur le dossier 5
il va donc copie uniquement les liens du dossier 5 dans l'onglet voulu.
tu verras ensuite en B2 du nouvel onglet le nombre de liens ouverts.
Oui tu as tout compris, c'est bien ce que je souhaite faire.
Ça fonctionne en sélectionnant seulement les cellules visibles.
Il me reste juste a ajouter une macro avant pour colorier la selection
C'est bon je viens de trouver merci encore XMEN