Problème avec séparateurs CSV
Bonjour tout le monde, et merci par avance pour vos éclaircissements concernant un problème dont je ne trouve vraiment pas de solution.
J'ai créé la mise en place d'un fichier qui se converti via VBA en format CSV séparateur ";" en s'enregistrant sur un dossier temporaire en .txt, avant que ce même fichier ne s'envoie automatiquement par mail à une adresse donnée pour alimenter une base.
Lorsque j'ouvre le fichier temporaire qui s'est enregistré, les séparateurs de colonnes du fichier .txt sont des ";", mais le fichier envoyé automatiquement par mail (qui est le même) s'envoie avec des "," en guise de séparateur.
Or, la base de donnée doit alimentée avec des ";" en guise de base de données..
Les paramètres régionaux de Windows sont bien paramétrés avec les ";" en guise de séparateurs.
Code utilisé pour envoi mail :
Code:
1
2
3
4
5
6
| Dim Dest(0) As String 'Nombre de destinataires possibles : 1
Dim Sujet As String
Dest(0) = "xx@xx.fr" ' 1er destinataire
Sujet = "Exxxxx" & nomfichier
ActiveWorkbook.SendMail Dest(), Sujet, True |
Je vous remercie par avance.
Nicolas
