Discussion :

[debutVBA]

Bonjour à tous et à toutes.



Donc je tente accèder aux données d'un fichier excel nommé "monClasseur.xls" qui sous Excel 2010 à un message demandant le mot de passe de ce fichier Excel.


La même manipulation via la fonction ci -dessous établie sous excel 2003 ouvre le fichier sans demander le mot de passe.
c'est donc une macro qui, normalement, ouvre le fichier "mpnClasseur.xls" et renseigne le mot de passe automatiquement(en parametre) par consequent cette macro bug sous Excel 2010.

Que faudrait-il changer dans le code pour régler cela??


Merci à tous et à toutes

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
 On Error Resume Next
    Workbooks(monClasseur).Activate
    If Err.Number <> 0 Then
        Err.Clear
        rep= False
        Application.StatusBar = "Ouverture de la base Hibiscus choisie"
        Workbooks.Open Filename:=Chemin_serveur & monClasseur, Password:=motdepasse
        If Err.Number <> 0 Then
          Affiche = "il y a un probleme avec  " &monClasseur& Chr(10) & Chr(10) 
                         MsgBox( Affiche )
            Application.StatusBar = False
            End
        End If
    Else
        rep = True
    End If

[Qwazerty]

Salut
As-tu essayé de bloquer les messages

Code :

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

1
2
3
Application.DisplayAlerts = False
'Ouverture du fichier
Application.DisplayAlerts = True

Autre piste, essai avec l'enregistreur de Macro, tu verras si la procédure diffère

++
Qwaz

[debutVBA]

Bonjour Qwazerty

Le Application.DisplayAlerts = False doit il etre placé avant le On error resume next ?Idem pour Application.DisplayAlerts = true,juste avant la ligne de code suivant Workbooks.Open Filename:=Chemin_serveur & Base_Hibiscus_reelle ?

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
 
 
Sub test()
 
On Error Resume Next
    Workbooks(Base_Hibiscus_reelle).Activate
    Application.DisplayAlerts = False
 
 
    If Err.Number <> 0 Then
 
        Err.Clear
        flag_base_en_ligne = False
        Application.StatusBar = "Ouverture de la base "
 
 
 
        'Ouverture du fichier
        Application.DisplayAlerts = True
        Workbooks.Open Filename:=Chemin_serveur & Base_Hibiscus_reelle, Password:=PWH
 
 
 
        If Err.Number <> 0 Then
            msg = "ATTENTION : problème avec la base " & Base_Hibiscus_reelle & Chr(10) & Chr(10) _
                    & "Merci de contacter le SVP en lui précisant le contexte où vous vous trouvez"
            Style = vbOKOnly + vbCritical + vbDefaultButton1
            Title = "       Message d'erreur"
            reponse = MsgBox(msg, Style, Title)
            Application.StatusBar = False
 
        End If
 
 
    Else
        flag_base_en_ligne = True
    End If
End Sub

Quand tu me dit avec l'enregistreur de Macro ,je ne comprends pas très bien?
lorsque je code dans un module,je suis déja dans l'enregistreur de macro .

Merci par avance.