Boite de dialogue enregistrer sous

Soyez le premier à donner votre avis sur cette source.

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

Il te manque pas un CMD.ShowSave par hasard? Enfin moi je dis ça comme ça :) peut-être qu'il manque aussi un End Sub aussi? humm bon si on résume ça fait :

Private Sub Command1_Click()
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

A ben vi! C'était bien ça!

Mémère
oué merci mémère ... commence à y en avoir marre des sales sources ..
Le foutu save marche pas, j'ai beau copier toute votre affaire, ca save pas !
bob3000
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004
-
Glihk -> Tu as peut-etre oublier de mettre le composant Microsoft Common Dialog ou bien tu l'as mal appeller...
GarnetDiAlexandros
Messages postés
55
Date d'inscription
mercredi 31 juillet 2002
Statut
Membre
Dernière intervention
19 novembre 2004
-
Est-ce que quelqu'un pourrait me dire que noter exactement dans le champ Filter pour avoir, à l'affichage, une ligne comme ça :
Tous les fichiers images (*.jpg, *.gif, *.bmp)
Merci d'avance !

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.