Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1498 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Problème Maro Vba ] Exporter une colonne en fichier Texte.

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Problème Maro Vba ] Exporter une colonne en fichier Texte.

n°2223182
MaisTuPico​lesEnPlus
une bière?
Posté le 26-03-2014 à 12:41:23  profilanswer
 


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
 
 

mood
Publicité
Posté le 26-03-2014 à 12:41:23  profilanswer
 

n°2223200
MaisTuPico​lesEnPlus
une bière?
Posté le 26-03-2014 à 14:29:23  profilanswer
 

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

n°2223202
Marc L
Posté le 26-03-2014 à 14:31:42  profilanswer
 

 
           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 http://www.developpez.net/forums/images/smilies/google2.gif
 
 
          _____________________________________________________________________________________  
           Copier / Coller n'est pas programmer ! …
 

n°2223219
MaisTuPico​lesEnPlus
une bière?
Posté le 26-03-2014 à 15:10:31  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Problème Maro Vba ] Exporter une colonne en fichier Texte.

 

Sujets relatifs
Problème de doublonscréer un fichier zip et le télécharger
Problème avec Visual Basic quand je publie mon logiciel !création de fichier excel selon critère
Problème CSS[JAXB] Générer un Schema XSD à partir d'un fichier XML
Aide Programmation VBA avec MSPaffichage du texte dans un tableau latex
[VBA] Problème actualisation des données 
Plus de sujets relatifs à : [Problème Maro Vba ] Exporter une colonne en fichier Texte.


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR