Compatibilité MACRO 2003 ET 2010

debutVBA · 16 Janvier 2012

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:

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

debutVBA · 17 Janvier 2012

Re : Compatibilité MACRO 2003 ET 2010

Bonjour,

j'ai testé ceci ci dessous en affichant les valeurs des variables locales:
et j'ai trouvé a la fin de l'execution de la fonction
monClasseur.xls = Vide
mot de passe = vide
chemin = vide

c'est à n'y rien comprendre sous 2003 tout est ok
et sous 2010 les 3 valeurs sont a vides c'est pour ca que le classeur s'ouvre pas...

Mais je n'ai aucune idée comment solutionner ce probleme?

Quelqu'un aurait une idée??

Code:

 Sub testDeLaMacro()
 

 On Error Resume Next
    Workbooks("monClasseur.xls").Activate
    If Err.Number <> 0 Then
        Err.Clear
        flag_base_en_ligne = False
        Application.StatusBar = "Ouverture de la base Hibiscus choisie"
        Workbooks.Open Filename:="Chemin" & "\" & "monClasseur.xls", Password:=motdepasse   

        'Message test     
        MsgBox "Ceci est un message test pour indiquer que le classeur est ouvert "
        
        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
        End If
    Else
        flag_base_en_ligne = True
    End If


End Sub

Compatibilité MACRO 2003 ET 2010

debutVBA

Guest

debutVBA

Guest

Discussions similaires

Compatibilité MACRO 2003 ET 2010

debutVBA

Guest

debutVBA

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency