Problème d'ouverture du fichier excel avec VBS

Chers amis,
Voici le code que j'utilise pour ouvrir mun fichier excel avec un clic sur bouton:

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 27 28 29 30 31 32

Dim objExcelApp Dim FileName, AppName Dim msg Dim ExcelObj Dim ExcelWb Dim Found   FileName = "D:\Mon ficher.xls" AppName = "Microsoft Excel"   Set ExcelObj = CreateObject("Excel.Application")   Set ExcelObj = GetObject(, "Excel.Application")   On Error Goto 0   For Each ExcelWb In ExcelObj.Workbooks 'MsgBox excelwb.Name If ExcelWb.Name = "Mon ficher.xls" Then Found = True MsgBox "Mon ficher.xls already opened, switching to excel..." Exit For End If Next   If Not found Then Set ExcelWb = ExcelObj.Workbooks.Open(FileName) End If   ExcelObj.Visible = True   Exit Sub

---

Lorsque le fichier est déjà ouvert le message apparait, mais en cliquant sur ok du message, le fichier ne s'ouvre pas sur l'écran.
Il reste clignoté sur la barre de tâche.
Quelqu'un peut m'aider à résoudre se problème?

Salut;

Deux choses à considérer :
1 - Pourquoi écrire:

Citation:

---

Set ExcelObj = CreateObject("Excel.Application")
Set ExcelObj = GetObject(, "Excel.Application")

---

Tu crées l'instance de Excel puis tu demandes qu'on la cherche. Si l'ordre était l'inverse(avec une condition If ....Then), ça se comprend mieux ; ou plus simplement, supprime la 2ème ligne.

2 - La dernière ligne de ton code :

Citation:

---

Exit Sub

---

Où se trouve l'entête de cette procédure ?
En supprimant cette ligne, tout marche correctement.

Merci, pour ta réaction.
Le code Set ExcelObj = GetObject(, "Excel.Application") me permet d'ouvrir "Mon ficher.xls" , s'il était déjà ouvert.
Sans ça, je n'ai pas le MsgBox "Mon ficher.xls already opened, switching to excel..." et j'ouvre une copie de "Mon fichier.xls"

Avec mon script, "Mon ficher.xls" s'ouvre sans problème s'il était fermé.
Mais s'il était ouvert, le MsgBox "Mon ficher.xls already opened, switching to excel..." s'affiche, mais en cliquant sur ok, Mon ficher.xls" ne se met pas en avant plan sur écran.

Salut;

Je n'ai donc pas bien saisi la question ! :oops:

Dans ce cas la solution devient toute simple:

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 27 28 29 30

Dim objExcelApp Dim FileName, AppName Dim msg Dim ExcelObj Dim ExcelWb Dim Found FileName = "C:\MODELE.XLS" AppName = "Microsoft Excel" Set ExcelObj = CreateObject("Excel.Application") Set ExcelObj = GetObject(, "Excel.Application") On Error Goto 0 For Each ExcelWb In ExcelObj.Workbooks 'MsgBox excelwb.Name If ExcelWb.Name = "MODELE.XLS" Then Found = True MsgBox "MODELE.XLS already opened, switching to excel..." ExcelObj.Visible = True Exit For End If Next If Not found Then Set ExcelWb = ExcelObj.Workbooks.Open(FileName) ExcelObj.Visible = True End If

---

Salut,
J'avais déjà essayé cette proposition mais, pas de solution.
Si, je veux utiliser setforeground. Comment je peux procéder?
Merci

Salut;

Pour "setforeground", je ne vois pas comment faire.

Mais pour le code "corrigé", il doit y avoir quelque chose d'autre qui cloche car sur ma machine ça marche sans problème.

Essaie d'exécuter juste ce bout de code sur un fichier(comme Modele.xls).
Et si ça marche, il te faut revoir en détails tout ton code.

Salut,
J'ai recopié exactement ton code, mais il n'y a pas de changement.
"MODELE.XLS" ne s'ouvre tjrs pas en avant plan après le clic sur le msgBox.
Cherchons encore.

Chers amis,
Jusque là je n’ai pas une solution à ce problème.
Quelqu’un a une solution pour moi ?
Merci

Bonjour;

Étant donné que cela marche sur mes machines(XP Home XP3 et XP Pro SP2), je ne vois trop d'où le problème pourrait venir.

Si tu testes le code en mode sans échec ? ça peut donner une idée non !

Il se pourrait aussi que(si je ne me trompe pas) ça soit lié au paramétrage de l'installation de MS Office.

Une autre suggestion : Si tu as VB6 installé, teste le même code sous cet IDE(chose que j'ai testé avec succès).

Voici le code que j'ai utilisé pour contourner le problème:

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 27 28 29 30

Dim objExcelApp Dim FileName, AppName Dim ExcelObj Dim ExcelWb Dim Found Dim FileName     FileName = "D:\Mon ficher.xls" AppName = "Microsoft Excel" Set ExcelObj = CreateObject("Excel.Application") Set ExcelObj = GetObject(, "Excel.Application")   On Error Goto 0 For Each ExcelWb In ExcelObj.Workbooks Found = True ExcelWb.Save ExcelWb.Close ExcelObj.Quit   Exit For End If Next   If Not found Then Set ExcelWb = ExcelObj.Workbooks.Open(FileName) End If     ExcelObj.Visible = True

---

A la place du MsgBox, je ferme tout ficher excel ouvert.
Est-il possible de fermé seulement les fichers ouvert en arrière plan et laissé celui ouvert en avant plan?

Code:

---

If Not ExcelObj.Visible then ExcelObj.Quit

---

J'ai essayé ceci, mais le fichier ouvert en arrière-plan ne se ferme toujours pas.

Code:

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 27 28 29 30

Option Explicit Function action   Dim objExcelApp Dim FileName, AppName Dim ExcelObj Dim ExcelWb Dim Found     AppName = "Microsoft Excel"   Set ExcelObj = CreateObject("Excel.Application")   Set ExcelObj = GetObject(, "Excel.Application")   On Error Goto 0   For Each ExcelWb In ExcelObj.Workbooks If Not ExcelObj.Visible then Found = True ExcelWb.Save ExcelWb.Close ExcelObj.Quit Exit For End If   Next   End Function

---