Discussion :

[koKoTis]

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 ?

[SfJ5Rpw8]

tu est sur de ton format de fichier d'export c'est vraiment un fichier excel .Xls ?

[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 ?

[SfJ5Rpw8]

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


voir

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


voilà .

[koKoTis]

je par donc avec ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  For i = 0 to 77

Mais je voudrai lire 2 et 77:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  For i = 2 to 77

que d'ois-je faire SVP ?

[koKoTis]

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

merci encore

[SfJ5Rpw8]

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

merci encore

et pourquoi faire une boucle !

[koKoTis]

ben je sais pas comment faire si non

[SfJ5Rpw8]

ben je sais pas comment faire si non

?? ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
msgbox tb(2)
msgbox tb(77)

[koKoTis]

merci encore tu est un chef bbil

[koKoTis]

Je te montre ou j'en suis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[SfJ5Rpw8]

et bien ... effectue une lecture de ta première ligne avant de partir dans ta boucle Do...

[koKoTis]

je ne voi pas comment faire

[SfJ5Rpw8]

je ne voi pas comment faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,";") 	
 
....

[koKoTis]

encore merci c'est parfait