Agenda

Commenter

Contenu du snippet

c mon 2eme script il sagit d'un agenda basic et simple d'utilisation .
dons le code est si dessous
Ps: dites moi se que vous en pensez .merci salut
mon mail inatendu911@voila.fr

Source / Exemple : 


v=vbCrLf                    

While fin<>vbYes       
som=InputBox ("taper"&v&"1 pour installer Agenda"&v&"2 pour creer une fiche"&v&"3 pour consulter une fiche"&v&"4 pour sauvegarder vos fiches"&v&"5 pour ajouter une info a une fiche"  )      
    Select Case som
    Case"1"  
     Set fso = CreateObject("Scripting.FileSystemObject")      
     If (fso.FolderExists("c:\agenda")) Then                            
djins =MsgBox( "agenda est deja installer")                   
     End If    
On Error Resume Next                               
     Dim fso                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
      Set fso = CreateObject("Scripting.FileSystemObject")                                                   
      Set f = fso.CreateFolder("c:\agenda")                 

     Case"2"
                 
     nf=InputBox ("entre le nom de la fiche")
    
             
Set fso = CreateObject("Scripting.FileSystemObject") 
If (fso.FileExists("c:\agenda\"&nf&".txt" )) Then              
msg =MsgBox( nf & " existe vous allez remplacer la fiche"&vbCrLf&"Continuer ?",vbYesNo)  
End If    
     
If msg=vbNo Then                       
     nf=InputBox ("entre le nom de la fiche")
End If        

      na=InputBox ("entre nom")         
     ta=InputBox ("entre n°de tel ")
     aa=InputBox ("entre adresse ")

     Set fso = CreateObject("Scripting.FileSystemObject")
     Set Myile = fso.CreateTextFile("c:\agenda\"&nf&".txt", True)  
     Myile.WriteLine(na&"  "&ta&"  "&aa)       
     Myile.Close  

      Case"3"
      cf=InputBox ("entre le nom de la fiche")   

      Const cForReading=1
                                                  
      Set fso = CreateObject("Scripting.FileSystemObject")      
      Set Myl = fso.OpenTextFile("c:\agenda\"&cf&".txt",cForReading)                                                                                                                          
      C=Mid(Myl.ReadLine,1,200)                                             
      MsgBox(C) 
       
Case "4"
sauv=InputBox ("Entre le chemin de destination de la sauvegarde"&vbCrLf&"ex: c:\seb\")

If (fso.FolderExists(sauv)) Then 
MsgBox("agenda sera sauvegarder dans le repertoire"&sauv)

Set sag = fso.GetFolder("c:\agenda")                                                                                      
sag.Copy (sauv)  
MsgBox("agenda a eter sauvegarder")

Else   
sauv=InputBox ("Entre le chemin de destination de la sauvegarde"&vbCrLf&"ex: c:\seb\")
End If    

Case "5"       
toto=InputBox("entre le nom de la fiche")        
tata=InputBox("entre les nouvelle infos")

         Const ForReading = 1, ForWriting = 2   
   Dim objfso        
Set objfso = CreateObject("Scripting.FileSystemObject")             
   Set f = objfso.OpenTextFile("c:\agenda\"&toto&".txt", ForReading, True)               
  za= Mid(f.ReadLine,1,200)                                                          
 f.Close 

Dim com(2)
com(1)=za
com(2)=tata     

   Set ff = objfso.OpenTextFile("c:\agenda\"&toto&".txt", ForWriting, True)          
   ff.Write com(1)&"  "&com(2)       
   ff.Close                

       End Select

fin=MsgBox("quitter ?",vbYesNo)                  
Wend

A voir également

S'inscrire maintenant

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.