Une fonction pour maîtriser l'enregistrement d'un fichier

5 mars 2014
Imprimer

Function EnregFich(wkb As Workbook) As String
    Dim strNom As Variant ' car contiendra soit du texte soit la valeur False (boolean)
    
    'ouvre la boîte de dialogue d'enregistrement mais cela n'enregistre pas.
    'par contre elle renvoie le nom et l'adresse choisit pour le fichier
    strNom = Application.GetSaveAsFilename(, "Fichier Excel (*.xls),*.xls")
    'si l'utilisateur a cliqué sur annuler alors strNom est égale à False
    If strNom <> False Then
        wkb.SaveAs strNom
        wkb.Close
        EnregFich = strNom
    End If
End Sub