comment utiliser les commons dialogues pour enregistrer ma feuille dans un emplacement de l'ordinateur

salut
en effetb j'aimerais que vous me montrais comment on utilise les common dialogue pour crée la boîte de dialogue enregistrer sous qui permettra d'enregistrer ma feuille dans un emplacement dans l'ordinateur
merci d'avance pour votre aide

bonjour j'ai un projet qui utilise les bases de donnée en faite quand je fait le packtage mes apres quand j'instale le projet la base de donnée n'est pas enregistrer dans l'ordinateur ou je les installée
s'il vous plait aider moi
merci d'avance

C'est parce que tu n'inclus pas ta base de données dans les fichiers à empaqueter.
Il y a une fenêtre, au cours de l'empaquetage, qui t'affiche tous les fichiers utilisés (.exe, .dll, ...) et il y a un bouton "Ajouter" à côté. A toi d'y insérer ta base de données pour qu'elle fasse partie de l'empaquetage.


Manu

Dans un forms, importez un objet de type Microsoft Commond Dialog

Dans les propriété donné lui le nom que vous souhaitez. "CommonDialog", par exemple...

ensuite créer un bouton et donnez lui le code évenement suivant:

Private Sub btSave_Click()
Dim TonChemin As String
CommonDialog.CancelError = True ' Attribue à CancelError la valeur True
On Error GoTo ErrHandler
CommonDialog.DialogTitle = "Selection de Fichier" ' Définit le titre de la fenêtre
CommonDialog.flags = cdlOFNHideReadOnly ' Définit la propriété Flags
CommonDialog.InitDir = "D:\payroll" ' Chemin Initial
CommonDialog.Filter = "Fichiers (*.*)|*.*" ' Définit les filtres
CommonDialog.FilterIndex = 2 ' Définit le filtre par défaut
CommonDialog.ShowSave ' Affiche la boîte de dialogue Ouverture
TonChemin = CommonDialog.FileName ' Enregistrement du Chemin Selectionné
Exit Sub
ErrHandler:
'L'utilisateur a cliqué sur Annuler
End Sub

Les vrais programmeurs sont ceux qui programment en binaire !