Discussion :

[juliusmarat]

Bonjour,
Je cherche à activer un fichier Excel 2003 depuis un macro VBA d'un fichier Excel 2007. Si une erreur survient à l'activation, jouvre ce même fichier :

Code :

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

1
2
3
4
5
6
7
 
Workbooks(nomFichierVhl).Activate
'Erreur 9 : le fichier n'est pas ouvert
If Err.Number = 9 Then
      Err = 0
      Workbooks.Open ActiveWorkbook.Path & "\" & nomFichierVhl
End If

Malheureusement, j'ai beau avoir le fichier Excel ouvert, la macro tente de rouvrir une seconde fois le fichier. Je pense que c'est dû au fait que mon fichier Excel 2003 est ouvert en "Mode de compatibilité". Lorsque je clique sur mes fichiers Excels ouverts, j'ai l'affichage "FichierExcel.xls [Mode de Compatibilité]".

Est-ce que quelqu'un a déjà été confronté à ce problème. Peut-on le résoudre sans passer tous ses fichier Excels 2003 en Excel 2007 ?

Merci.

[BenjGe]

et que renvoie ceci?

Code :

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

1
2
3
4
5
6
7
8
 
Msgbox nomFichierVhl
Workbooks(nomFichierVhl).Activate
'Erreur 9 : le fichier n'est pas ouvert
If Err.Number = 9 Then
      Err = 0
      Workbooks.Open ActiveWorkbook.Path & "\" & nomFichierVhl
End If

[fring]

Bonjour,

Essaye comme ceci :

Code :

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

1
2
3
4
5
6
On Error GoTo erreur
Workbooks(nomFichierVhl).Activate
Exit Sub
erreur:
Workbooks.Open ThisWorkbook.Path & "\" & nomFichierVhl
End Sub

[juliusmarat]

Bonjour Benjîle et fring.

Pour Benjîle, le msgbox me renvoie le nom de mon fichier Excel sans le chemin, à savoir "Ref Vehicule.xls".
Pour fring, j'ai utilisé un

Code :

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

On Error Resume Next

au dessus que j'ai oublié ici, mais je vais essayer ta solution.

Merci pour vos réponses.

[juliusmarat]

Même problème avec ta proposition fring :

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
Sub testOuverture()
 
nomFichierReferentiel = "Ref Vehicule.xls"
nomFichierVehicule = "Vehicule_1.xls"
 
On Error GoTo erreur1
Workbooks(nomFichierVehicule).Activate
'Erreur 9 : le fichier n'est pas ouvert
'If Err.Number = 9 Then
'    MsgBox ("Ouverture de " & nomFichierVehicule)
'    Err = 0
'    Workbooks.Open ActiveWorkbook.Path & "\" & nomFichierVehicule
'End If
 
On Error GoTo erreur2
Workbooks(nomFichierReferentiel).Activate
'Erreur 9 : le fichier n'est pas ouvert
'If Err.Number = 9 Then
'    MsgBox ("Ouverture de " & nomFichierReferentiel)
'    Err = 0
'    Workbooks.Open ActiveWorkbook.Path & "\" & nomFichierReferentiel
'End If
 
erreur1: Workbooks.Open ThisWorkbook.Path & "\" & nomFichierVehicule
erreur2: Workbooks.Open ThisWorkbook.Path & "\" & nomFichierReferentiel
End Sub

L'erreur est bien déclenchée, donc Excel essaye d'ouvrir le classeur en question, mais j'ai le message d'erreur "Ref Vehicule.xls est déjà ouvert, ...".

Autant pour moi en ajoutant un Exit Sub, ça fonctionne, mais j'aimerais pouvoir continuer à écrire du code après. Je vais voir vers un appel de fonction.

[BenjGe]

fais un err.clear avant l'activation peut être que le script détecte une erreur déjà survenue

[mercatog]

Peut être je ferai comme ceci et continuer à travailler avec les variables WbkV et WbkR sans activer quoi que ce soit

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
Sub testOuverture()
Dim WbkR As Workbook, WbkV As Workbook
Const nomFichierReferentiel As String = "Ref Vehicule.xls"
Const nomFichierVehicule As String = "Vehicule_1.xls"
 
On Error Resume Next
Set WbkV = Workbooks(nomFichierVehicule)
On Error GoTo 0
If WbkV Is Nothing Then Set WbkV = Workbooks.Open(ThisWorkbook.Path & "\" & nomFichierVehicule)
 
On Error Resume Next
Set WbkR = Workbooks(nomFichierReferentiel)
On Error GoTo 0
If WbkR Is Nothing Then Set WbkR = Workbooks.Open(ThisWorkbook.Path & "\" & nomFichierReferentiel)
 
'suite du code avec WbkV et WbkR
End Sub

[juliusmarat]

Passer par des variables en ce qui concerne les classeurs Excels fonctionne !
Merci pour votre aide.
A bientôt