Problème d'extraction données Excel

Version imprimable

Je rencontre un problème lorsque j'extrais des données d'un fichier excel. En effet j'ai créé une macro qui me permet d'extraire automatiquement des données de plusieurs onglets, et de les envoyer dans un répertoire bien précis que je précise dans une cellule de mon classeur.
Seulement voilà, au moment de l'extraction j'ai les guillemets qui sont en doubles ...

Avez-vous une idée ??
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 60 61 62 63 Sub Macro1() Dim CH As String 'déclare la variable CH (CHemin d'accès) Dim ceClasseur As Workbook Dim Sh1 As Worksheet Dim Sh2 As Worksheet Dim OD As Worksheet 'Definition des variables Set ceClasseur = ThisWorkbook Set Sh1 = ceClasseur.Sheets("Onglet 1") Set Sh2 = ceClasseur.Sheets("Onglet 2") '----------------------------------------- 'Traitement onglet 1 '----------------------------------------- CH = Sheets("procédure").Range("A30") 'ajoute un classeur vierge Workbooks.Add 'définit le classeur CD Set CD = ActiveWorkbook 'définit l'onglet OD Set OD = CD.Sheets(1) 'copy les données de la colonne A de l'onglet OO Sh1.Range("A1").CurrentRegion.Copy 'les colle dans A1 de l'onglet OD OD.Range("A1").PasteSpecial (xlPasteValues) 'copy les données de la colonne D de l'onglet OO Sh1.Range("D1").CurrentRegion.Copy 'les colle dans la première cellule vide de la colonne A de l'onglet OD OD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues) 'Sauvegarde du fichier CSV CD.SaveAs Filename:=CH & "\" & "mensuel.csv", _ FileFormat:=xlCSV, _ CreateBackup:=False, _ Local:=False 'Fermeture du classeur CD.Close savechanges:=False '----------------------------------------- 'Traitement onglet 2 '----------------------------------------- CH = Sheets("procédure").Range("A32") 'ajoute un classeur vierge Workbooks.Add 'définit le classeur CD Set CD = ActiveWorkbook 'définit l'onglet OD Set OD = CD.Sheets(1) 'copy les données de la colonne A de l'onglet OO Sh2.Range("A1").CurrentRegion.Copy 'les colle dans A1 de l'onglet OD OD.Range("A1").PasteSpecial (xlPasteValues) 'Sauvegarde du fichier CSV CD.SaveAs Filename:=CH & "\" & "mensuel_fc.csv", _ FileFormat:=xlCSV, _ CreateBackup:=False, _ Local:=False 'Fermeture du classeur CD.Close savechanges:=False End Sub
Fichier en sortie :

"""10/14"";""010101"";""FC2015_1"";""4323.55"";""201501"""
"""10/14"";""010103"";""FC2015_1"";""2126.09"";""201501"""
"""10/14"";""010104"";""FC2015_1"";""3901.97"";""201501"""
"""10/14"";""010105"";""FC2015_1"";""1578.46"";""201501"""
"""10/14"";""010131"";""FC2015_1"";""903.17"";""201501"""
"""10/14"";""010132"";""FC2015_1"";""734.64"";""201501"""
"""10/14"";""010133"";""FC2015_1"";""574.80"";""201501"""
"""10/14"";""010134"";""FC2015_1"";""461.88"";""201501"""
"""10/14"";""010201"";""FC2015_1"";""519.23"";""201501"""
"""10/14"";""010202"";""FC2015_1"";""1902.56"";""201501"""
"""10/14"";""010203"";""FC2015_1"";""3037.69"";""201501"""
"""10/14"";""010204"";""FC2015_1"";""2948.92"";""201501"""
"""10/14"";""010205"";""FC2015_1"";""5197.07"";""201501"""
"""10/14"";""010209"";""FC2015_1"";""636.42"";""201501"""
"""10/14"";""010210"";""FC2015_1"";""2668.70"";""201501"""
"""10/14"";""010211"";""FC2015_1"";""5131.11"";""201501"""
"""10/14"";""010212"";""FC2015_1"";""4174.22"";""201501"""
"""10/14"";""010213"";""FC2015_1"";""0.00"";""201501"""
"""10/14"";""010215"";""FC2015_1"";""1192.19"";""201501"""
"""10/14"";""010216"";""FC2015_1"";""2245.11"";""201501"""
"""10/14"";""010217"";""FC2015_1"";""0.00"";""201501"""
"""10/14"";""010219"";""FC2015_1"";""815.05"";""201501"""
"""10/14"";""010230"";""FC2015_1"";""406.17"";""201501"""
"""10/14"";""010231"";""FC2015_1"";""281.70"";""201501"""
"""10/14"";""010232"";""FC2015_1"";""165.44"";""201501"""
"""10/14"";""010233"";""FC2015_1"";""668.68"";""201501"""
"""10/14"";""010234"";""FC2015_1"";""0.00"";""201501"""
"""10/14"";""010235"";""FC2015_1"";""608.05"";""201501"""
"""10/14"";""010236"";""FC2015_1"";""337.30"";""201501"""
"""10/14"";""010237"";""FC2015_1"";""693.82"";""201501"""
"""10/14"";""010238"";""FC2015_1"";""0.00"";""201501"""
"""10/14"";""010239"";""FC2015_1"";""347.61"";""201501"""
"""10/14"";""010240"";""FC2015_1"";""0.00"";""201501"""
"""10/14"";""010241"";""FC2015_1"";""0.00"";""201501"""
"""10/14"";""010242"";""FC2015_1"";""0.00"";""201501"""

