Bonjour à tous et toutes. voilà mon problème:

à partir d'excel, je dois créer un fichier avec notepad puis l'enregistrer.
j'ai écrit ce bout de code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
ReturnValue = Shell("C:\Windows\Notepad.exe c:\vbatelier\Progression\travail du " & Format(Date, "dd mm yyyy") ".txt", 1)  
AppActivate ReturnValue    
SendKeys " il est: " & Time ' je marque une phrase simple
Application.SendKeys "^{s}", True  ' pour enregistrer le fichier
Application.SendKeys "%{F}{Q}", True ' pour quitter notepad
ça fonctionne mais 2 points ne donnent pas satisfaction:

1) il a un "dong" à chaque création de message car le fichier est créé et appelé en même temps, je reconnais que ce n'est pas trés logique.

2) plus embêtant, si notepad sert à enregister un texte quelques part sur le disque, le dernier chemin d'accés reste mémorisé et donc qaund VBA execute le code, il y a un message d'erreur car il ne peut pas créér ce nouveau fichier à l'emplacement prévu (changement de disque ou de repertoire).


je ne doute pas que les pro de VBA me donneront les indications necessaires pour corriger ces imperfections.