Enregistrement automatique

[nimbus23]

Bonsoir à tous

je reviens vers vous pour un petit service:
j'ai un fichier excel avec 3 feuilles.
Feuille1 - saisie des données
Feuille2 - me sert de récapitulatif
feuille3 - récupération des données pour un transfert vers un fichier txt
jusque la tous va bien, j'ai une macro qui m'envoi mes données vers le bloc note (merci à djin pour le coup de main) ce que je voudrais c'est compléter cette macro pour enregistrer automatiquement le fichier txt sous c:\Dossier\nom du fichier et revenir sur ma feuille de saisie aprés avoir fermé le bloc note.
merci à tous

 

[phlaurent55]

Re : Enregistrement automatique

Bonsoir/Bonjour ?

peut-être qu'avec ceci, ce qui eviterais de passer par un enregistrement intermédiaire dans le bloc-notes

    ChDir "C:\Dossier"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Dossier\Classeur1.txt", _
        FileFormat:=xlTextMSDOS, CreateBackup:=False

 

[kjin]

Re : Enregistrement automatique

Bonsoir nimbus23, phlaurent,
Il était préférable de rester sur le même fil mais bon.
Pour compléter la macro en passant par le bloc note:

Sub BlocNote()
Dim FichO As String, FichN As String
FichO = ActiveWorkbook.Name
FichN = Replace(FichO, ".xls", "")
Range("A1:A10").Copy
AppActivate Shell("C:\windows\Notepad.exe", 1)
SendKeys "^v"
SendKeys "^s"
SendKeys "C:\Dossier\" & FichN
SendKeys "{ENTER}"
SendKeys "%{F4}"
SendKeys "{ESC}"
End Sub

A+
kjin

 

[nimbus23]

Re : Enregistrement automatique

Bonjour à tous

merci pour les réponses je vais tester cela aujourd'hui.
Merci à toi Kjin pour ton aide car je suis novice en macro
bonne journée à tous le monde je vous tiens au courant.
et encore merci

 

[nimbus23]

Re : Enregistrement automatique

Bonjour kjin

encore merci pour ton aide l'enregistrement fonction trés bien
je reviens te voir pour un autre petit service
Est il possible dans la macro de supprimer l'extention txt lors de l'enregistrement du fichier car celui ci est repris par une autre application et je dois supprimer cette extention manuellement
Encore merci et à bientot