Supprimer les guillemets doubles dans un fichier txt apres une importation
re
si vous le voulez en html j'ai ça aussi si vous voulez
Sub testhtml()
Dim X&, TxT$, StYL
StYL = "<style>" & vbCrLf & "td {border-top:0.5pt solid black;border-bottom:0.5pt solid black;border-left:0.5pt solid black;border-right:0.5pt solid black;min-width:15pt;}" & vbCrLf & "</style>"
ActiveSheet.UsedRange.Copy
TxT = press_papier_WIN_late_Binding 'recolte la plage en format text
TxT = Replace(TxT, Chr(34), "") 'suppression des guillemets
TxT = Replace(TxT, vbTab, "</TD><TD>")
TxT = Replace(TxT, vbCrLf, "</TD></TR><TR><TD>")
TxT = "<TABLE cellspacing=0><TR><TD>" & TxT & "</TD></TR></TABLE>"
TxT = Replace(TxT, "</TD>", "</TD>" & vbCrLf)
TxT = Replace(TxT, "<TR><TD", vbCrLf & "<TR>" & vbCrLf & "<TD")
TxT = "<html>" & vbCrLf & "<head>" & vbCrLf & StYL & vbCrLf & "</head>" & vbCrLf & "<body>" & TxT & "</body>" & vbCrLf & "</html>"
fichier = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsm", ".html")
X = FreeFile: Open fichier For Output As #X: Print #X, TxT,: Close #X
End Subre,
et alors, comme ça, on apprend quelque chose
si tu le veux en XML "aussi je peut te le faire aussi
re,
pour moi, cela suffit, on a déjà perdu l'interêt de ghislain leon
g
en effet vous m'avez perdu il y'a un bout de temps lol
g
BsAlv j'arrive pas a intégrer ta macro a la nouvelle forme de mon fichier, ça me renvoie l'erreur d'incompatibilité de type, et aussi tu pourrais retirer la partie ou tu fais un tab entre les colonnes et un saut de ligne stp? merci
g
oui c'est ça, une fois de plus merci.
je risque revenir te dérangé encore un de ses quatre