Exporter dans un fichier texte sans ajout de " guillemets " !?

Bonjour à tous.

J'ai récupéré quelques lignes de code que j'ai adapté à mes besoins.

L'objectif est de générer un script (fichier texte .scr) avec des coordonnées pour qu'un logiciel de DAO trace les lignes à ma place.

C'est pas trop compliqué, ça ressemble à ceci :

ligne

0,0

0,100

5,0

5,110

etc.

Mon problème c'est qu'en exportant ces valeurs, excel ajoute des guillemets

ligne

"0,0"

"0,100"

"5,0"

etc.

J'ai essayé en changeant xlPasteValues, mais sans succès.
Quelqu'un aurait une piste !? Par avance, merci !

Sub BoutonExport()

    Dim NOM As String
    Dim CHEMIN As String
    Dim WB1 As Workbook, WB2 As Workbook

    Set WB1 = ActiveWorkbook
    ActiveWorkbook.ActiveSheet.Range("T4:T96").Copy

    Set WB2 = Application.Workbooks.Add(1)
    WB2.Sheets(1).Range("A1").PasteSpecial xlPasteValues

    NOM = [I1].Value
    CHEMIN = WB1.Path & "\" & NOM & "script" & ".scr"

    Application.DisplayAlerts = False
        With WB2
        .SaveAs Filename:=CHEMIN, FileFormat:=xlTextWindows, CreateBackup:=False
        .Close True
    End With
    Application.DisplayAlerts = True

End Sub

Salut,

Je propose un truc très basique mais on sait jamais peut être que ca peut marcher:

as-tu essayé de mettre tes cellules en format nombre ? au lieu de les laisser en standard.

Sinon, autre solution archaïque après avoir collé les valeurs, venir remplacer les " par des vides pour chaques cellules

A+

Merci pour la suggestion, mais non, ça ne fonctionne pas.
L'archaïsme c'est d'exécuter la macro, d'avoir l'explo windows au bon endroit, d'ouvrir le bloc-note, d'y glisser le .scr, de faire rechercher / remplacer les " , de sauvegarder le fichier.

Du coup, ça va aussi vite de rester dans Excel, de sélectionner la plage, de faire un bon vieux copier / coller dans le .scr
(à tel point que je regarde pour faire une macro qui copie dans le presse-papier la plage concerné, histoire de gagner quelques clics)

Bref, je m'en sors, mais cette histoire de " depuis Excel est quand même regrettable ... Donc si un 'pro' passe dans le coin qu'il n'hésite pas ! ;-)

Bonjour,

Je ferais simplement :

Sub BoutonExport()
    Dim fichier As String, i As Integer

    fichier = ThisWorkbook.Path & "\" & [I1].Value & "script" & ".scr"
    Open fichier For Output As #1
        With ActiveWorkbook.ActiveSheet
            For i = 4 To 96
                Print #1, .Range("T" & i)
            Next i
        End With
    Close #1
End Sub

Il y aura une ligne de code en plus si tu veux mettre le " . " comme séparateur à la place de la " , ".

Bonjour.

Un grand merci, ça fonctionne très bien.

Approche + simple que celle que j'avais dénichée, c'est nickel !

Je gère avec SUBSTITUE les . et , des coordonnées car effectivement entre les données topo d'entrée, le format courant sur mon Excel et les données attendues par Autocad, il y a quelques adaptations.

PS : on ne peut plus éditer ses propres messages pour indiquer "résolu" !?