Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Axel Guerrier [MS]
Bonjour Marina
Worksheets.Add ?
Option Explicit
Private Sub Command1_Click()
Dim myExcelApp As New Excel.Application
Dim myExcelWrkBook As Excel.Workbook
Dim myExcelWksSheet As Excel.Worksheet
Set myExcelWrkBook = myExcelApp.Workbooks.Add
Set myExcelWksSheet = myExcelWrkBook.Worksheets.Add
myExcelWksSheet.Cells(1, 1) = 1000
myExcelWrkBook.SaveAs "myExcelWrkBook.xls"
End Sub
-- Axel GUERRIER Microsoft France -------------------- Merci de bien vouloir répondre à ce message dans le newsgroup où il a été posté. Je le consulte régulièrement.
"marina" wrote in message news:051501c3c54e$8f16e870$ bonjour, je voudrais ajouter à mon formulaire une feuille excel déjà exixtante. Merci d'avance marina
Bonjour Marina
Worksheets.Add ?
Option Explicit
Private Sub Command1_Click()
Dim myExcelApp As New Excel.Application
Dim myExcelWrkBook As Excel.Workbook
Dim myExcelWksSheet As Excel.Worksheet
Set myExcelWrkBook = myExcelApp.Workbooks.Add
Set myExcelWksSheet = myExcelWrkBook.Worksheets.Add
myExcelWksSheet.Cells(1, 1) = 1000
myExcelWrkBook.SaveAs "myExcelWrkBook.xls"
End Sub
--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.
"marina" <anonymous@discussions.microsoft.com> wrote in message
news:051501c3c54e$8f16e870$a401280a@phx.gbl...
bonjour,
je voudrais ajouter à mon formulaire une feuille excel
déjà exixtante.
Merci d'avance
marina
Set myExcelWksSheet = myExcelWrkBook.Worksheets.Add
myExcelWksSheet.Cells(1, 1) = 1000
myExcelWrkBook.SaveAs "myExcelWrkBook.xls"
End Sub
-- Axel GUERRIER Microsoft France -------------------- Merci de bien vouloir répondre à ce message dans le newsgroup où il a été posté. Je le consulte régulièrement.
"marina" wrote in message news:051501c3c54e$8f16e870$ bonjour, je voudrais ajouter à mon formulaire une feuille excel déjà exixtante. Merci d'avance marina
marina
Merci pour l'aide je vais tester :-)
-----Message d'origine----- Bonjour Marina
Worksheets.Add ?
Option Explicit
Private Sub Command1_Click()
Dim myExcelApp As New Excel.Application
Dim myExcelWrkBook As Excel.Workbook
Dim myExcelWksSheet As Excel.Worksheet
Set myExcelWrkBook = myExcelApp.Workbooks.Add
Set myExcelWksSheet = myExcelWrkBook.Worksheets.Add
myExcelWksSheet.Cells(1, 1) = 1000
myExcelWrkBook.SaveAs "myExcelWrkBook.xls"
End Sub
-- Axel GUERRIER Microsoft France -------------------- Merci de bien vouloir répondre à ce message dans le
newsgroup où il a été
posté. Je le consulte régulièrement.
"marina" wrote in
message
news:051501c3c54e$8f16e870$ bonjour, je voudrais ajouter à mon formulaire une feuille excel déjà exixtante. Merci d'avance marina
.
Merci pour l'aide je vais tester :-)
-----Message d'origine-----
Bonjour Marina
Worksheets.Add ?
Option Explicit
Private Sub Command1_Click()
Dim myExcelApp As New Excel.Application
Dim myExcelWrkBook As Excel.Workbook
Dim myExcelWksSheet As Excel.Worksheet
Set myExcelWrkBook = myExcelApp.Workbooks.Add
Set myExcelWksSheet = myExcelWrkBook.Worksheets.Add
myExcelWksSheet.Cells(1, 1) = 1000
myExcelWrkBook.SaveAs "myExcelWrkBook.xls"
End Sub
--
Axel GUERRIER
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le
newsgroup où il a été
posté. Je le consulte régulièrement.
"marina" <anonymous@discussions.microsoft.com> wrote in
message
news:051501c3c54e$8f16e870$a401280a@phx.gbl...
bonjour,
je voudrais ajouter à mon formulaire une feuille excel
déjà exixtante.
Merci d'avance
marina
