Activer un classeur Excel 2003 depuis Excel 2007

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:

---

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.

et que renvoie ceci?

Code:

---

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

---

Bonjour,

Essaye comme ceci :

Code:

---

1 2 3 4 5 6

On Error GoTo erreur Workbooks(nomFichierVhl).Activate Exit Sub erreur: Workbooks.Open ThisWorkbook.Path & "\" & nomFichierVhl End Sub

---

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:

---

On Error Resume Next

---

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

Merci pour vos réponses.

Même problème avec ta proposition fring :

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

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.

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

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

Code:

---

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

---

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