Discussion :

[Bigasse]

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

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
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?

[l_autodidacte]

Salut;

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

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 :

Exit Sub

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

[Bigasse]

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.

[l_autodidacte]

Salut;

Je n'ai donc pas bien saisi la question !

Dans ce cas la solution devient toute simple:

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
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

[Bigasse]

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

[l_autodidacte]

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.

[Bigasse]

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.

[Bigasse]

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

[l_autodidacte]

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).

[Bigasse]

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

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
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?

[l_autodidacte]

Code :

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

 If Not ExcelObj.Visible then ExcelObj.Quit

[Bigasse]

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

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
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