[Vba-E] Message d'erreur "Microsoft Forms"?

Version imprimable

24/07/2006, 09h20
gootsu

1 pièce(s) jointe(s)

[Vba-E] Message d'erreur "Microsoft Forms"?

Salut tous le monde!

j'ai un problème!
Un message d'erreur qui viens constament me déranger! :aie:
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?:cry:

Merci d'avance
24/07/2006, 10h47
gootsu

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

(je prefere des solutions ;) )
26/07/2006, 10h14
gootsu

je sais! je sais! C'est incomprehensible!;)
26/07/2006, 10h16
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:

application.displayalerts = false

ça marche pas ?
26/07/2006, 10h27
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 :lol:

faut-il le remettre à true avant la fermeture?
26/07/2006, 10h29
illight

Oui faut le remettre a true ;)
26/07/2006, 10h30
gootsu

Non! ça ne marche toujours pas!

une fois charger il me met ce message!
26/07/2006, 10h35
illight

Attend dès que tu lance Excel ça te met une erreur ? tu lance une macro à l'ouverture de ton fichier Excel ?
26/07/2006, 10h59
gootsu

oui j'en lance une! :?
Mais avant ça ne me le fesait pas! pourquoi? :cry:
26/07/2006, 11h22
illight

on peut la voir cette macro ?

Mon code dans Thisworkbook :

Code:

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:

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

26/07/2006, 17h30
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...
27/07/2006, 08h22
gootsu

effectivement c'est peut etre ma progressbar!!;)