1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Private Sub cmdEnregistrer_Click()
Dim strchemin As String
Dim strNomFichier As String
Dim oFD As Object
strNomFichier = Nz(SFormFichier.Form.txtfichier)
If strNomFichier <> "" Then
'Paramètre la fenêtre Enregistrer
Set oFD = Application.FileDialog(msoFileDialogSaveAs)
With oFD
'Affiche la fenêtre et vérifie qu'un fichier a bien été choisi
.InitialFileName = strNomFichier
If .Show Then
strchemin = .SelectedItems(1)
If EnregistrerFichier(strNomFichier, Me.N°, strchemin) Then
If MsgBox("Voulez-vous ouvrir le fichier ?", vbQuestion + vbYesNo, "Enregistrement d'une pièce jointe") = vbYes Then
ShellExecute Me.hwnd, "open", strchemin, "", CurrentProject.Path, 1
Else
MsgBox "Enregistrement réussi", vbInformation, "Enregistrement d'une pièce jointe"
End If
End If
End If
End With
End If
End Sub
La méthode ShellExecute est une fonction de l'API Windows. Elle permet d'ouvrir un fichier. Pour l'utiliser vous devez rajouter sa déclaration dans l'entête d'un module nommé mduAPI :
Sélectionnez
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long |
Partager