Menu

Message d'erreur 1004 vba

Messages postés
69
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
19 mai 2019
- - Dernière réponse : cs_Le Pivert
Messages postés
6097
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 juin 2019
- 19 mai 2019 à 11:42
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
8
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
19 mai 2019
1
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 42547 internautes nous ont dit merci ce mois-ci

Fat17
Messages postés
69
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
19 mai 2019
-
C'est trop compliqué pour moi.
Merci quand même pour la réaction.
A+ Fat
Commenter la réponse de franc38
Messages postés
6097
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 juin 2019
370
1
Merci
Bonjour,

voir ceci:

https://support.microsoft.com/fr-fr/help/905164/you-receive-a-runtime-error-1004-error-message-when-you-try-to-copy-an

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 42547 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Le Pivert
Messages postés
8
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
19 mai 2019
1
0
Merci
Dans ce cas il nous faut le fichier
utilise https://cjoint.com/...
A+ François
Commenter la réponse de franc38