Bonjour à tous, avec vb je souhaiterai ouvrir un fichier précit Excel en cliquant sur des boutons. Mais j'aimerai aussi si ce fichier est deja ouvert, qu'en cliquant sur les boutons, il me renvoit simplement à la feuille concernée. Chaque boutons correspond à une feuille de mon fichier.
Le pb c'est qu'à l'exécution, mon fichier Excel n'est pas visible mais dans le gestionnaire de taches Excel se lance bien. pourriez vous m'aider svp ?
Voici le code:
en module :
Public appExcel As Excel.Application
Public wbExcel As Excel.Workbook 'Classeur Excel
Public wsExcel As Excel.Worksheet 'Feuille Excel
Public MyXl As Object
dans mon form :
Private Sub Command1_Click(Index As Integer)
On Error Resume Next
Set MyXl = GetObject("C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls")
If Err.Number <> 0 Then
Application.DisplayAlerts = False
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets("Production hebdo")
wsExcel.Activate
Application.DisplayAlerts = True
Else
Set wsExcel = wbExcel.Worksheets("Production hebdo")
wsExcel.Activate
End If
End Sub