Salut mes amis,

j'ai cherché dans le forum des sujet concernant le lancement d'une macro automatique lors de l'ouverture de fichier Excel. J'ai pas atteint au résultat, voici le macro que j'ai trouvé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
private sub workbook_open()
msgBox "Salut   "& environ("Username") & "Lancement de la mise à jour ? "
Application.run ("'Miseajour'")
end sub
mais mon cas est le suivant, je veux que lorsque j'ouvre le fichier excel, ce dernier lance cette macro :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Acceuil()
Dim MaPlage As Range, Police As Font, Commentaire As Comment
Dim MaFeuille As Worksheet
Set MaFeuille = ThisWorkbook.Worksheets("Feuil10")
With MaFeuille
    .Cells.ClearContents
    .Cells.ClearFormats
    .Cells.Interior.Color = 13434879
End With
With MaFeuille.Range("E13:M26")
With .Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = vbBlack
End With
With .Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = vbBlack
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = vbBlack
End With
With .Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = vbBlack
End With
End With
 
Range("E13:M15").Select
    Selection.Interior.ColorIndex = 44
Range("E13:M15").MergeCells = True
Range("E16:M17").Select
    Selection.Interior.ColorIndex = 36
Range("E22:M23").Select
    Selection.Interior.ColorIndex = 36
Range("E18:M19").Select
    Selection.Interior.ColorIndex = 36
Range("E18:M19").MergeCells = True
Range("E20:M21").Select
    Selection.Interior.ColorIndex = 36
Range("E20:M21").MergeCells = True
Range("E24:M26").Select
    Selection.Interior.ColorIndex = 44
Range("E24:M26").MergeCells = True
 
Set MaPlage = ThisWorkbook.Worksheets("Feuil10").Range("E18:M19")
Range("E18").Font.Name = "Book Antiqua"
Worksheets("Feuil10").Range("E18").Value = "Application d'ordonnancement et de "
Range("E18").Font.Size = 22  'Taille du texte
Range("E18").HorizontalAlignment = -4108
Range("E18").VerticalAlignment = -4108
Range("E18").Font.Bold = True 'Ecriture gras
 
Range("E20").Font.Name = "Book Antiqua"
Worksheets("Feuil10").Range("E20").Value = " planification de la production "
Range("E20").Font.Size = 22  'Taille du texte
Range("E20").HorizontalAlignment = -4108
Range("E20").VerticalAlignment = -4108
Range("E20").Font.Bold = True 'Ecriture gras
 
End Sub
Mes amis est ce que c'est possible lors d'ouverture du fichier excel, ce dernier lance automatique la macro précédente qui permet de créer une page de garde dans une feuille qui s'appelle "feuil10" (par exemple) et merci.