Copie de excel vers un fichier texte
Résolu
morcelet
Messages postés
18
Date d'inscription
lundi 5 avril 2004
Statut
Membre
Dernière intervention
24 janvier 2008
-
4 mai 2005 à 15:22
cs_ynizon Messages postés 53 Date d'inscription mardi 30 avril 2002 Statut Membre Dernière intervention 19 avril 2012 - 4 mai 2005 à 16:42
cs_ynizon Messages postés 53 Date d'inscription mardi 30 avril 2002 Statut Membre Dernière intervention 19 avril 2012 - 4 mai 2005 à 16:42
A voir également:
- Copie de excel vers un fichier texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Arctan excel ✓ - Forum Visual Basic 6
- Planning de maintenance préventive excel - Forum VB.NET
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
1 réponse
cs_ynizon
Messages postés
53
Date d'inscription
mardi 30 avril 2002
Statut
Membre
Dernière intervention
19 avril 2012
1
4 mai 2005 à 16:42
4 mai 2005 à 16:42
N oublie pas de faire une reference vers Microsoft Excel (projet reference)
et apres fait ca:
Dim AppExcel As Excel.Application
Dim WBK As Excel.Workbook
Dim wks As Excel.Worksheet
Dim Cht As Excel.Chart
Dim Rng As Excel.Range
Dim Rge As String
Open "log.txt" For Output As #1
Set AppExcel = New Excel.Application
AppExcel.Visible = False
AppExcel.DisplayAlerts = False
'AppExcel.Visible = True
Set WBK = AppExcel.Workbooks.Open(sFichier)
Set wks = WBK.Worksheets(1)
While wks.Cells(i, 2).Value <> ""
Print #1, wks.Cells(i, 1).Value
i=i+1
wend
WBK.Save
WBK.Close
AppExcel.Quit
Set wks = Nothing
Set WBK = Nothing
Set AppExcel = Nothing
Close #1
-
et apres fait ca:
Dim AppExcel As Excel.Application
Dim WBK As Excel.Workbook
Dim wks As Excel.Worksheet
Dim Cht As Excel.Chart
Dim Rng As Excel.Range
Dim Rge As String
Open "log.txt" For Output As #1
Set AppExcel = New Excel.Application
AppExcel.Visible = False
AppExcel.DisplayAlerts = False
'AppExcel.Visible = True
Set WBK = AppExcel.Workbooks.Open(sFichier)
Set wks = WBK.Worksheets(1)
While wks.Cells(i, 2).Value <> ""
Print #1, wks.Cells(i, 1).Value
i=i+1
wend
WBK.Save
WBK.Close
AppExcel.Quit
Set wks = Nothing
Set WBK = Nothing
Set AppExcel = Nothing
Close #1
-
