Private Sub vsab_Click() If vsab.Value = True Then Set objDoc = Application.Documents.Open("mondoc")
End If End Sub
dans le meme style je voudrais ouvrir un doc excel l' expression Workbook et Worksheets ne marche pas
merci de votre aide
bonsoir à tous
comment à l aide d une chekbox dans word ouvrir un doc excel je suis arrivé à lancer excel mais pas le classeur voulu!!
Ce serait bien d'indiquer votre code, on pourrait le compléter plutôt que de partir dans une autre direction.
-- A+
Geo
Bonjour à lulu débutant
Voici un pour de code de Philippe Tulliez Date : Mar 30 avr 2002 18:40
Dim xls As Excel.Application ' L'application Dim Classeur As Excel.Workbook ' Le document Dim Feuille As Excel.Worksheet ' La feuille courante Dim Chemin As String Dim LaPlage As String
Private Sub UserForm_Initialize() ' Paramètres à modifier Chemin = "C:WINDOWSBureauWTLProjetsWTLForecast.xls" LaPlage = "pnForecast" ' Set xls = Nothing Set xls = New Excel.Application Set Classeur = xls.Workbooks.Open(Chemin) Set Feuille = Classeur.Sheets("Forecast")
End Sub Private Sub UserForm_Terminate() xls.DisplayAlerts = False xls.Quit Set xls = Nothing Me.Hide End Sub
===================================== Pour que cela fonctionne, ne pas oublier dans VBE de référencer Excel Faire Outils/Référence et sélectionner ' Microsoft Excel 9.0 object library (pour Excel 2000)
----------------------------
Bon courage
-- A+
Bonjour à lulu débutant
Voici un pour de code de Philippe Tulliez
Date : Mar 30 avr 2002 18:40
Dim xls As Excel.Application ' L'application
Dim Classeur As Excel.Workbook ' Le document
Dim Feuille As Excel.Worksheet ' La feuille courante
Dim Chemin As String
Dim LaPlage As String
Private Sub UserForm_Initialize()
' Paramètres à modifier
Chemin = "C:WINDOWSBureauWTLProjetsWTLForecast.xls"
LaPlage = "pnForecast"
'
Set xls = Nothing
Set xls = New Excel.Application
Set Classeur = xls.Workbooks.Open(Chemin)
Set Feuille = Classeur.Sheets("Forecast")
End Sub
Private Sub UserForm_Terminate()
xls.DisplayAlerts = False
xls.Quit
Set xls = Nothing
Me.Hide
End Sub
=====================================
Pour que cela fonctionne, ne pas oublier dans VBE de référencer Excel
Faire Outils/Référence et sélectionner ' Microsoft Excel 9.0 object
library (pour Excel 2000)
Voici un pour de code de Philippe Tulliez Date : Mar 30 avr 2002 18:40
Dim xls As Excel.Application ' L'application Dim Classeur As Excel.Workbook ' Le document Dim Feuille As Excel.Worksheet ' La feuille courante Dim Chemin As String Dim LaPlage As String
Private Sub UserForm_Initialize() ' Paramètres à modifier Chemin = "C:WINDOWSBureauWTLProjetsWTLForecast.xls" LaPlage = "pnForecast" ' Set xls = Nothing Set xls = New Excel.Application Set Classeur = xls.Workbooks.Open(Chemin) Set Feuille = Classeur.Sheets("Forecast")
End Sub Private Sub UserForm_Terminate() xls.DisplayAlerts = False xls.Quit Set xls = Nothing Me.Hide End Sub
===================================== Pour que cela fonctionne, ne pas oublier dans VBE de référencer Excel Faire Outils/Référence et sélectionner ' Microsoft Excel 9.0 object library (pour Excel 2000)