Message d'erreur 1004 vba [Fermé]

Signaler
Messages postés
72
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
31 octobre 2019
-
Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020
-
Bonjour,

Qu'est-ce-qui cloche dans cette macro ?
J'ai une feuil1 avec macro de transfert de données, cette feuille est protégée.

A l'ouverture, j'ai un message d'erreur 1004
- Capture d'écran du message : https://www.cjoint.com/c/IEsrNohb35b

La ligne "Application.Goto .Range(cellules)" apparait surlignée en jaune
- Capture d'écran de la macro : https://www.cjoint.com/c/IEsrRT2hQbb

Est-il possible de corriger cette erreur ?
Cette macro est dans la feuil0 qui contient les raccourcis de toutes les autres feuilles qui sont masquées (50) et avec des liens hypertexte pour ouvrir la feuille désirée.
A la réouverture du fichier, seule la feuil0 est visible. Tout le reste est masqué.

Merci pour votre assistance
Cordialement
Fat


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim s As String
Dim cellules As String
Dim Feuille As String
Dim lienSplit() As String

lienSplit = Split(Target.SubAddress, "!")
If UBound(lienSplit) >= 1 Then
Feuille = Replace(lienSplit(0), "'", "")
cellules = lienSplit(1)
With Sheets(Feuille)
If .Visible = False Then
.Visible = True
Application.Goto .Range(cellules)
End If
End With
Else
MsgBox ("Lien non valide... " & Target.SubAddress)
End If
End Sub


Configuration: Windows / Chrome 74.0.3729.157

3 réponses

Messages postés
91
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
26 juillet 2020
15
Bonjour
Perso je n'ai pas de message d'erreur
Place toi sur: lienSplit = Split(Target.SubAddress, "!")
appuie sur F9
Lance la macro
quand tu arrives sur cette ligne appuie sur f8
Regarde les valeurs de tes variables
Ton erreur vient certainement d'un lien ...
A+ François
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57036 internautes nous ont dit merci ce mois-ci

Messages postés
72
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
31 octobre 2019

C'est trop compliqué pour moi.
Merci quand même pour la réaction.
A+ Fat
Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020
535
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57036 internautes nous ont dit merci ce mois-ci

Messages postés
91
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
26 juillet 2020
15
Dans ce cas il nous faut le fichier
utilise https://cjoint.com/.
A+ François