Extraction de fichiers .xls en .txt

Version imprimable

21/04/2016, 12h59
nelo32

Extraction de fichiers .xls en .txt

Bonjour a tous

Je viens vers vous pour un problème que je rencontre.

Je dois ping une liste d'adresse IP qui se trouve dans un fichier .xls ou .csv au besoin (colonne A de la feuille 1). Jai déjà le BATCH me permettant de le faire.
Cependant ce batch ne fonctionne qu'avec un fichier .txt, alors je me suis débrouillé en faisant juste un copier coller de mes ip dans le fichier texte et cela fonctionne.

Mais ce que j'aimerai et qui me pose un problème c'est un .bat,
qui récupèrerai les adresses IP de mon fichier excel (colonne A Feuille 1),
qui les mettrai dans un fichier texte (nommé adrip.txt),
qui lancerai mon batch, (nommé pingpong2.bat)
qui prendrai le résultat obtenu en fichier texte (nommé resultat.txt)(dans ce fichier texte le format est xxx.xxx.xxx.xxx ok ou xxx.xxx.xxx.xxx Deco)
qui remplacera les "espaces" en ";" pour en sortir un .csv afin de le remettre dans le fichier excel (du début ou dans une autre feuille au plus simple).

Voila je débute dans la programmation et jen'ai pas encore les capacités de créer un batch comme ca alors je solicite votre aide, merci par avance.

Ps : je ne sais pas si le batch ou le VBS serai le plus appropprié.
21/04/2016, 13h17
cerede2000

Bonjour à toi,

Moi j'irais carrément vers le powershell, ça sera beaucoup plus simple pour traiter les fichiers CSV !
Regarde ce que j'ai proposé dans ce topic : http://www.developpez.net/forums/d15...h/boucle-wmic/
21/04/2016, 13h41
nelo32

Merci ce que tu as fais est interessant mais cela donnerai quoi dans on cas ? Moi qui part d'un csv qui lance un batch (pingpong2.bat) ? Mon .bat va me sortir un txt (nommé resultat.txt)

A moins que ton powershell fasse tout ca tout seul ?

Il suffit de simplifier :)

CSV de départ :

Code:

1
2
3
4
5
6
7
MachineName;PingResponse
PC1
PC2
PC3
PC4
PC5
...

Code:

1
2
3
4
5
6
$pcs = Import-CSV -Delimiter ';' .\PC.csv
foreach($pc in $pcs) {
  if(Test-Connection $pc.MachineName -Quiet -count 2) { $pc.PingResponse = 'Ok' }
  else { $pc.PingResponse = 'Deco' }
}
$pcs | Export-Csv .\PC.csv -Delimiter ';' -NoTypeInformation

MachineName peut être un nom de machine comme une adresse IP ça ne pose pas de soucis.

21/04/2016, 13h58
nelo32

La propriété " PingResponse " est introuvable sur cet objet ; assurez vous qu'elle existe et qu'elle est définie....

J'ai un message d'erreur de ce genre là et il me fait ca pour toutes les adresses IP
21/04/2016, 14h20
cerede2000

Tu as copier/coller tel quel ?
Car je viens de rester (quand même pour être sur on ne sais jamais ! ) et ça fonctionne tel quel !
21/04/2016, 14h33
nelo32

Merci beaucoup cela fonctionne pafaitement.