Fichier source : http://www.cjoint.com/data/0AjjCSu98yK.htm

12/01/2015, 12h32
Marc-L

J'ai testé la ligne de code enregistrant un fichier texte depuis un classeur de test : aucun souci !

Me.SaveAs "D:\Tests4Noobs\mensuel_fc.csv", xlCSV, CreateBackup:=False …

J'obtiens un fichier sans aucun guillemet avec la virgule comme séparateur.
J'en déduis donc les cellules sources contiennent des guillemets : les supprimer donc …

Sinon ne pas utiliser cette méthode mais le standard VBA pour enregistrer un fichier texte,
voir l'aide VBA concernant l'instruction Print # et son exemple
tout comme les discussions de ce forum traitant le même sujet !

__________________________________________________________________________________________________
Tous unis, tous Charlie
12/01/2015, 12h35
Invité

Merci pour ton retour, toutefois ce que je souhaite c'est ne plus avoir de guillemets en double, et non plus du tout de guillemets ! Quant à la fonction #print je ne l'a connais pas. Peux-tu m'en dire un peu plus ?

De plus si je supprime les guillemets dans mon fichier source je n'arrive plus à avoir des guillemets après mon séparateur. Ce qui est pour moi le ;
12/01/2015, 12h51
Marc-L

Pour le séparateur point-virgule, utiliser le paramètre Local:=True …

Sinon tout est déjà dans l'aide VBA intégrée et son exemple, inutile que j'effectue un Copier/Coller …
Inutile aussi de quoter le message précédent …

__________________________________________________________________________________________________
Tous unis, tous Charlie

Démonstration …

Exemple d'un bloc de cellules sans guillemet commençant dans la cellule A1.

A partir des lignes du bloc de cellules autour de la première cellule,
création d'une variable tableau texte de leur nombre
puis conversion de chaque ligne dans cette variable tableau.

Création d'un fichier texte en écriture,
écriture des lignes de la variable tableau séparées par un saut de ligne
puis fermeture du fichier texte :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Demo() With Cells(1).CurrentRegion.Rows ReDim T$(1 To .Count) For R& = 1 To .Count T(R) = """" & Join$(Application.Index(.Item(R).Resize(2).Value, 1), """;""") & """" Next End With Open "D:\Tests4Noobs\Test .txt" For Output As #1 Print #1, Join$(T, vbNewLine); Close #1 End Sub
En à peine dix lignes de code, à adapter selon la source des données …

Une autre règle du forum (comme celle d'écrire un titre de discussion explicite !) :
__________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

12/01/2015, 15h21
Invité

Amabilité

Merci pour tes "conseils" même si j'y comprend rien. Si moi je "manque" aux règles de ce forum, toi tu manques aux règles de politesse. Tu n'es pas obligé de me prendre de haut. Sachant que tu n'as pas aidé à résoudre mon problème non plus !! Explicite ou pas !
12/01/2015, 15h45
Marc-L

J'ai pourtant été courtois et ai fourni un code fonctionnel au préalable commenté ! Trop difficile de lire ?!
Comme indiqué dans ses règles, le but de ce forum n'est pas de faire le boulot des autres.
Tu as le droit évidemment de ne pas comprendre mais une question aurait été bien plus intelligente !

Sinon comme c'est un sujet déjà traité, via une petite recherche dans le forum mais là aussi il faudra lire et adapter …

Le titre de cette discussion n'est pas en adéquation avec la problématique,
quelqu'un effectuant une recherche ne peut donc comprendre qu'il est question de guillemets doublés !

Certains intervenants n'ouvrent même pas les discussions au titre vague …