Bonjour a tous,

afin de terminer ma macro, je souhaite faire une sauvegarde de celle ci au format texte (.txt)

j'ai écrit le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub monfichier
Dim monfichier As Variant
 
monfichier = Application.GetSaveAsFilename("fichier TXT (*.txt),*.txt", , "Sauvegarde monfichier")
 
If monfichier <> False Then
 Cells(2, 1) = monfichier
End If
end sub

mais il ne retourne une erreur
erreur d'exécution '13'
Incompatibilité de type
Pourriez vous m'aider s'il vous plait pour la compréhension de mon erreur ainsi que sa résolution ?

Je vous remercie par avance de votre aide.