Merci à vous Steplof et Jacques,
Je vais avoir tout mon dimanche pour m'amuser avec les solutions que vous m'avez gentiment proposé. Comme toujours, si ça ne permet pas de régler directement le problème, ça fait toujours avancer et ça servira pour autre chose.
Pour davantage d'explication, mon truc consiste à donner des tableaux à remplir à 10 collègues (avec des cases de couleurs) puis de récupérer de temps en temps les données pour un tableau général.
Pour l'heure, et depuis ma demande, j'ai trouvé ça que j'essaye en ce moment et qui a l'air de marcher :
(macro depuis CUMUL.xls)
ActiveSheet.Unprotect
Workbooks.Open ("d:FICHIER1.XLS")
Range("a7:k46").Select
Selection.Copy
Workbooks("CUMUL.xls").Activate
Range("a7").Select
Selection.PasteSpecial ' Paste:=xlFormats, Operation:=xlNone, skipBlanks:=False, Transpose:=False
Workbooks("FICHIER1.XLS").Close SaveChanges:=False
Workbooks.Open ("d:FICHIER2.XLS")
Range("a7:k46").Select
Selection.Copy
Workbooks("CUMUL.xls").Activate
Range("a47").Select
Selection.PasteSpecial ' Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks("FICHIER2.XLS").Close SaveChanges:=False
etc...
Ca a l'air de fonctionner sauf qu'à chaque fois, j'ai un message à propos du presse-papier qui contient trop d'infos.
Comment le vider automatiquement ?
A +
JFP
PS : au fait, nous avons un super temps en ce moment en Bretagne alors c'est pas dit du tout que je vais rester enfermé demain !