Excel ne suit plus
Bonjour à tous!
J'utilise une macro depuis des années, toute simple: suivre un lien hypertexte affecté à une cellule. Pratique, pas cher: si le fichier est fermé, elle l'ouvre, et s'il est ouvert, elle le sélectionne.
Sauf que cette macro ne fonctionne plus depuis une dizaine de jours, je pense que c'est dû à une mise à jour de Microsoft.
J'ai essayé un pas à pas, assez intéressant: en tapant F8 plusieurs fois, la macro "sort du VBA", et affiche "étendre la sélection" en bas,sur la feuille Excel comme si j'avais sélectionné la feuille de calcul, et plus aucune ligne ne bouge sur le VBA.
Ci dessous un extrait de cette macro. Jusqu'à maintenant, elle sélectionnait la cellule nommée, et suivait le lien.
Sheets("9H.").Select
Range("G11").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("Z1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("I3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("G12").Select
Voilà, bonne réception!
(supprimé, erreur de ma part)
Bonjour,
Ca vient probablement de tes données. Est-ce que tu peux partager le classeur en masquant les données confidentielles ?
Daniel
Si tu appuies sur F8 alors que tu es dans une feuille (et non plus dans l'éditeur VBA, tu passes en mode "sélection étendue" et "étendre la sélection" s'affiche dans la barre d'état.
Daniel
Bonjour, et merci de ta réponse! Petit aparté, je n'ai pas eu de mail me disant que tu m'avais répondu.
C'est exactement ce que je dis , au lieu de rester sur la feuille VBA, je passe automatiquement sur la feuille sur la feuille de calcul en tapant F8, ça ne le faisait pas il y a 10 ou 12 jours. Je vais essayer de créer un exemple, mais pas simple, il faut 3 ou 4 fichiers, à mettre dans le même répertoire. A de suite.
Bonjour Chelhydra
Tu es toujours sur Excel 2010Fr !?
Sinon par rapport à ces 2 lignes
Range("G11").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=TrueQu'y a t'il dans ta cellule G11 par exemple
Perso, pas de souci pour moi