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
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.