Re,
Dans ta macro Private Sub CommandButton1_Click(), j'ai remplacé la ligne
Open ActiveWorkbook.Path & "" & "_Poèmes.txt" For Output As #1
par
Open ActiveWorkbook.Path & "\" & "_Poèmes.txt" For Output As #1
Comme tu peux le voir sur l’image ci-dessous, si je lance ce code ainsi transformé, un fichier .txt est enregistré dans le même dossier que celui dans lequel se trouve le fichier Excel de base (tu remarqueras que je travaille actuellement sur un PC germanophone).
Ca te permet d’avancer ?
Amicalement.