Discussion :

[nastyshrimp]

J'ai créé (avec l'aide de certains d'entre vous, merci!) une macro qui collecte les données de formulaires word pour en faire un tableau excel. Mais j'ai maintenant un problème pour exploiter le fichier .csv. Comme mes champs de formulaires sont bourrés de points virgules (et de tabulations, et de virgules...), mon fichier .csv est parasité par tous ces ; qui ne sont pas des séparateurs. Du coup, le fichier devient inutilisable (dans Mysql, par exemple).
Peut-on intégrer à la macro de récupération des formulaires une ligne qui transforme tous les ; en $ (ou en un autre caractère inutilisé dans le formulaire)?
Merci de me renseigner.
Pour info, je colle mon code ci-dessous.
Cordialement
nastyshrimp

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
60
61
62
63
64
65
66
67
68
69
70
Sub récupbiblio()
'
' récupbiblio Macro
' Macro enregistrée le 03/10/2008 par x
'
' Touche de raccourci du clavier: Ctrl+r
'
Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets("Toutes_fiches")
chemin = "C:\Documents and Settings\X300 1\Bureau\Euterpe\fiches biblio Euterpe\"
mesfichiers = Dir(chemin & "*.doc")
Dim Variables As Variant
Variables = Array("datecréation","rédacteur","typedefichepoème", _
    "typedefichethéorique","typeautreprécisez","titrevolume", _
    "complémentdutitre","date","précisiondate","annéeRP","éditeur", _
    "collec","ville","numéro","format","taille","pages","pagespréface", _
    "cote","lieu","autrelieu","txt1","débuttxt1","fintxt1","texteretenu2", _
    "débuttxt2","fintxt2","texteretenu3","débuttxt3","fintxt3", _
    "autrestextesretenus","auteur","auteurprénom","pseudo", _
    "datedenaissance","lieudenaissance","datedemort","lieudemort", _
    "formation","autreformation","études","profession","autreprofession", _
    "statutauteursecond1","statutsec1précisez","autresauteurs", _
    "prénomsecondaire1","statutsec2","statutsec2préc","auteursec2nom", _
    "auteursec2prénom","statutsec3","statutsec3préc","auteursec3nom", _
    "auteursec3prénom","notes","ratio","paratexte","illust","destinataires", _
    "autreséditions","annotations","provenance","état","poèmeisoléenvers", _
    "commpoisolévers","poèmeisoléenprose","commpoisoléprose", _
    "recueilenvers","commrecueilvers","recueilenprose","commrecueilprose", _
    "poèmevolumenevers", "commpovolvers", "poèmevolumeenprose", _
    "commpovolprose", "textedescientifique", "commtxtdesci", "txtdevulg", _
    "commtxtdevulg", "txtrefusé", "commtxtrefusé", "matière1", "matière2", _
    "matière3", "matière4", "thèmes", "motsclés", "savant1", "savant2", _
    "savant3", "savant4", "savant5", "savant6", "savant7", "savant8", _
    "savant9", "savant10", "nbdeversprécis", "nbdeversenviron", _
    "mètreprincipal", "mètreprincipalpréc", "autremètre1", "autremètre1préc", _
    "autremètre2", "autremètre2préc", "autremètre3", "autremètre3préc", _
    "structure", "commentaires", "dumême", "hypotextes", _
    "poèmesconcurrents", "citations", "réception", "critique", "travaux", _
    "publiable", "commpubliable")
nb_Champs = 119
num_row = 1
i = 0
 
For i = 0 To nb_Champs - 1
    Fich.Cells(num_row, i + 1) = Variables(i)
Next i
 
Set FichierWord = CreateObject("word.application")
FichierWord.Visible = True
FichierWord.DisplayAlerts = False
 
Do While mesfichiers <> ""
    If mesfichiers <> "." And mesfichiers <> ".." _
            And mesfichiers <> "tableau Euterpe.xls" Then
        monDocument = chemin & mesfichiers
        FichierWord.documents.Open FileName:=monDocument, ReadOnly:=True
        num_row = num_row + 1
        num_col = 1
        For i = 0 To nb_Champs - 1
            Fich.Cells(num_row, i + 1) = _
                FichierWord.activedocument.formfields(Variables(i)).result
        Next i
        FichierWord.documents.Close (0)
    End If
    mesfichiers = Dir
Loop
FichierWord.Quit
ActiveWorkbook.Save
 
End Sub

[ouskel'n'or]

As-tu testé

Code :

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

1
2
3
4
        For i = 0 To nb_Champs - 1
            Fich.Cells(num_row, i + 1) = _
                Replace(FichierWord.activedocument.formfields(Variables(i)).result,";","¤")
        Next i

Juste une idée