Créer et compléter un fichier Excel en VBS
Résolu
johann91
Messages postés
46
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
21 juillet 2006
-
6 avril 2006 à 16:23
johann91 Messages postés 46 Date d'inscription jeudi 2 décembre 2004 Statut Membre Dernière intervention 21 juillet 2006 - 7 avril 2006 à 09:25
johann91 Messages postés 46 Date d'inscription jeudi 2 décembre 2004 Statut Membre Dernière intervention 21 juillet 2006 - 7 avril 2006 à 09:25
A voir également:
- Vbscript excel
- Vbscript msgbox - Conseils pratiques -Visual Basic / VB.NET
- Arctan excel ✓ - Forum Visual Basic 6
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
- Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin" - Forum Visual Basic
- Tangente et arctangente ✓ - Forum C++ & C++ .NET
4 réponses
johann91
Messages postés
46
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
21 juillet 2006
7 avril 2006 à 09:25
7 avril 2006 à 09:25
Après de longues recherches, j'ai enfin trouvé le code qu'il me fallait. Je le poste au cas où ça puisse aider quelqu'un (je précise que ce code n'est pas de moi à la base, mais je l'ai un peu modifié car il était en VB) :
'Déclaration des variables
Dim xlApp
Dim xlSheet
Dim xlBook
'initialisation des variables
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
'Enregistrement
xlBook.SaveAs ("D:\test.xls")
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
'Déclaration des variables
Dim xlApp
Dim xlSheet
Dim xlBook
'initialisation des variables
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
'Enregistrement
xlBook.SaveAs ("D:\test.xls")
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
