Reference non Valide

Fermé

Excel

LeMort - 10 mars 2012 à 01:31
LeMort - 10 mars 2012 à 17:18

Bonjour,
je suis novis en VBA. Dans Excel 2007, j'ai un fichier de 136
feuilles donc une, la première nommé 'Menu' avec en A 130 nom qui doivent avoir chacun un lien hypertexte vers une feuille du même nom. J'ai écrit le code ci dessous et après l'exécution ok du code, si je cliques sur un nom, j'ai : 'Référence non valide' dans une fenêtre de message
Merci de m'aidé,
LeMort

le code:

fl = "MenuRappGrand totalviergeAide" ' Nom des autres feuilles a sauter
For Boucle = 1 To w

' Verifie page valide
If Worksheets(Boucle).Visible = True And 0 = InStr(1, fl, Worksheets(Boucle).Name) Then
k = k + 1 ' incremente la ligne des noms dans Feuille Menu
L = Mid(Str(k), 2) 'Change chaine
nom = Worksheets(Boucle).Name

Worksheets("Menu").Range("A" & L).Select
Selection.Hyperlinks(1).SubAddress = nom & "A2"
End If
Next Boucle

Les noms son des noms de personne avec '_' a la place des espaces.

A voir également:

La référence n'est pas valide excel
Ethernet n'a pas de configuration ip valide - Guide
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Formule excel - Guide
Si et excel - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
10 mars 2012 à 08:39

Bonjour,
' Verifie page valide

If Worksheets(Boucle).Visible = True And 0 = InStr(1, fl, Worksheets(Boucle).Name) Then

A remplacer par

If Worksheets(boucle).Visible = True And InStr(1, Worksheets(boucle).Name, fl) = 0 Then

pas utile L = Mid(Str(k), 2) 'Change chaine a enlever

remplacez L par k
Worksheets("Menu").Range("A" & k).Select

a voir

Bonne suite

Réponse 2 / 4

LeMort
10 mars 2012 à 14:06

Re Bonjour... Merci f894009...

j'ai appliquer les deux corrections suggérées, a la première, soit : 'And 0 = InStr(Boucle...' remplacer par 'And InStr(Boucle... ' avec cette première correction l'expression n'accomplissait plus son travail de passer outre aux fenêtres nommer dans le variable 'fl'.

En contrepartie au sujet de la deuxième correction, ' pas utile L = Mid(Str(k), 2) '.
Effectivement elle était inutile. Merci, tu m'a appris que maintenant VBA ne met plus automatiquement un espace avant une variable numérique. Ce qui était le ca pour les premières version de VBA. c'était instinctif pour moi.

Par contre un autre message se manifeste quand je cliques sur les noms lier, 'Impossible d'ouvrir le fichier spécifié' .
Après avoir exécuté le code, a regarder les noms qui sont supposer avoir un lien hypertexte, ceux-ci arborent tous une barre de soulignement.

Une autre chose que j'ai découvert et me semblant importante entre un lien fait manuellement et un fait avec VBA.

Quand je met le curseur de la souri sur le nom lier, j'ai un infobulle différente entre un lien fait par VBA et un lien fait manuellement.

VBA : file:/// 'nom feuille ou sont lister les noms avec liens\'Nom de la feuille lier'.
Manuellement : 'file:/// 'nom du fichhier excel'.xlsm - \'nom de la feuille lier'.

Celui faite manuellement fonctionne et l'autre donne comme erreur : 'Impossible d'ouvrir le fichier spécifié'
A la lumière de ses infos je crois que vous aller être mesure de me m'aider dans la correction a apporter au code.
Je vous remerci tous et chacun du temps passer a vous casser la tète.
j'apprécie beaucoup, mille mercis.

Lemort

LeMort
10 mars 2012 à 17:18

Merci beaucoup f984009, ce sont de bonnes habitudes que j' ai pas, a adapter... cela facilite la lecture du code.

Je n'ai pas encore pu corriger le fond de mon problème de fond.

Je me casse la tète a savoir ce qui pourrait empêcher VBA de construire le lien de la bonne façon. D'après beaucoup d'exemple trouver sur le net, le code me semble ok.
Je n'ai pas encore pu trouver de solutions sur le net.

En conclusion à la différence qui existe entre la construction manuel d'un lien hypertexte( Qui fonctionne correctement) et celui construit par mon code VBA, c'est que le code VBA ne met pas dans l'adresse le nom du fichier excel (ce qui se fait en la création manuel) .

A la place il met le nom de la page ou figure la liste du nom a lier, mais cette différence, au clic sur le nom lier, provoque une erreur du genre, 'impossible d'ouvrir le fichier spécifié' ( faits décrit dans mon 2 ieme envois)

j'ai beau chercher, en me posant la question: a savoir si il n'y aurais pas une configuration a changer ou un paramètre différent qui pourrait corriger le problème???
Si quelqu'un peux m'éclairer je vous en serait très reconnaissant...
Merci encore de vous pencher sur ce problème...

LeMort

Discussions similaires

"référence circulaire" Excel ?

Excel référence circulaire

Référence non valide

Référence de cellule variable formule excel

Bloqué sur excel

[Excel] référence à une autre feuille

Discussions similaires

Newsletters