Format CSV et les caractères spéciaux

Bonjour à tous,

J'ai une macro qui vient me générer un fichier au format CSV le problème c'est que dans mon fichier de base, je récupère des noms d'obligations qui ont cette tête là:

et lorsque j'exporte ce nom dans un autre fichier puis je le convertis avec une macro voilà ce que cela me donne:

le 5/8 passe en "?"

ce qui est un peu curieux car pour certaine valeurs je n'ai pas de problème, l'OAT française par exemple:

Pour enregistrer mon fichier au format CSV je passe par le code VBA suivant:

ActiveWorkbook.SaveAs _
Filename:="Z:\TRESORERIE\B - IMPORT AUTOMATISE\" & Annee & "\" & date_fichier & "\Import prévision - " & date_aujourdhui, _
        FileFormat:=xlCSV, CreateBackup:=False, local:=True
    'Application.Run "ExtXllUsage"

Voilà mon problème, si vous avez une idée de manipulation qui me permettrait à mon fichier csv de lire cela correctement ça m'aiderait bien et me ferait gagner beaucoup de temps,

Bon week end à vous

Bonjour,
Essaie ainsi :.

ActiveWorkbook.SaveAs _
Filename:="Z:\TRESORERIE\B - IMPORT AUTOMATISE\" & Annee & "\" & date_fichier & "\Import prévision - " & date_aujourdhui & ".csv", _
        FileFormat:=xlCSVUTF8, CreateBackup:=False, local:=True
    'Application.Run "ExtXllUsage"

Bonsoir Jean-éric,

Merci de votre réactivité super ça fonctionne,

j'ai un autre petit souci maintenant, c'est qu'en fait je viens alimenter ce fichier input au fur et à mesure de la journée, donc j'ai mis une condition sur l'existence du fichier du jour, si jamais le fichier n'est pas crée, alors tu me le créer. Sinon tu m'ouvres le fichier existant et tu viens l'alimenter.

Mon problème est le suivant, lorsque ma macro réouvre le fichier, il ne doit pas l'ouvrir au bon format (UTF8) il vient m'ajouter les nouvelles opérations puis il me le ferme, ce qui me donne ce résultat (qui fonctionne parfaitement grâce à vous)

les "anciennes opérations" qui étaient existants:

cela me mets cette fois ci plus des points d'interrogation mais des "Â"

J'ai le code suivant pour ouvrir mon fichier pour me permettre d'avoir le format voulu:

Workbooks.OpenText Filename:=Fichier, DataType:=1, Semicolon:=True, local:=True
Workbooks.Open Filename:=Fichier

Existe t-il un moyen d'ouvrir le fichier avec le codage UTF8 ?

Re,
Essaie ainsi :

Workbooks.OpenText Filename:=Fichier, Origin:=65001,DataType:=1, Semicolon:=True, local:=True

Cdlt.

Bonjour Jean-eric,

ça marche parfaitement vous me sauvez :) , Merci beaucoup j'avais pourtant cherché je suis jamais tombé sur ça,

Bon week-end !