ERREUR 1004 : ERIC S

[Laurent]

Bonjour,

Lorsque je lance la macro, un message d'erreur apparaît:

erreur d'exécution 1004

Impossible d'exécuter cette commande sur des selections multiples




Mon programme était le suivant:
Sheets("intervenants").Select
Range("a65536").Select
Selection.End(xlUp).Select
If ActiveCell.Value < 2 Then Exit Sub
ligne = ActiveCell.Row
zone = ""
For i = 2 To ligne
Range("a" & i).Select
If ActiveCell.Value <> "" Then
If zone <> "" Then zone = zone & ", "
zone = zone & ActiveCell.Row & ":" & ActiveCell.Row
End If
Next i
If zone = "" Then Exit Sub
Range(zone).Select
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\rfossaer\Bureau\recueil.xls"
Sheets("INTERVENANTS").Select
Range("a65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close

D'avance Merci
Laurent

 

[EricS]

RE

Autant pour moi, il y a (au moins une erreur) :

If ActiveCell.Value < 2 Then Exit Sub doit être remplacée par

If ActiveCell.Row < 2 Then Exit Sub

un zip 2 fichiers à mettre dan sun répertoire de test
ouvrir recueil1
appuyer sur le bouton
le résultat est copié dan srecueil

note le code est mis dansun module car si tu le mets directement sur la feuille, cela provoque une erreur 1004 lorsque le code demande à quitter l afeuille pour aller sur l'autre fichier

IMPORTANT : au lieu de recréer une demande continue de compléter la demande initiale car sinon tu multiplies les sujets et d'autres personnes sur le forum ne peuvent plus utiliser ta recherche

A+

 

[Laurent]

J'ai toujours un pb,

Je lance la macro et elle s'arrête sur Selection.Copy et je ne comprends pas.

@+
Laurent

 

[Laurent]

J'ai trouvé :
Mon pb venait du fait que mes cellules de données étaient fusionnées alors que les cellules récup ne l'étaient pas

Merci de ton aide

Laurent