Bonjour à tous ...
Voilà je souhaite faire fermer automatiquement une fenetre Excel qui a été ouverte dans IE (impossible d'ouvrir ce fichier Excel autrement).
Sauf que voilà bah ca marche pas ^^
Code :
- Private Sub CommandButton1_Click()
- Dim InputDate As Date
- Dim Wb As Excel.Workbook
- Dim Appli As Excel.Application
-
- On Error Resume Next
-
- Set Appli = GetObject(, "Excel.Application" )
-
- For Each Wb In Appli.Workbooks
- If Wb.Name = "exportExcel" Then
- MsgBox ("On ferme !!" )
- Wb.Close
- End If
- Next Wb
- End Sub
|
J'ai l'impression que le Wb.close ne fonctionne que s'il s'agit d'un fichier Excel ouvert dans Excel ... la il est ouvert sur un onglet IE ... et de ce fait le nom du fichier est "exportExcel" et non pas "exportExcel.xls" ...
Si qq'un à une idée ... je suis preneur
Merci
Message édité par Odissine le 02-04-2014 à 13:36:08