Enregistrer sur le bureau

JONJON91 Messages postés 30 Date d'inscription vendredi 20 mai 2005 Statut Membre Dernière intervention 18 août 2005 - 5 août 2005 à 15:22
kakenette Messages postés 218 Date d'inscription dimanche 1 mai 2005 Statut Membre Dernière intervention 15 novembre 2009 - 5 août 2005 à 19:00
Salut a tous.

Est ce que quelqu'un sai comment forçer l'enregistrement sur le bureau.
c-a-d rentrer le chemin dans le code pour que l'enregistrement se fasse sur le bureau(ou mêm ailleur) sans intervenir.

Merci d'avance.

6 réponses

fcampagne Messages postés 195 Date d'inscription vendredi 3 juin 2005 Statut Membre Dernière intervention 13 juillet 2006 3
5 août 2005 à 15:26
Slt, ca dépend quel OS tu possédes, le chemin du bureau n'est pas le méme d'uner version à l'autre!

Mais quesque tu veux faire précisement? enregistrer un fichier généré par ton programme sur le bureau???

En mettant le chemin C:\Documents and Settings\USER\Bureau ca ne marche pas???
stabe Messages postés 144 Date d'inscription lundi 23 décembre 2002 Statut Membre Dernière intervention 17 juin 2006
5 août 2005 à 15:36
salut,

Pour connaite le chemin du bureau (qui dépend de ta version d'OS) :

' nécessite la référence windows script host object model (ver 1.0)
Dim WshShell As IWshRuntimeLibrary.IWshShell_Class

Set WshShell = New IWshRuntimeLibrary.IWshShell_Class

Msgbox WshShell.SpecialFolders("Desktop")

-- stabe --
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
5 août 2005 à 16:01
Eviter la machine script, VB est déjà assez lourd sans lui rajouter cette couche par dessus. De plus ça a la facheuse tendance à exciter les antivirus.
SHGetSpecialFolderPath() avec CSIDL_DESKTOPDIRECTORY donnera le chemin bien plus vite.

ciao...
BruNews, MVP VC++
JONJON91 Messages postés 30 Date d'inscription vendredi 20 mai 2005 Statut Membre Dernière intervention 18 août 2005
5 août 2005 à 16:05
Je voudrais enregistrer mon fichier sur le bureau sans que la fenêtre sauver s'ffiche.
Voici mon code:

Sub Sauve()

Dim Name As String
Name = TxtName.Text
CommonDialog1.FileName = Name
CommonDialog1.Filter = "Fel Data (*.Fel)|*.Fel"

If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, TxtNote.Text
Close #1
End If

End Sub

Je voudrais entrer une ligne de code afin que le fichier se sauve dans un dossier préci(le bureau par ex)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
5 août 2005 à 16:14
si tu veux forcer le chemin alors pas besoin de faire apparaitre la common dialog, balance juste une dialog perso avec une zone texte demandant le nom du fichier.

ciao...
BruNews, MVP VC++
kakenette Messages postés 218 Date d'inscription dimanche 1 mai 2005 Statut Membre Dernière intervention 15 novembre 2009 1
5 août 2005 à 19:00
Tu fait ca au pire :



Sub SauverBureau()

Open "C:\Documents and Settings\All Users\Bureau\MonFichier" For Output As #1

Print #1, TxtNote.Text

Close #1

End Sub

kakenette
Rejoignez-nous