extaction hyperlien erreur 1004 [Forums - Forum principal] : myDearFriend! Excel Pages

extaction hyperlien erreur 1004		#1
centaure Débutant XLPages Inscription: 24/01/2010 Messages: 14 Système d'exploitation: PC Version Excel utilisée: 2007	Posté le : 29-01-2010 01h18 `Sub GetHyperlinks() Dim NextRow As Long Dim Shp As Object NextRow = 1 For Each Shp In ActiveSheet.Shapes If Shp.Type = msoPicture Then Cells(NextRow, "A") = Shp.Hyperlink.Address NextRow = NextRow + 1 End If Next Shp End Sub` Bonjour, je voudrais récupérer le lien d'une image, j'ai essayé plusieures façons du type ci dessus: j'ai toujour l'erreur 1004. (Pendant que j'y suis, je ne comprend pas pourquoi quand j'insère du code dans un sujet il se place automatiquement au dessus du texte que je viens de mettre) Merci par avance

Re: extaction hyperlien erreur 1004		#2
Guy Accro XLPages Inscription: 09/01/2008 De Montréal, Québec Messages: 463 Système d'exploitation: PC Version Excel utilisée: 97 à 2016	Posté le : 29-01-2010 02h55 Bonjour centaure, J'ai testé le bout de code sur mon poste avec Excel 2003 et Excel 2007 et tout baigne. Que la variable Shp soit déclarée comme Object ou comme Shape. L'erreur 1004 "Erreur définie par l'application ou par l'objet" est extrêmement fréquente et vague. Donc si tu avais l'obligeance de joindre un classeur qui produit l'erreur signalée ce pourrait être utile. Cordialement, Guy 2pme

Re: extaction hyperlien erreur 1004		#3
centaure Débutant XLPages Inscription: 24/01/2010 Messages: 14 Système d'exploitation: PC Version Excel utilisée: 2007	Posté le : 29-01-2010 11h24 Bonjour et merci pour ta réponse ( je me fais hara kiri juste aprés ce message, j'avais des image sans lien) Par contre saurais tu comment bloquer et débloquer avant et après un mouse_event le déplacement de la souris, parce que là moi aussi je bloque.(J'ai trouver des solutions pour desactiver la souris, mais impossible de la réactiver) Merci encore

Re: extaction hyperlien erreur 1004		#4
Guy Accro XLPages Inscription: 09/01/2008 De Montréal, Québec Messages: 463 Système d'exploitation: PC Version Excel utilisée: 97 à 2016	Posté le : 29-01-2010 11h53 Bonjour centaure, Je ne comprends pas bien la question. Que veux-tu dire par «bloquer la souris» ? Et ces solutions pour bloquer la souris, peut-on en avoir quelques bribes, miettes et autres bouts de code? Cordialement, Guy 2pme

Re: extaction hyperlien erreur 1004		#5
centaure Débutant XLPages Inscription: 24/01/2010 Messages: 14 Système d'exploitation: PC Version Excel utilisée: 2007	Posté le : 29-01-2010 13h35 Re Un utilisateur doit cliquer sur une image de page web, à partir de ce moment là le curseur ne doit plus bouger pendant quelques secondes. J'ai pensé à modifier le registre ou passer par des dll mais il faudrait redémarrer la machine. Si je ne trouve pas de solution simple j'essayerai de masquer le port affecté à la souris. 'attente du clic qui déclenche le cgt de page Dim htmlDoc As HTMLDocument Set htmlDoc = IE.Document a = htmlDoc.Title While htmlDoc.Title <> "Le Dernier samouraï (2002) - AlloCiné" 'Le Dernier samouraï (2002) - AlloCiné Wend 'A partir de là attendre l'exécution de quelques ligne de codes et réactiver la souris

Re: extaction hyperlien erreur 1004		#6
Guy Accro XLPages Inscription: 09/01/2008 De Montréal, Québec Messages: 463 Système d'exploitation: PC Version Excel utilisée: 97 à 2016	Posté le : 29-01-2010 16h04 Bonjour centaure, Le petit classeur joint donne un exemple de blocage de souris avec la fonction API BlockInput de user32. Je crois la chose suffisamment simple et je n'ai donc pas commenté le code sinon pour la déclaration de la fonction : `' La déclaration doit être Public pour être accessible depuis frmExempleBlocageDeSouris Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long` L'exercice est périlleux! Si tu modifies la chose et que ça plante Ctrl+Alt+Delete et Kaboum sur Excel quitte à reprendre. Voilà. Cordialement, Guy Pièce jointe: ExempleDeBlocageDeSouris.xls [ Taille: 37.50 Ko - Téléchargements: 479 ] 2pme

Re: extaction hyperlien erreur 1004		#7
centaure Débutant XLPages Inscription: 24/01/2010 Messages: 14 Système d'exploitation: PC Version Excel utilisée: 2007	Posté le : 29-01-2010 18h28 Merci Guy Je n'avais pas pensé à regarder dans les API, ça m'a évité de partir dans des élucubrations. Bon, finalement je ne me suicide plus. Merci aussi pour ça!

Re: extaction hyperlien erreur 1004		#8
centaure Débutant XLPages Inscription: 24/01/2010 Messages: 14 Système d'exploitation: PC Version Excel utilisée: 2007	Posté le : 29-01-2010 18h29 Pardon j'avais oublié de mettre résolu.

Vous pouvez voir les sujets.

Vous ne pouvez pas débuter de nouveaux sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.

Qui consulte actuellement ce sujet ? 1 Utilisateur(s) anonymes