Bonjour à tous ,
je réalise un fichier qui exporte du texte , j'ai une macro qui fonctionne sauf que lorqu'il y à un " sur le mot mon code en ajoute 3.
Je ne sais pas comment m'y prendre pour éviter cela.
Exemple normalement je devrait avoir cela qui est extrait dans mon fichier texte :
"41123123
et j'ai cela ! ==> """41123123"
Voici mon code :
Sub Export_E()
Application.ScreenUpdating = False
Columns("A:A" ).Select
Selection.Copy
Workbooks.Add
Columns("A:A" ).Select
Selection.PasteSpecial Paste:=xlPasteValues
'ActiveSheet.Range(AB).PasteSpecial Paste:=xlPasteValues
'.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
ChDir "D:\"
ActiveWorkbook.SaveAs fileName:="D:\testvba\txt.mac", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
J'avais trouvé une autre macro qui fonctionne mais ici les boite de dialogue me gène et j'aimerai uniquement la première collone :
Sub exporttotxt()
Dim maxligne As Integer
Dim maxcolones As Integer
maxlignes = CInt(InputBox("nombre de ligne?", "Nombre de ligne", "" ))
maxcolones = CInt(InputBox("nombre de colonnes?", "Nombre de colonnes", "" ))
myfile = InputBox("Chemin du fichier txt?", "Chemin du fichier txt", "c:\" )
fnum = FreeFile()
Open myfile For Output As fnum
For i = 1 To maxcolones
For j = 1 To maxlignes
Print #fnum, ActiveSheet.Cells(j, i).Value
Next j
Next i
Close #fnum
End Sub