2 réponses
Bonjour,
Ceci devrait aller :
'---------------------------------------
Dim nI As Long
Dim nJ As Long
Dim xlAppl As Object
Dim xlWBooks As Object
Dim xlWBook As Object
Dim xlSheet As Object
' Ouverture d'Excel sans le rendre visible
Set xlAppl = CreateObject("Excel.Application")
Set xlWBooks = xlAppl.Workbooks
' Création d'un nouveau Fichier
Set xlWBook = xlWBooks.Add
Set xlSheet = xlAppl.WorkSheets
' Selection de la premiere Cellule de la premiere Feuille
xlSheet("Feuil1").cells(1, 1).Select
' Sélectionner la cellule
xlSheet("Feuil1").cells(nI, nJ).Select
' Remplire la cellule avec le contenu de [sText]
xlSheet("Feuil1").cells(nI, nJ) = sText
' Enregistrement de la Feuille sous [sFileName]
xlAppl.ActiveSheet.SaveAs FileName:=sFileName, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
'Ou
' Enregistrement du Fichier sous [sFileName]
xlWBook.SaveAs FileName:=sFileName
' Fermeture d'Excel
xlWBooks.Close
xlAppl.Quit
Set xlAppl = Nothing
'---------------------------------------
Ceci devrait aller :
'---------------------------------------
Dim nI As Long
Dim nJ As Long
Dim xlAppl As Object
Dim xlWBooks As Object
Dim xlWBook As Object
Dim xlSheet As Object
' Ouverture d'Excel sans le rendre visible
Set xlAppl = CreateObject("Excel.Application")
Set xlWBooks = xlAppl.Workbooks
' Création d'un nouveau Fichier
Set xlWBook = xlWBooks.Add
Set xlSheet = xlAppl.WorkSheets
' Selection de la premiere Cellule de la premiere Feuille
xlSheet("Feuil1").cells(1, 1).Select
' Sélectionner la cellule
xlSheet("Feuil1").cells(nI, nJ).Select
' Remplire la cellule avec le contenu de [sText]
xlSheet("Feuil1").cells(nI, nJ) = sText
' Enregistrement de la Feuille sous [sFileName]
xlAppl.ActiveSheet.SaveAs FileName:=sFileName, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
'Ou
' Enregistrement du Fichier sous [sFileName]
xlWBook.SaveAs FileName:=sFileName
' Fermeture d'Excel
xlWBooks.Close
xlAppl.Quit
Set xlAppl = Nothing
'---------------------------------------
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
Ceci devrait aller :
'---------------------------------------
Dim nI As Long
Dim nJ As Long
Dim xlAppl As Object
Dim xlWBooks As Object
Dim xlWBook As Object
Dim xlSheet As Object
' Ouverture d'Excel sans le rendre visible
Set xlAppl = CreateObject("Excel.Application")
Set xlWBooks = xlAppl.Workbooks
' Création d'un nouveau Fichier
Set xlWBook = xlWBooks.Add
Set xlSheet = xlAppl.WorkSheets
' Selection de la premiere Cellule de la premiere Feuille
xlSheet("Feuil1").cells(1, 1).Select
' Sélectionner la cellule
xlSheet("Feuil1").cells(nI, nJ).Select
' Remplire la cellule avec le contenu de [sText]
xlSheet("Feuil1").cells(nI, nJ) = sText
' Enregistrement de la Feuille sous [sFileName]
xlAppl.ActiveSheet.SaveAs FileName:=sFileName, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
'Ou
' Enregistrement du Fichier sous [sFileName]
xlWBook.SaveAs FileName:=sFileName
' Fermeture d'Excel
xlWBooks.Close
xlAppl.Quit
Set xlAppl = Nothing
'---------------------------------------
-------------------------------
Réponse au message :
-------------------------------
Voila mon problème :
Je voudrai à partir d'une application VB allez remplir des données dans un classeur excel sur différente feuille et à la fin sauvegarder le tout, en sachant que excel n'est pas ouvert car je réussi à remplir les feuilles que quand j'ai ouvert au préalablement le fichier excel.
Merci pour votre aide.
jraynald
-------------------------------
-------------------------------
Réponse au message :
-------------------------------
Bonjour,
Ceci devrait aller :
'---------------------------------------
Dim nI As Long
Dim nJ As Long
Dim xlAppl As Object
Dim xlWBooks As Object
Dim xlWBook As Object
Dim xlSheet As Object
' Ouverture d'Excel sans le rendre visible
Set xlAppl = CreateObject("Excel.Application")
Set xlWBooks = xlAppl.Workbooks
' Création d'un nouveau Fichier
Set xlWBook = xlWBooks.Add
Set xlSheet = xlAppl.WorkSheets
' Selection de la premiere Cellule de la premiere Feuille
xlSheet("Feuil1").cells(1, 1).Select
' Sélectionner la cellule
xlSheet("Feuil1").cells(nI, nJ).Select
' Remplire la cellule avec le contenu de [sText]
xlSheet("Feuil1").cells(nI, nJ) = sText
' Enregistrement de la Feuille sous [sFileName]
xlAppl.ActiveSheet.SaveAs FileName:=sFileName, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
'Ou
' Enregistrement du Fichier sous [sFileName]
xlWBook.SaveAs FileName:=sFileName
' Fermeture d'Excel
xlWBooks.Close
xlAppl.Quit
Set xlAppl = Nothing
'---------------------------------------
-------------------------------
Réponse au message :
-------------------------------
Voila mon problème :
Je voudrai à partir d'une application VB allez remplir des données dans un classeur excel sur différente feuille et à la fin sauvegarder le tout, en sachant que excel n'est pas ouvert car je réussi à remplir les feuilles que quand j'ai ouvert au préalablement le fichier excel.
Merci pour votre aide.
jraynald
-------------------------------
-------------------------------
