Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls") appExcel.Visible = True
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOn 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
Dim bClasseurTrouvé As Boolean On Error Resume Next Set appExcel = GetObject(, "Excel.Application") On Error GoTo 0 If appExcel Is Nothing Then ' Excel pas ouvert ' On ouvre une nouvelle instance Set appExcel = CreateObject("Excel.Application") ' On ouvre notre classeur Set wbExcel = appExcel.Workbooks.Open("C:\Classeur1.xls") appExcel.Visible = True 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets("Feuil1") wsExcel.Activate Application.DisplayAlerts = True Else ' Excel tourne déjà appExcel.Visible = True bClasseurTrouvé = False For Each wbExcel In appExcel.Workbooks If wbExcel.Name = "Classeur1.xls" Then ' Oui, classeur ouvert bClasseurTrouvé = True ' on sort Exit For End If Next If Not bClasseurTrouvé Then Set wbExcel = appExcel.Workbooks.Open("C:\Classeur1.xls") End If ' Ouvre la deuxième feuille Set wsExcel = appExcel.Worksheets("Feuil2") wsExcel.Select wsExcel.Visible = True wsExcel.Activate End If Set wsExcel = Nothing Set wbExcel = Nothing Set appExcel = Nothing