[VB] Création fichier Excel
adi59
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
dj6mow Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
dj6mow Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrais créer un fichier excel dans lequel je puisse écrire dans la suite du code mais je n'y arrive pas.
Voici mon code:
Set ExcelApplication = CreateObject("Excel.Application")
Set MyFile = ExcelApplication.CreateObject(PathFile, True)
Set Report = MyFile.Worksheets("Test_Failed_Defects")
Merci de me dire ce qui ne va pas.
Je voudrais créer un fichier excel dans lequel je puisse écrire dans la suite du code mais je n'y arrive pas.
Voici mon code:
Set ExcelApplication = CreateObject("Excel.Application")
Set MyFile = ExcelApplication.CreateObject(PathFile, True)
Set Report = MyFile.Worksheets("Test_Failed_Defects")
Merci de me dire ce qui ne va pas.
A voir également:
- [VB] Création fichier Excel
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
6 réponses
Private Sub Command1_Click()
Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook
Dim pchar As String
Set xls = CreateObject("Excel.Application")
Set xlsclasseur = xls.Workbooks.Add
Set xlsfeuille = xlsclasseur.Worksheets(1)
xlsfeuille.Cells(3, 1).Value = "MA FEUILLE EXCEL EST BELLE ET BIEN CREE"
xlsfeuille.Cells(4, 1).Value = "C'EST FACILE NON"
CommonDialog1.Filter = "Fichiers excel (*.xls)|*.xls"
CommonDialog1.ShowSave
chpath = CommonDialog1.FileName
If chpath <> "" Then
xlsclasseur.SaveAs (chpath)
End If
xls.Application.Quit
Set xls = Nothing
MsgBox "FIN DE L'EXPORTATION", vbOKOnly + vbInformation, "GESTION DES STATISTIQUES"
End Sub
Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook
Dim pchar As String
Set xls = CreateObject("Excel.Application")
Set xlsclasseur = xls.Workbooks.Add
Set xlsfeuille = xlsclasseur.Worksheets(1)
xlsfeuille.Cells(3, 1).Value = "MA FEUILLE EXCEL EST BELLE ET BIEN CREE"
xlsfeuille.Cells(4, 1).Value = "C'EST FACILE NON"
CommonDialog1.Filter = "Fichiers excel (*.xls)|*.xls"
CommonDialog1.ShowSave
chpath = CommonDialog1.FileName
If chpath <> "" Then
xlsclasseur.SaveAs (chpath)
End If
xls.Application.Quit
Set xls = Nothing
MsgBox "FIN DE L'EXPORTATION", vbOKOnly + vbInformation, "GESTION DES STATISTIQUES"
End Sub
Il faut que tu importes excel sinon il ne comprend pas les code excel
tu va dans Projet / Ajouter une référence / COM et tu sélectionne Microsoft excel ... là il te souligneras plus rien ^^
tu va dans Projet / Ajouter une référence / COM et tu sélectionne Microsoft excel ... là il te souligneras plus rien ^^
Bonjour,
Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook
Cette déclaration utilise des types prédéfinies qui se trouvent dans
la librairie ( référence Microsoft excel ... ).
À ce moment je dis que vous utilisé les objets d'Excel.
Par opposition, vous pouvez déclarer vos variables ainsi :
Dim xls As Variant
Dim xlsfeuille As Variant
Dim xlsclasseur As Variant
Set xls = CreateObject("Excel.Application")
Cette instruction instancie un objet de scripting et ne nécessite pas la référence.
exemple de script VBS pilotant Excel sans cette référence:
http://membre.oricom.ca/lupin/documents/excelvbs.txt
Lupin
Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook
Cette déclaration utilise des types prédéfinies qui se trouvent dans
la librairie ( référence Microsoft excel ... ).
À ce moment je dis que vous utilisé les objets d'Excel.
Par opposition, vous pouvez déclarer vos variables ainsi :
Dim xls As Variant
Dim xlsfeuille As Variant
Dim xlsclasseur As Variant
Set xls = CreateObject("Excel.Application")
Cette instruction instancie un objet de scripting et ne nécessite pas la référence.
exemple de script VBS pilotant Excel sans cette référence:
http://membre.oricom.ca/lupin/documents/excelvbs.txt
Lupin
le compilateur me souligne le Type Excel.Application meme si j'ai importer le package
Imports System.Net.Mime.MediaTypeNames
Imports System.Net.Mime.MediaTypeNames
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
voila ton code :
Private Sub Command1_Click()
Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook
Dim pchar As String
Set xls = CreateObject("Excel.Application")
Set xlsclasseur = xls.Workbooks.Add
Set xlsfeuille = xlsclasseur.Worksheets(1)
xlsfeuille.Cells(3, 1).Value = "MA FEUILLE EXCEL EST BELLE ET BIEN CREE"
xlsfeuille.Cells(4, 1).Value = "C'EST FACILE NON"
CommonDialog1.Filter = "Fichiers excel (*.xls)|*.xls"
CommonDialog1.ShowSave
chpath = CommonDialog1.FileName
If chpath <> "" Then
xlsclasseur.SaveAs (chpath)
End If
xls.Application.Quit
Set xls = Nothing
MsgBox "FIN DE L'EXPORTATION", vbOKOnly + vbInformation, "GESTION DES STATISTIQUES"
J'ai mis directement quand je clique sur un bouton mais il me souligne plein de truk. il faut pa faire des imports ou autres choses ?
J'ai un petit soucis dans Visual basic pourriez-vous m'aidez svp?
Dans mon fichier dans la feuille DEVIS ORMAZABAL PRIVEE il y a un boutton VALIDER et j'aimerai qu'une maccro enregistre la facture dans un fichier DEVIS 2009 en numérotant le devis dans le fichier je ne sais pas si c'est possible? Je vous remercie par avance j'ai essayé de faire un module sous vba le 1er mais ca ne marche pas.
Voici le fichier: http://www.cijoint.fr/cjlink.php?file=cj200906/cijRFxsbTD.xls
Micka