AGENDA
niicoola
Messages postés
19
Date d'inscription
mercredi 2 novembre 2005
Statut
Membre
Dernière intervention
15 janvier 2007
-
24 mars 2006 à 22:56
papoow Messages postés 4 Date d'inscription vendredi 29 septembre 2006 Statut Membre Dernière intervention 19 juillet 2010 - 19 juil. 2010 à 11:36
papoow Messages postés 4 Date d'inscription vendredi 29 septembre 2006 Statut Membre Dernière intervention 19 juillet 2010 - 19 juil. 2010 à 11:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34859-agenda
https://codes-sources.commentcamarche.net/source/34859-agenda
19 juil. 2010 à 11:36
Bonjour le Forum :)
Merci pour cet Agenda "basic", j'aime beaucoup, excellente idée, en le testant j'ai rencontré un souci, c'est pourquoi, je te propose une modif, dans l'esprit de ton travail. :)
Une option pour la sauvegarde :)
Remplacer :
Else
sauv=InputBox ("Entre le chemin de destination de la sauvegarde"&vbCrLf&"ex: c:\seb")
End If
Par :
Else
msg =MsgBox( sauv &vbCrLf& " n'existe pas, voulez vous le créer ? "&vbCrLf&"Continuer ?",vbYesNo)
End If
If msg=vbYes Then
Set f = fso.CreateFolder(sauv)
Set sag = fso.GetFolder("c:\Agenda")
sag.Copy (sauv)
MsgBox("agenda a été sauvegarder")
End If
Cordialement Papoow :)
10 avril 2009 à 13:34
16 mars 2009 à 11:39
2 nov. 2006 à 02:14
22 août 2006 à 15:20
24 mars 2006 à 22:56