Discussion :

[debutVBA]

Bonjour à tous et à toutes.


Donc j'ai une macro que j'essaie avec tant de mal de déboguer mais je ne trouve pas la coquille.

Cette macro fonctionne très bien sous 2003 mais pas sous 2010.

l'erreur est sur cette partie du code

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
 On Error Resume Next
    Workbooks(Base_Hibiscus_reelle).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_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
        End If
    Else
        flag_base_en_ligne = True
    End If
    On Error GoTo 0

Des que je fais un mode pas à pas ,l'instruction If Err.Number <> 0 est toujours vrai et donc affiche toujours le message d'erreur "msg" indiqué dans la conditionnelle.

Les variables sont tous en Public.
Quand je retire le On error Resume Next cela m'affiche
Erreur d'excution 9
L'indice n'appartient pas a la selection pourtant dans les valeurs des variables locales j'ai bien ceci
Base_Hibiscus_reelle : "Base_Hibiscus_RP.xls" : Variant/String

Base_Hibiscus_reelle n'est pas vide..

d'ou pourait venur le probleme?
Quelqu'un aurait une idée ?

Help
Merci à tous et à toutes

[Theze]

Bonjour,

As-tu contrôlé la bonne construction de ton chemin avec un Debug.Print ou MsgBox ?

Code :

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

1
2
 
MsgBox Chemin_serveur & Base_Hibiscus_reelle

Hervé.

[debutVBA]

Bonjour theze,

Oui j'ai bien controlé en faisant MsgBox Chemin_serveur & Base_Hibiscus_reelle et cela m'affiche bien le chemin complet du fichier .

Je ne vois vraiment pas d'ou cela pourrait venir...

Merci à toi

[Didier Gonard]

Bonjour,

tu es passé sous 2010

Base_Hibiscus_reelle : "Base_Hibiscus_RP.xls"

as-tu passé ton fichier en .xlsx ?

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[debutVBA]

Bonjour Ormonth ,

Non je l'ai laissé sous xls.

Car la macro est censé fonctionner sur des postes qui sous 2003 et 2010 .

La ou est la difficulté

Help

Merci à toi en tout cas..

[debutVBA]

Bonjour à tous et à toutes

Personne aurait une petite idée pour solutionner le problème évoqué ci dessous?

Merci à tous et à toutes

[Didier Gonard]

Bonjour,

d'après ce que tu fournis comme données.. non

Passe par la méthode empirique :

tu mets ta ligne de code :

Code :

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

  Workbooks.Open Filename:=Chemin_serveur & Base_Hibiscus_reelle, Password:=PWH

dans une procédure simple toute seule en remplaçant les variables pas leur valeur en "dur"

tu testes, ça ouvre ou non..
tu remplace une valeur pas la variable ad-hoc que tu alimente bine sur, tu testes etc...

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[debutVBA]

Bonjour Ormonth,

J'ai déja testé en remplaçant par les valeurs en dur mais visiblement le classeur ne s'ouvre pas....

j'ai fais une boucle du type

Code :

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

1
2
3
4
5
For each wb in workbooks 
 
msgBox "la liste des classeurs ouverts sont :" & wb.name
 
next

mais il ne s'affiche pas..

très très étrange..

Je peux éventuellement mettre le fichier à dispo si tu aurais peut etre une vague idée..

Moi je sèche...

Merci

[Didier Gonard]

Bonjour Ormonth,

J'ai déja testé en remplaçant par les valeurs en dur mais visiblement le classeur ne s'ouvre pas....

Si sur une ligne de code il ne trouve pas ton classeur, c'est qu'il y a un souci dans le chemin (écrit ou existence du classeur), testes la même ligne sous 2003 (cf ton 1er post), il ne doit pas y avoir de différence.

cordialement,

Didier

[debutVBA]

Bonjour,
Est-il possible de supprimer le Topic?

Si oui,modérateurs pouvez-vous le supprimer .?
Merci bien.