Discussion :

[mysterauto]

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.

[Daniel.C]

Bonjour,

Pourquoi ne pas créer un classeur et l'enregistrer au format texte ?

[lenovo49]

Bonjour,

La solution de Daniel.C pour moi c'est l'idéal mais pour répondre à ta question:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub NotePad()
 
 AppActivate Shell("Notepad.exe", vbNormalFocus)
  SendKeys "abc" ' Ecrire
Sleep 1000
  SendKeys "^s" ' Pour enregistrer
Sleep 1000
  SendKeys "C:\Mes documents\travail du " & Format(Date, "dd mm yyyy") & ".txt", 1
Sleep 1000
  SendKeys "{ENTER}" ' valide le chemin
Sleep 1000
  Application.SendKeys "%{F}{Q}", True ' pour quitter notepad
End Sub

Au plaisir.

[mysterauto]

merci tout d'abord à tous les 2 pour vos réponses rapides.

je vais tester les 2 pour l'experience.

j'ai deux questions:

suis-je obligé de créér un classeur ou puis-je utiliser une feuille de mon classeur actuel? je mettrais donc dans une cellule le texte voulu; serait-ce génant si le texte comporte des retous chariots, 300 ou 400 mots dans une seule cellule?

si j'ai compris la solution que j'avais ébauchée, sendkeys envoi des sequences de touches dans la zone texte et application.sendkeys envoi des sequences de touches dans la barre des menus?

merci encore pour vos explications.

Luc

[Daniel.C]

Tu peux enregistrer la feuille en tant que fichier texte :

Code :

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

ActiveSheet.SaveAs "c:\temp\toto", xlTextWindows

[lenovo49]

Pour gérer des fichiers textes à la racine de mon classeur j'utilise ceci:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Public erreur As Long
Public FTXT, NUM As Variant
Sub Fichier_Txt()
' Vérification de la présence des fichiers texte
 
FTXT = ThisWorkbook.Path & "\creation_fichier_txt.txt"
 
FichierExiste FTXT
If erreur = 1 Then
FTXT = ThisWorkbook.Path & "\creation_fichier_txt.txt"
NUM = FreeFile
Open FTXT For Output As #NUM
 
Write #NUM, "Ton texte a ajouter"
 
Close #NUM
End If
 
End Sub
Public Function FichierExiste(ByVal nom As String) As Boolean
On Error Resume Next
    Dim attrib As Integer
 
attrib = GetAttr(nom)
    If (Err <> 0) Then
        FichierExiste = False
        erreur = 1
    Else
        If ((attrib And vbDirectory) = vbDirectory) Then
            FichierExiste = False
        erreur = 1
        Else
            FichierExiste = True
        End If
    End If
End Function

Ce code me permet de gérer mes fichiers textes et de noter ce que j'ai besoin dedans un peu comme un journal!!