Discussion :

[gootsu]

Salut tous le monde!

j'ai un problème!
Un message d'erreur qui viens constament me déranger!
Ce message parle de Contrôles ActiveX qui vont etre initialiser! (voir pièce jointes)
J'aimerais savoir comment corriger le problème ou comment arreter cette erreur?

Merci d'avance

[gootsu]

Il y aurait des éventuelles propositions?
ou des solutions?

(je prefere des solutions )

[gootsu]

je sais! je sais! C'est incomprehensible!

[illight]

Cette fenetre apparait quand quand tu lance ta macro ? montre nous déja ta procédure et sur quelle ligne ce message apparait


Sinon un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.displayalerts = false

ça marche pas ?

[gootsu]

il apparait quand je lance mon fichier excel! mais aussi je supose aprés l'enregistrement automatique d'excel (enfin je croix )

je vais essayer ton code! merci

faut-il le remettre à true avant la fermeture?

[illight]

Oui faut le remettre a true

[gootsu]

Non! ça ne marche toujours pas!

une fois charger il me met ce message!

[illight]

Attend dès que tu lance Excel ça te met une erreur ? tu lance une macro à l'ouverture de ton fichier Excel ?

[gootsu]

oui j'en lance une!
Mais avant ça ne me le fesait pas! pourquoi?

[illight]

on peut la voir cette macro ?

[gootsu]

Mon code dans Thisworkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()

'désactivation du compagnon microsoft
    Assistant.On = False
   Application.DisplayAlerts = False

'-------appel d'une sub------
    LoadingMsg = False
    Worksheets(1).Activate
    LoadForm.Show
End Sub

je tien à signaler qu'il ne comment pas à gérer mon code que le message apparait!!

code dans loadform :

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
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, _
                            ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "User32" (ByVal hWnd As Long, _
                            ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" (ByVal hWnd As Long, ByVal nIndex As Long, _
                            ByVal dwNewLong As Long) As Long

Private Sub UserForm_Activate()
    Dim hWnd As Long, exLong As Long
    
'permet de ne pas avoir la bar bleu avec le 'X' des fenetres windows
    hWnd = FindWindowA(vbNullString, Me.Caption)
    exLong = GetWindowLongA(hWnd, -16)
    If exLong And &H880000 Then
        SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
        Me.Hide: Me.Show
    End If
    
'Réalise une mise à jours de diférent paramètre dans mes userforms ainsi et surtout dans mes feuilles
    MiAjo.Miseajour
    
'mise à true de la variable pour éviter le chargement de la userform "loadform" une seconde fois
    LoadingMsg = True

'dévourouillage des feuilles
DeverouSheets

'initialisation de la page de garde au démarage
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    With Worksheets("page de garde")
        .listbat.Visible = False
        .Range("g20") = ""
        .Range("k17") = ""
        .listfour.Visible = False
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
    
'vérouillage des feuilles
VerouSheets
    
    ProgressBar1.Value = ProgressBar1.Max
    LoadForm.Hide
       
End Sub

[SfJ5Rpw8]

qu'elle est ta version d'excel... et quel est l'activeX ProgressBar1 peu-être...
n'est tu ps sous officeXP .. et il y as peu-être une nouvelle fonctionalité de gestion des ActiveX ..,non-signés ou autre...

[gootsu]

effectivement c'est peut etre ma progressbar!!