Boite de dialogue enregistrer sous

Soyez le premier à donner votre avis sur cette source.

Vue 19 647 fois - Téléchargée 1 307 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

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

Bonjour
J'ai beau essyaé mais rien n'y fait, ça marche pas
Dommage
Messages postés
74
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
6 septembre 2008
1
Une question, comment on fait pour lui dire quel fichier il doit enregistrer ??
Messages postés
11
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
25 juin 2003

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
Messages postés
11
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
25 juin 2003

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
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2
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.