Discussion :

[mimic44]

Bonjour,

comme indiqué dans le titre je cherche à ouvrir, enregistrer et fermer notepad depuis access en auto après une tempo.

Existe t il un code pour cela ?

Merci et A+

[argyronet]

Bonjour,

Existe t il un code pour cela ?

Oui, ca doit pouvoir se faire... Mais pas forcément avec Notepad, d'ailleurs pourquoi Notepad ?
Que veux tu enregistrer au juste ?

Argy

[mimic44]

En fait je voulais enregistrer sur ce fichier des données de dates de mise à jour d'un système complexe de gestion de production. Ce fichier communique ensuite avec une base propre à notre société.
J'ai déjà une idée du code pour écrire la date mais je n'arrive pas à enregistré et a fermer notepad de facon propre aujourd'hui j'utilise la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Ouvreevent()
MyAppID = Shell("notepad.EXE C:\sappa\pdt\Event_cab_xls.txt", 1)
 Application.Wait Now + TimeValue("00:00:03")
 SendKeys "%{F4}", True
 
 End Sub

mais cela provoque l'activation/désactivation de facon cyclique de VerrNum et maj/min, bizarre non ?

Voila mon vrai problème, peux tu y faire quelque chose ?

ps: sinon on peut aussi avec wordpad.

[cafeine]

Hello,

il y a un truc pas mal aussi pour gérer ça :
http://www.developpez.net/forums/sho...d.php?t=225938

[argyronet]

Oui, effectivement tu n'a pas besoin de Notepad.
Donc tu n'a pas besoin non plus d'attendre un quelconque délai pour l'ouvrir ou le fermer ce programme... WaitForSingleObject ne te sera d'aucune utilité dans ton cas, à ce que je comprends dans ton objectif...

Il te suffit de profiter de l'événement Timer de ton formulaire et d'utitiser un objet FSO pour créer d'abord (s'il n'existe pas) un fichier lambda avec par la suite le paramètre ForAppending pour ajouter des données dans ce fichier texte et ce autant de fois que tu veux...

Procédure pour démarrer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Timer()
Static intDelai As Integer
  'Tempo défini à 1000
  intDelai = intDelai + 1
  If intDelai > 299 Then '5 minutes
    Call AjouterDataDansFichier(QuelFichier, QuellesData)
    intDelai = 0
  End If
End Sub
 
Private Sub AjouterDataDansFichier(ByVal NomFichier As String, _
ByVal Contenu As String)
Dim oFSO As Scripting.FileSystemObject
Dim oText As Scripting.TextStream
 
'Vérifier existence fichier
'Si existe
'   ForAppending puis enrichissement avec un TextStream
'Sinon
'   CreateTextFile puis remplissage avec un TextStream
'Fin Si
End Sub

Argy

[mimic44]

Et pour la fermeture ?

[argyronet]

FSO peut ouvrir un fichier texte, l'enrichir, le fermer, le déplacer, le copier mais ne sait pas faire la mayonnaise et tout ça sans aucun autre programme externe...

Regarde toutes les méthodes et propriétés de l'objet et tu vas être agréablement surpris...

Argy