[VB] Création fichier Excel
Fermé
adi59
Messages postés
18
Date d'inscription
mardi 31 janvier 2006
Statut
Membre
Dernière intervention
17 août 2010
-
28 nov. 2006 à 17:18
dj6mow Messages postés 2 Date d'inscription jeudi 25 juin 2009 Statut Membre Dernière intervention 26 juin 2009 - 26 juin 2009 à 00:30
dj6mow Messages postés 2 Date d'inscription jeudi 25 juin 2009 Statut Membre Dernière intervention 26 juin 2009 - 26 juin 2009 à 00:30
A voir également:
- [VB] Création fichier Excel
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - 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 ^^
Utilisateur anonyme
15 août 2008 à 13:42
15 août 2008 à 13:42
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
dj6mow
Messages postés
2
Date d'inscription
jeudi 25 juin 2009
Statut
Membre
Dernière intervention
26 juin 2009
2
26 juin 2009 à 00:30
26 juin 2009 à 00:30
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
5 août 2008 à 10:24
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 ?
2 juin 2009 à 14:46
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