Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Boite de dialogue enregistrer sous.

Boite de dialogue enregistrer sous.

7 réponses
Avatar
Christophe CAMPAIN
Bonjour à tous,

Existe-t-il une instruction équivalente à l'instruction " GetSaveAsFilename
" de Excel ?

(Raymond, si tu lis ce message, je dispose de la fonction
"SaveFile(Répertoire_initial As String) As String " qui se trouvait dans le
fichier ImageDouble de ton site, mais je ne parviens pas à la faire
fonctionner correctement. La chaine de caractères retournée est
systématiquement emputée du dernier repertoire.)

Par avance merci,

@+
Kristof
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Prend celle-ci:
http://access.seneque.free.fr/sauvegarde_document.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe CAMPAIN" a écrit
dans le message de news:
Bonjour à tous,

Existe-t-il une instruction équivalente à l'instruction "
GetSaveAsFilename

" de Excel ?

(Raymond, si tu lis ce message, je dispose de la fonction
"SaveFile(Répertoire_initial As String) As String " qui se trouvait dans
le

fichier ImageDouble de ton site, mais je ne parviens pas à la faire
fonctionner correctement. La chaine de caractères retournée est
systématiquement emputée du dernier repertoire.)

Par avance merci,

@+
Kristof




Avatar
Christophe CAMPAIN
Ok !
Ca marche !

Merci,

@+
Kristof

"Raymond [mvp]" a écrit dans le message de
news:%
Prend celle-ci:
http://access.seneque.free.fr/sauvegarde_document.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe CAMPAIN" a écrit
dans le message de news:
Bonjour à tous,

Existe-t-il une instruction équivalente à l'instruction "
GetSaveAsFilename

" de Excel ?

(Raymond, si tu lis ce message, je dispose de la fonction
"SaveFile(Répertoire_initial As String) As String " qui se trouvait dans
le

fichier ImageDouble de ton site, mais je ne parviens pas à la faire
fonctionner correctement. La chaine de caractères retournée est
systématiquement emputée du dernier repertoire.)

Par avance merci,

@+
Kristof








Avatar
Christophe CAMPAIN
Salut Raymond,

Avec la fonction SaveFile, est il possible de spécifier un nom de fichier
qui apparaîtra par défaut dans la boite dialogue ? (J'ai essayé diverses
manip de lpstrFile, mais sans succés...)

Par avance merci,

@+
Kristof



"Raymond [mvp]" a écrit dans le message de
news:%
Prend celle-ci:
http://access.seneque.free.fr/sauvegarde_document.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe CAMPAIN" a écrit
dans le message de news:
Bonjour à tous,

Existe-t-il une instruction équivalente à l'instruction "
GetSaveAsFilename

" de Excel ?

(Raymond, si tu lis ce message, je dispose de la fonction
"SaveFile(Répertoire_initial As String) As String " qui se trouvait dans
le

fichier ImageDouble de ton site, mais je ne parviens pas à la faire
fonctionner correctement. La chaine de caractères retournée est
systématiquement emputée du dernier repertoire.)

Par avance merci,

@+
Kristof








Avatar
Raymond [mvp]
Bonjour christophe.

juste avant flags tu places le nom du fichier dans lpstrFile
.lpstrFile = "bd2.mdb"
.Flags = 6148


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe CAMPAIN" a écrit
dans le message de news:%23qmiJ$
Salut Raymond,

Avec la fonction SaveFile, est il possible de spécifier un nom de fichier
qui apparaîtra par défaut dans la boite dialogue ? (J'ai essayé diverses
manip de lpstrFile, mais sans succés...)

Par avance merci,

@+
Kristof


Avatar
Christophe CAMPAIN
Raymond,

Ca y est , ça marche !
Il faut quand même faire attention à une chose : ça tronque le chemin au
nombre de lettres du nom de fichier , par exemple avec :
.lpstrFile = "Essai.jpg" '(9 lettres) --> ce qui devrait être
"P:RivetPictureEssais.jpg" (27 lettres) devient "P:Rivet" (9 lettres).

