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