MVP Office Access 2003, 2004, 2005 et 2006
Base de données Base de données Administrateur Administrateur Table Table Requête Requête Formulaire Formulaire Dates & Heures Dates & Heures Nombre Nombre Math Math Fichier Fichier Commandes externes Commandes externes Automation Automation Equivalence Equivalence
Base de données Base de données
|
Fichier - Sauvegarder fichier
| | Ce code permet d'ouvrir une boîte de dialogue afin de spécifier un chemin et un nom de fichier.
Vous devez copier tout le code qui suit dans un module que vous pouvez appeler "modApiSaveFile".
| | | | | | | |
| | Expression = SaveFile(strInitialDir) La synthaxe de la fonction SaveFile comprend l'élément suivant : Eléments | Description | strInitialDir | Expression de chaîne correspondant au répertoire par défaut de la fenêtre de sélection de fichier. |
| | | | | | | |
| | Aucun exemple disponible pour le moment. | | | | | | | |
| |
'***************************Debut du code*************************** Public Type OpenFileName lStructSize As Long hwndOwner As Long Instance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustomFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String
End Type
Public Declare Function GetSaveFileName Lib "comdlg32.dll" _ Alias "GetSaveFileNameA" (pOpenfilename As OpenFileName) As Long
Public Const OFN_AllowMultiSelect = &H200 Public Const OFN_CreatePrompt = &H2000 Public Const OFN_EnableHook = &H20 Public Const OFN_EnableTemplate = &H40 Public Const OFN_EnableTemplateHandle = &H80 Public Const OFN_EXPLORER = &H80000 Public Const OFN_ExtensionDifferent = &H400 Public Const OFN_FileMustExist = &H1000 Public Const OFN_HideReadOnly = &H4 Public Const OFN_LongNames = &H200000 Public Const OFN_NoChangeDir = &H8 Public Const OFN_NoDeReferenceLinks = &H100000 Public Const OFN_NoLongNames = &H40000 Public Const OFN_NoNetWorkButton = &H20000 Public Const OFN_NoReadOnlyReturn = &H8000 Public Const OFN_NoTestFileCreate = &H10000 Public Const OFN_NoValiDate = &H100 Public Const OFN_OverWritePrompt = &H2 Public Const OFN_PathMustExist = &H800 Public Const OFN_ReadOnly = &H1 Public Const OFN_ShareAware = &H4000 Public Const OFN_ShareFallThrough = 2 Public Const OFN_ShareNoWarn = 1 Public Const OFN_ShareWarn = 0 Public Const OFN_ShowHelp = &H10
Global Dialogue As OpenFileName
Public strFiltre As String Public strFile As String Public strNomFile As String Public RetVal As Long
Public Function SaveFile(strInitialDir As String) As String SaveFile = "" strFiltre = "Fichiers Access" & Chr$(0) & "*.mdb" & Chr$(0) & _ "Fichiers Excel" & Chr$(0) & "*.xls" & Chr$(0) & _ "Fichiers Word" & Chr$(0) & "*.doc" & Chr$(0) & _ "Tous les fichiers" & Chr$(0) & "*.*"
With Dialogue .lStructSize = Len(Dialogue) .lpstrFilter = strFiltre .lpstrFile = Space(254) .nMaxFile = 255 .lpstrFileTitle = Space(254) .nMaxFileTitle = 255 .lpstrInitialDir = strInitialDir .lpstrTitle = "Sauvegarde d'un fichier" .Flags = 6148 End With
RetVal = GetSaveFileName(Dialogue)
If RetVal >= 1 Then SaveFile = Dialogue.lpstrFile Else SaveFile = "" Exit Function End If
End Function
'***************************Fin du code***************************
| | |
Date de création : 27/10/2006 @ 12:49
Dernière modification : 27/10/2006 @ 12:53
Catégorie : Fichier
Page lue 1613 fois
Prévisualiser la page
Imprimer la page
Personne n'a encore laissé de commentaire. Soyez donc le premier ! |
|
79 Membres
les 10 derniers :
Membre en ligne :
( personne ) Anonymes en ligne : 7
Total visites : 174520
Affluence record: 102
le 17/06/2007 @ 07:36
|