Menu

Convertir un fichier excel en txt sous vbscript [Résolu/Fermé]

Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
- - Dernière réponse : sikasika
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
- 12 mai 2014 à 10:07
Bonjour Tout le monde,

J'ai besoin de votre aide svp
Mon problème est le suivant : j'ai besoin de transformer un fichier excel en fichier txt en utilisant VBscript.

Je n'ai jamais utiliser VBscript . J 'ai effectué plusieurs recherches mais sans pouvoir trouver une réponse à ma question ( tout le monde cherche à transformer un fichier txt en excel)

Si quelqu'un peut me donner un coup de main :D

Cordialement,
Afficher la suite 

9 réponses

Messages postés
14457
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2019
1146
0
Merci
Bonjour,

Pourquoi du vbscript ???? il serait plus simple de le faire avec de l'excel en partant du fichier de base !!!!!!!
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
3
0
Merci
Bonjour,

oui j'y avais pensé mais je ne fait qu'exécuter ce qu'on m'a demandé

Cordialement, :D
Messages postés
14457
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2019
1146
0
Merci
Bonjour,

Ben oui. Il faudra quand-meme avoir excel sur le PC
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
3
0
Merci
Bonjour :D,

Oui je l'ai, mais j'aimerai travailler avec du VBS plutôt que du VBA

est ce que c'est possible de m'aider :D ????

j'ai déjà essayer d'écrire un code mais je bloque


Option Explicit

Sub exporter()

xlfile="excel.xls"

Dim maxligne
Dim maxcolones


xlfile = "C:\Users\smaher\Desktop\essai.xls"

maxlignes = 

maxcolones = 

fnum = FreeFile()
Open xlfile For Output As fnum
    For i = 1 To maxcolones
           For j = 1 To maxlignes
               Print #fnum, ActiveSheet.Cells(j, i).Value
           Next j
    Next i
Close #fnum
End Sub
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
3
0
Merci
en fait je ne sais pas si ce code est correct mais j'essayais de chercher comment identifier la dernière ligne et colonne de tableau excel ("maxlignes= , maxcolonnes=)
Messages postés
14457
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2019
1146
0
Merci
Bonjour,

en fait je ne sais pas si ce code est correct mais Non, pas bon du tout.

Il y a deux options pour manipuler un fichier excel avec du VBS, VBA, VB ou autres:

- connexion adodb, comme pour une base access ou autres et commandes idem pour une base de donnees ex:
http://support.microsoft.com/kb/257819/fr

ou

- objet application excel et passage de commandes idem excel ex:
http://msdn.microsoft.com/en-us/library/office/ff194565%28v=office.15%29.aspx

laquelle preferez_vous ?????
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
3
0
Merci
Bonjour,

Je m'excuse pour le retard j'avais un problème de connexion

Je pense que le deuxième lien correspond plus à mes attentes

Merci pour l'aide :D
Messages postés
14457
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2019
1146
0
Merci
Bonjour,

une facon de faire, modifiez le repertoire dans le code VBS:

http://cjoint.com/?DEmi7W8TxY3

inserez ces lignes apres intRow=1 et remplacez 15 par ColumnCount
'Nb colonnes utilisees
ColumnCount = objExcel.Activesheet.UsedRange.Columns.count
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
3
0
Merci
Bonjour,

Je te remercie beaucoup f894009
ça marche , j'ai juste ajouté ColumnCount, remplacé 15, et changé le nom et l'emplacement du fichier excel et txt

Merci :D