[AC-97] Fichier : Enregistrer sous [Résolu]

[titi95]

Bonjour à tous

J'arrive à faire apparaitre la boite "Enregister sous" après avoir fait un copier-coller de la fonction EnregistrerUnFichier proposé par Shwin, sans rien changer.
Pour appeler la fonction :

Code :

    MsgBox EnregistrerUnFichier(0, "Enregistrer sous", "Base.mdb", "d:\mes documents")

(nom et dossier du fichier actuel à enregistrer)

J'ai bien le retour du chemin, mais aucun enregistrement !

Que dois-je faire ?

Merci d'avance !

[Beub']

La fonction renvoie un chemin, c'est tout. Elle ne réalise pas d'enregistrement si tu ne lui dis pas ce qu'elle doit enregistrer.

EnregistrerUnFichier() revient à créer une boite de dialogue et à laisser à l'utilisateur choisir un répertoire de sauvegarde et un nom de fichier à sauvegarder. Donc en substance, si tu valides tel quel (avec les paramètres que tu as entrés) :

Code :

1
2
 
MsgBox EnregistrerUnFichier(0, "Enregistrer sous", "Base.mdb", "d:\mes documents")

est rigoureusement équivalent à

Code :

1
2
 
MsgBox "d:\mes documents\Base.mdb"

Normal qu'il n'enregistre rien. La fonction renvoie une String, à toi de voir ce que tu en fais après.

[a.pujol]

Bonjour,

MsgBox EnregistrerUnFichier(0, "Enregistrer sous", "Base.mdb", "d:\mes documents

Ta ligne de code n'a pas de fonction d'enregistrement. Elle te permet d'ouvrir la boite de dialogue qui te permet de saisir le chemin et le nom que tu souhaite donner au fichier.

Il faut après avoir récupéré le nom que tu gère l'enregistrement par du code

Pour récupérer ce nom tu peux écrire:

Code :

NomFichier =EnregistrerUnFichier(0, "Enregistrer sous", "Base.mdb", "d:\mes documents

Pour la suite, je te laisse gérer (je ne vois pas pourquoi tu veux enregistrer la base?)

[titi95]

Bonjour à vous deux

Quand on est pas réveillé...
Désolé du dérangement et un grand merci.

Question subsidiaire : peut-on centrer la fenêtre "Enregistrer sous" ?

Bonne année !

[titi95]

Bonjour

Rien ne va plus !

J'avais fait mes essais du code de Shwin sur Access 2000.
http://access.developpez.com/faq/?pa...AffBoitEnregSs

Or, sur 97 ça bloque sur

Code :

Dim structSave As OPENFILENAME

avec le message "Type défini par l'utilisateur non défini".

Il faut ajouter une référence ?
Ce n'est pas compatible en 97 ?
Une solution de contournement ... ?

Merci d'avance !

Pour a.pujol : le but est de donner la possibilité d'effectuer une sauvegarde de la base sur un autre support, directement à partir du formulaire d'accueil.

[titi95]

Bonjour

J'ai ouvert ma BDD hier soir et... ça marche !!!???
Besoin d'une réinitialisation ?

Ouf ! Super !

Tous mes voeux pour 2011