Traitement de fichier exel

Version imprimable

10/05/2008, 10h50
koKoTis

Traitement de fichier exel

Bonjour, j'ai exporter ma liste de contact msn, ca ma donner un fichier exel, je voudrai a l'aide d'un script vbs récupérer certaine information, par exemple tout ce qui ce trouve dans la colone A, (de A1 jusqu'a AX), pouriez vous me donner un exemple de vbs ?
10/05/2008, 11h07
SfJ5Rpw8

tu est sur de ton format de fichier d'export c'est vraiment un fichier excel .Xls ?
10/05/2008, 11h09
koKoTis

salut bbil ;)

ah non, c'est un .cvs
mais il s'ouvre avec exel

mais a la rigeur ci c'est neccessair je peut peut être convertir le fichier avant le traitement ?
10/05/2008, 11h14
SfJ5Rpw8

je m'en doutai ...(toujours aussi précise la question ) :?

voir :faq:

Comment lire le contenu d'un fichier texte ?
Comment 'éclater' une chaîne dans un tableau ?

voilà .;)
10/05/2008, 11h34
koKoTis
je par donc avec ca:
Code:

1 2 3 4 5 6 Dim st,i,tb st="Antoine,Pierre,Jacques,Alain" tb = split(st,",") For i = lbound(tb) to ubound(tb) Wscript.echo tb(i) next
Mais comment faire pour récupérer ce qu'il y a dans la 2ième et 4ième colonne ?

pour l'instant je peut lire de 0 à 77:

Code:

For i = 0 to 77

Mais je voudrai lire 2 et 77:

Code:

For i = 2 to 77

que d'ois-je faire SVP ?
10/05/2008, 11h48
koKoTis

bon ben je fait une boucle 2 to 2 puis une boucle 77 to 77

merci encore :?
10/05/2008, 11h51
SfJ5Rpw8

Citation:

Envoyé par koKoTis

bon ben je fait une boucle 2 to 2 puis une boucle 77 to 77

merci encore :?

et pourquoi faire une boucle !
10/05/2008, 12h01
koKoTis

ben je sais pas comment faire si non :oops:
10/05/2008, 12h04
SfJ5Rpw8
Citation:

Envoyé par koKoTis

ben je sais pas comment faire si non :oops:

:koi: ?? ..
Code:

1 2 3 msgbox tb(2) msgbox tb(77)
:roll:
10/05/2008, 12h07
koKoTis

merci encore tu est un chef bbil ;) :D

Je te montre ou j'en suis:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Dim st,i,tb
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile("WLMContacts.csv", 1)
 
 
Do Until objSourceFile.AtEndOfStream
 vrRecupContacts = vrRecupContacts & vbCrLf 
  tb = split(objSourceFile.ReadLine,";") 	
  vrRecupContacts = vrRecupContacts & tb(78) & ";" & tb(46) & ";" & tb(79) & ";"
  vrRecupContactsVcard = vrRecupContactsVcard & vbCrLf & "BEGIN:VCARD" & vbCrLf & "FN:" & tb(78) & vbCrLf & "EMAIL;TYPE=INTERNET:" & tb(46) & vbCrLf & "END:VCARD"
  vrRecupContactsCsvOutlook = vrRecupContactsCsvOutlook & vbCrLf & ";;;" & tb(78) & ";" & tb(46) & ";;;;;;;;;;;;;;;;;"
  vrRecupContactsCsvGmail = vrRecupContactsCsvGmail & vbCrLf & tb(78) & "," & tb(46) & ",,Other,," & tb(79) & ",,,,,,,,"
 
Loop
objSourceFile.Close
 
 
vrRecupContacts = replace(vrRecupContacts,"""","")
vrRecupContacts = replace(vrRecupContacts,";","    ")
 
vrRecupContactsVcard = replace(vrRecupContactsVcard,"""","")
 
vrRecupContactsCsvOutlook = replace(vrRecupContactsCsvOutlook,"""","")
 
vrRecupContactsCsvGmail = replace(vrRecupContactsCsvGmail,"""","")
 
 
'Wscript.echo vrRecupContacts
 
 
Const ForReading = 1, ForWriting = 2 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Dim fso, f 
 
' On créer le fichier .txt à imprimer avec la liste de contact:
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("Contacts convertis\Mes contacts.txt", ForWriting,true) 
   f.writeline(vrRecupContacts) 
f.close
 
' On créer la liste de contact Vcard:
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("Contacts convertis\Mes contacts vcard.vcf", ForWriting,true) 
   f.writeline(vrRecupContactsVcard) 
f.close
 
' On créer la liste de contact csv pour outlook:
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("Contacts convertis\Mes contacts outlook.csv", ForWriting,true)
   f.writeline("Prénom;Nom ;Deuxième prénom;Nom;Surnom;Adresse de messagerie;Rue (domicile);Ville (domicile);Code postal (domicile);Département (domicile);Pays/région (domicile);Téléphone personnel;Rue (bureau);Ville (bureau);Code postal (bureau);Département (bureau);Pays/région (bureau);Téléphone professionnel;Société;Fonction ;Service;Emplacement du bureau;Remarques") 
   f.writeline(vrRecupContactsCsvOutlook) 
f.close
 
' On créer la liste de contact csv pour Gmail:
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("Contacts convertis\Mes contacts Gmail.csv", ForWriting,true)
   f.writeline("Nom,E-mail,Remarques,Section 1 - Description,Section 1 - E-mail,Section 1 - IM,Section 1 - Téléphone,Section 1 - Portable,Section 1 - Téléavertisseur,Section 1 - Télécopie,Section 1 - Société,Section 1 - Titre,Section 1 - Autres,Section 1 - Adresse") 
   f.writeline(vrRecupContactsCsvGmail)

Je converti mon fichier de contact exporter de hotmaile, en cvs, et je convertit en cvs pour outlook, en cvs pour gmail, et en vcard, mais je voudrai que ma première boucle saute la première ligne du fichier a traiter, pourait tu m'aider ?

10/05/2008, 14h05
SfJ5Rpw8

et bien ... effectue une lecture de ta première ligne avant de partir dans ta boucle Do...
10/05/2008, 14h08
koKoTis

je ne voi pas comment faire :oops:

Citation:

Envoyé par koKoTis

je ne voi pas comment faire :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
....
Set objSourceFile = objFSO.OpenTextFile("WLMContacts.csv", 1)
 
'LECTURE PREMIERE LIGNE 
  tb = split(objSourceFile.ReadLine,";") 	
' Tu peu ici vérifier le contenu de l'entête de ton fichier ;)
 
Do Until objSourceFile.AtEndOfStream
 vrRecupContacts = vrRecupContacts & vbCrLf 
  tb = split(objSourceFile.ReadLine,";") 	
 
....

10/05/2008, 16h04
koKoTis

encore merci c'est parfait ;)