Bonsoir à tous,

dans le micro hebdo de cette semaine, il y a un tuto pour automatiser la création d'un emploi du temps :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Affecter(rMod As String)
Dim CurrSel As Range
Set CurrSel = Selection
Range(rMod).Select
Selection.Copy
CurrSel.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=x1None, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub
 
Sub AE()
Affecter "E3"
End Sub
 
Sub Campagne()
Affecter "E5"
End Sub
 
Sub JrneBlche()
Affecter "E7"
End Sub
 
Sub Formation()
Affecter "E9"
End Sub
 
Sub Absence()
Affecter "E11"
End Sub
Mais lorsque je l'utilise, j'ai ce message d'erreur qui m'irrite !!!



Je travaille sous Excel 2007.

Merci d'avance pour votre aide.