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
Vous devez vous connecter pour publier un commentaire.
L'erreur est parce que votre extension de fichier (xls) ne correspond pas à votre type de fichier (OpenXMLWorkbookMacroEnabled). Vous aurez besoin de l'xlsm extension.
OriginalL'auteur Dick Kusleika
Je ne suis pas sûr pourquoi vous utilisez des Classeurs.Ouvrir après ActiveWorkbook.SaveAs. Si le classeur est déjà ouvert, n'est-ce pas inutile?
De toute façon, pour inviter l'utilisateur à un emplacement d'enregistrement essayer de modifier les éléments suivants que vous avez besoin de:
OriginalL'auteur mkingston