il faut mettre le chemin complet pour le nom de fichier, avec .lpstrFile "P:RivetPictureEssais.jpg" , ça fonctionne.

Merci,

@+
Kristof

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour christophe.

juste avant flags tu places le nom du fichier dans lpstrFile
.lpstrFile = "bd2.mdb"
.Flags = 6148


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe CAMPAIN" a écrit
dans le message de news:%23qmiJ$
Salut Raymond,

Avec la fonction SaveFile, est il possible de spécifier un nom de
fichier


qui apparaîtra par défaut dans la boite dialogue ? (J'ai essayé diverses
manip de lpstrFile, mais sans succés...)

Par avance merci,

@+
Kristof






Avatar
Jessy Sempere [MVP]
Bonjour

Sinon voici une variante de la fonction SaveFile avec la possibilité de
mettre
un non de fichier par défaut....

******************************************************
Public Function SaveFile(strInitialDir As String, Optional FileName 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
If IsMissing(FileName) Then
.lpstrFile = Space(254)
Else
.lpstrFile = FileName & Space(254 - Len(FileName))
End If
.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
******************************************************

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Christophe CAMPAIN" a écrit
dans le message news:
Raymond,

Ca y est , ça marche !
Il faut quand même faire attention à une chose : ça tronque le chemin au
nombre de lettres du nom de fichier , par exemple avec :
.lpstrFile = "Essai.jpg" '(9 lettres) --> ce qui devrait être
"P:RivetPictureEssais.jpg" (27 lettres) devient "P:Rivet" (9
lettres).


il faut mettre le chemin complet pour le nom de fichier, avec .lpstrFile > "P:RivetPictureEssais.jpg" , ça fonctionne.

Merci,

@+
Kristof

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour christophe.

juste avant flags tu places le nom du fichier dans lpstrFile
.lpstrFile = "bd2.mdb"
.Flags = 6148


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe CAMPAIN" a
écrit


dans le message de news:%23qmiJ$
Salut Raymond,

Avec la fonction SaveFile, est il possible de spécifier un nom de
fichier


qui apparaîtra par défaut dans la boite dialogue ? (J'ai essayé
diverses



manip de lpstrFile, mais sans succés...)

Par avance merci,

@+
Kristof










Avatar
Christophe CAMPAIN
Salut Jessy,

J'ai intégré ça aussi par la même occasion.

Merci,
@+
Kristof

"Jessy Sempere [MVP]" a écrit dans le message de
news:c7vgog$r8h$
Bonjour

Sinon voici une variante de la fonction SaveFile avec la possibilité de
mettre
un non de fichier par défaut....

******************************************************
Public Function SaveFile(strInitialDir As String, Optional FileName 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
If IsMissing(FileName) Then
.lpstrFile = Space(254)
Else
.lpstrFile = FileName & Space(254 - Len(FileName))
End If
.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
******************************************************

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Christophe CAMPAIN" a écrit
dans le message news:
Raymond,

Ca y est , ça marche !
Il faut quand même faire attention à une chose : ça tronque le chemin au
nombre de lettres du nom de fichier , par exemple avec :
.lpstrFile = "Essai.jpg" '(9 lettres) --> ce qui devrait être
"P:RivetPictureEssais.jpg" (27 lettres) devient "P:Rivet" (9
lettres).


il faut mettre le chemin complet pour le nom de fichier, avec .lpstrFile
"P:RivetPictureEssais.jpg" , ça fonctionne.

Merci,

@+
Kristof

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour christophe.

juste avant flags tu places le nom du fichier dans lpstrFile
.lpstrFile = "bd2.mdb"
.Flags = 6148


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe CAMPAIN" a
écrit


dans le message de news:%23qmiJ$
Salut Raymond,

Avec la fonction SaveFile, est il possible de spécifier un nom de
fichier


qui apparaîtra par défaut dans la boite dialogue ? (J'ai essayé
diverses



manip de lpstrFile, mais sans succés...)

Par avance merci,

@+
Kristof