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  
 

Salut et merci ,  
 
désolé pour le code  
 
Les guillemet j'en ai besoin pourriez vous m'aider pour adapter mon code ?

 
           Bonjour,
 
           merci de baliser le code avec l'icône dédiée (cf règles du forum, pratique pour pointer le n° d'une ligne) !
 
           Sinon c'est tout à fait normal ! Deux solutions :
 
        • virer les guillemets inutiles des cellules concernées;
 
        • adapter le deuxième code à vos besoins.
 
          Sinon sujet récurent sur divers forums, recherche sur ‼
 
 
          _____________________________________________________________________________________  
           Copier / Coller n'est pas programmer ! …
 

Ok merci beaucoup mais s'il y a quelqu'un de plus sympa il peut se manifester.