Bonjour le Forum,
Je rencontre un probleme, a l'ouverture d'un fichier excel contenant des macros j'installe toujours
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ThisWorkbook.IsAddin = False
afin que l'utilisateur soit obligé d'activer les macros sinon le fichier ne s'ouvre pas et reste sur une page grise
Dans mon cas si dessous le code ne fonctionne pas
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
Private Sub Workbook_Open()
 Application.ScreenUpdating = False
   ThisWorkbook.IsAddin = False
    Dim C As String
    Dim cpt As Integer
    Dim R As String
 
 
    If Date > #1/5/2010# Then
 
        R = Sheets("RENSEIGNEMENTS").Range("D1").Value
 
        Do
 
            C = InputBox("Tu donnes combien BRUNO?", _
                         "Accès restreint", _
                         "10 000€", _
                         5500, _
                         5000)
 
            cpt = cpt + 1
 
        Loop Until C = R Or cpt > 3
 
        If C <> R Then ThisWorkbook.Close savechanges:=False
 
    End If
 
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
 
UserForm2.Show
Application.ScreenUpdating = True
 
End Sub
D'avance merci de votre aide
Cdt