Bonjour,
je souhaiterai "enregistrer sous", par l'intermédiarie d'une boite de dialogue, un spreadsheet qui se trouve sur un userform.
Je n'ai pas de problème pour lancer la boite de dialogue mais je n'arrive pas à appliquer la méthode SaveAs au Spreadsheet ^^
Voici mon code (Excel 2003):
Merci de bien vouloir me venir en aide
je souhaiterai "enregistrer sous", par l'intermédiarie d'une boite de dialogue, un spreadsheet qui se trouve sur un userform.
Je n'ai pas de problème pour lancer la boite de dialogue mais je n'arrive pas à appliquer la méthode SaveAs au Spreadsheet ^^
Voici mon code (Excel 2003):
Private Sub CommandButton3_Click()
'Bouton d'exportation
Dim nomEnr$
On Error Resume Next
nomEnr = Application.GetSaveAsFilename("", filefilter:="Fichiers Excel (*.xlsm), *.xlsm")
Spreadsheet1.SaveAs nomEnr
End Sub
'Bouton d'exportation
Dim nomEnr$
On Error Resume Next
nomEnr = Application.GetSaveAsFilename("", filefilter:="Fichiers Excel (*.xlsm), *.xlsm")
Spreadsheet1.SaveAs nomEnr
End Sub
Merci de bien vouloir me venir en aide