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

Signaler
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
 -
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
 -
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,

9 réponses

Réponse 1 / 9
Messages postés
15612
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2021
 1 460
Bonjour,

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

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

Cordialement, :D
Réponse 3 / 9
Messages postés
15612
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2021
 1 460
Bonjour,

Ben oui. Il faudra quand-meme avoir excel sur le PC
Réponse 4 / 9
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
 3
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
Réponse 5 / 9
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
 3
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=)
Réponse 6 / 9
Messages postés
15612
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2021
 1 460
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:
https://docs.microsoft.com/en-us/previous-versions/tn-archive/ee692882(v=technet.10)?redirectedfrom=MSDN

ou

- objet application excel et passage de commandes idem excel ex:
https://docs.microsoft.com/en-us/office/vba/api/Excel.Application(object

laquelle preferez_vous ?????
Réponse 7 / 9
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
 3
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
Réponse 8 / 9
Messages postés
15612
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2021
 1 460
Bonjour,

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

https://www.cjoint.com/c/DEmi7W8TxY3

inserez ces lignes apres intRow=1 et remplacez 15 par ColumnCount 
'Nb colonnes utilisees
ColumnCount = objExcel.Activesheet.UsedRange.Columns.count
Réponse 9 / 9
Messages postés
71
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
10 juillet 2014
 3
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
Posez votre question