Dim chemin As String Dim SaveFileDialog1 As New SaveFileDialog() Dim result As DialogResult = SaveFileDialog1.ShowDialog() If (result = Windows.Forms.DialogResult.OK) Then chemin = SaveFileDialog1.FileName xlWorkSheet.SaveAs(chemin & ".xlsx") xlApp.Application.Quit() End If
Dim chemin As String Dim SaveFileDialog1 As New SaveFileDialog() Dim result As DialogResult = SaveFileDialog1.ShowDialog() If (result = Windows.Forms.DialogResult.OK) Then chemin = SaveFileDialog1.FileName xlWorkSheet.SaveAs(chemin) xlApp.Application.Quit() End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question