Reference non Valide Fermé

Question

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.


Configuration: Windows XP / Firefox 10.0.2

f894009 · Answer

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

LeMort · Answer

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 · Answer

Correction a :
VBA : file:/// 'nom feuille ou sont lister les noms avec liens\ - 'Nom de la feuille lier'
a la place de: 
VBA : file:/// 'nom feuille ou sont lister les noms avec liens\'Nom de la feuille lier'
Désoler...
Lemort

f894009 · Answer

Re,

If Worksheets(boucle).Visible = True And InStr(1, Worksheets(boucle).Name, fl) = 0 Then 

J'ai inverse le test dans instr par erreur

le code est:

If Worksheets(boucle).Visible = True And InStr(1, fl,Worksheets(boucle).Name)= 0 then

Bonne suite

Reference non Valide

4 réponses

Discussions similaires