Erreur d'exécution 1004 pour l'enregistrement de fichier excel (VBA requis)

Je me demandais si quelqu'un sait comment utiliser les vba pour enregistrer un .txt fichier est ouvert dans excel?

J'ai essayé d'écrire un codage avec un objet UserForm, mais il me donne des erreurs.

Je me demandais si il est possible de donner à l'utilisateur la possibilité de l'enregistrer à son endroit préféré, et aussi son/son nom préféré?

 Public Sub CommandButton1_Click()
 Dim YesOrNoAnswerToMessageBox As String
 Dim QuestionToMessageBox As String
 Dim CurrentFile As String

 QuestionToMessageBox = "Do you want to save?"

YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Save file")

If YesOrNoAnswerToMessageBox = vbNo Then
     Unload Me 'Cancellation command
Else
CurrentFile = ThisWorkbook.FullName
ActiveWorkbook.SaveAs "C:\myfile.xls", FileFormat:=52
Workbooks.Open CurrentFile
End If
End Sub
MsgBox renvoie une Longue mais vous contraindre dans une Chaîne de caractères. Alors vous êtes contraint de le renvoyer dans une Longue afin de la comparer à vbNo, une constante. Il serait plus simple pour éviter ce va-et-vient de lancer en déclarant comme Dim YesOrNoAnswerToMessageBox As Long à la place.

OriginalL'auteur user1204868 | 2012-03-17