Boite de dialogue enregistrer sous

Soyez le premier à donner votre avis sur cette source.

Vue 20 704 fois - Téléchargée 1 381 fois

Description

Le code permet d'effectué une boite de dialogue
Enregistrer

vous devez ajouter le composant "Microsoft commonDialogue" qui est appeller ici CMD.

Source / Exemple :


Private Sub Command1_Click()
CMD.DialogTitle = "Enregistrer le fichier sous" 
CMD.CancelError = True
CMD.Filter = "Texte (*.TXT)|*.TXT"
CMD.FilterIndex = 1
CMD.InitDir = "C:\windows\bureau\" 
CMD.FileName = "Mémo.txt" 'Titre Proposé

Codes Sources

A voir également

Ajouter un commentaire Commentaires
STEPHANE6012
Messages postés
5
Date d'inscription
samedi 23 décembre 2006
Statut
Membre
Dernière intervention
10 juillet 2007

7 juil. 2007 à 10:56
Bonjour
J'ai beau essyaé mais rien n'y fait, ça marche pas
Dommage
cs_Bl0tCh
Messages postés
74
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
6 septembre 2008

18 janv. 2004 à 19:49
Une question, comment on fait pour lui dire quel fichier il doit enregistrer ??
cs_noshelter
Messages postés
11
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
25 juin 2003

16 juin 2003 à 04:30
euh y a plus simple pour pas avoir d'erreur :

Private Sub Command1_Click()
CMD.DialogTitle = "Enregistrer le fichier sous"
CMD.CancelError = false
CMD.Filter = "Texte (*.TXT)|*.TXT"
CMD.FilterIndex = 1
CMD.InitDir = "C:windowsureau"
CMD.FileName = "Mémo.txt"
CMD.ShowSave
End Sub
cs_noshelter
Messages postés
11
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
25 juin 2003

16 juin 2003 à 04:26
Private Sub Command1_Click()
On Error Resume Next
CMD.DialogTitle = "Enregistrer le fichier sous"
CMD.CancelError = True
CMD.Filter = "Texte (*.TXT)|*.TXT"
CMD.FilterIndex = 1
CMD.InitDir = "C:windowsureau"
CMD.FileName = "Mémo.txt"
CMD.ShowSave
End Sub

comme çà, çà plantera plus
z980x
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2
8 juin 2003 à 14:31
pk il plante quand on clique sur Annuler ?
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.