Findwindow Excel

Question

Bonjour a tous,
Voici mon code pour ouvrir un fichier Excel a partir d'un bouton :

Private Sub Command1_Click()
    Resultat = FindWindow(vbNullString, "calcul")
    If Resultat <> 0 Then
        Rep = ShowWindow(Resultat, 2)
        Rep = ShowWindow(Resultat, 1)
    Else
        Temp = 0
        RetValeur = Shell("C:\Program Files\Microsoft Office\Office\excel.exe c:\calcul.xls", 1)
    End If
End Sub

Ce que je voudrai c'est ouvrir mon fichier excel et le faire reapparaitre sans le reouvrir en recliquant.
Ca marche pour d'autres applications mais pas Excel car la feuille ne s'appelle pas vraiment Calcul
Quelqu'un peut il m'eclairer ?

moseg · Answer

J'oubliai , voici mon module :
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Resultat As Long

Merci

moseg · Answer

Bon,apres avoir pass&#233; la journ&#233;e a gal&#233;r&#233; ,je suis arriv&#233; a ca :

'D&#233;claration des variables
Dim Bool As Boolean
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel


Private Sub Command1_Click()
    If Bool = True Then
        'Ouverture de l'application
        Set appExcel = CreateObject("Excel.Application")
        'Ouverture d'un fichier Excel
        Set wbExcel = appExcel.Workbooks.Open("c:\calcul.xls")
        Bool = False
    Else
        wbExcel.Close 'Fermeture du classeur Excel
        appExcel.Quit 'Fermeture de l'application Excel
        'D&#233;sallocation m&#233;moire
        Set wbExcel = Nothing
        Set appExcel = Nothing
        Bool = True
    End If
End Sub


Private Sub Form_Load()
    Bool = True
End Sub

Le probleme c'est je n'arrive pas a ouvrir mon fichier !!!!! pourtant excel se lance bien ( il est dans mes processus) . S'agit t'il d'un bug

valtrase · Answer

Salut,
Bien sur qu'il est ouvert tu as deux solutions soit tu g&#233;res directement Excel par VB
ex:
une fois ouvert
sheets("Feuil1").Range("A1").value = "&#231;a me prends la t&#234;te"
ira &#233;crire "&#231;a me prends la t&#234;te" sur ta feuille1
tout ceci sans qu'excel soit visible si tu veux le voir ....
appExcel.Visible = true

Mais bon si tu veux y traivailler de suite dedans comme dans un programe normal utilises plutot la fonction ShellExecute qui te lancera excel.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;