Erreur 1004
Résolu
romain7254
Messages postés
1071
Statut
Membre
-
romain7254 Messages postés 1071 Statut Membre -
romain7254 Messages postés 1071 Statut Membre -
Bonjour,
Je cherche depuis plusieurs heures en vain pourquoi ma macro me retourne l'erreur 1004, alors qu'elle fonctionne ! Ce que je veux qu'elle fasse sur la page (entre autre changer des valeurs) fonctionne... mais le code d'erreur apparait...
La ligne en gras précédée de ">>" est la ligne contenant l'erreur.
Voici le code :
Merci d'avance.
Cordialement, Romain.
Je cherche depuis plusieurs heures en vain pourquoi ma macro me retourne l'erreur 1004, alors qu'elle fonctionne ! Ce que je veux qu'elle fasse sur la page (entre autre changer des valeurs) fonctionne... mais le code d'erreur apparait...
La ligne en gras précédée de ">>" est la ligne contenant l'erreur.
Voici le code :
Sub fusion_listerecap_gethyperlinks()
Dim F As Worksheet
Dim dest As Range
Dim i As Integer
Dim rng As Range, cell As Range
i = 2
Set rng = Range("d4:d500")
Set dest = ActiveSheet.Range("B2")
dest.CurrentRegion.Offset(1).ClearContents
For Each F In Worksheets
ActiveSheet.Hyperlinks.Add _
Anchor:=ActiveSheet.Cells(i, 2), _
Address:="", _
SubAddress:=F.Name & "!A1", _
TextToDisplay:=F.Name
i = i + 1
dest.Offset(, 2) = F.Range("B1")
dest.Offset(, 1) = F.Range("A6")
dest.Offset(, 3) = F.Range("B6")
dest.Offset(, 4) = F.Range("E1")
Set dest = dest.Offset(1)
Next F
Set dest = Nothing
For Each cell In rng.Cells
>> cell.Value = Worksheets(1).Range("A" & cell.Value)
Next
End Sub
Merci d'avance.
Cordialement, Romain.
