XL 2013 Contrôle wordpad via VBA

Haso54

XLDnaute Nouveau
Bonjour à tous,
Je suis Haso54 31 ans, nouveau sur ce forum

Mon problème est le suivant :

J'aimerais via VBA contrôler wordpad.
Tout les jours j'ai une base de donner différentes (400 lignes en moyenne) qui se mette à jour automatiquement via SQL en colonne A.

Ma question est il possible de dire à vba de copier et saisir des touches dans wordpad ?
Désolé je ne peux avoir de PJ car c'est un fichier qui est sur mon lieu de travail

En gros
- Copier la colonne A de mon fichier excel
- Ouvrir Wordpad
- Touche CTRL + A (sélectionner ancien contenu)
- Touche SUPPR (supprimer le contenu)
- Touche CTRL + V ( coller nouveau contenu)
- Touche CTRL + S (enregistrer)
- Touche ALT + F4 (fermer wordpad)

Merci d'avance de prendre la peine de me lire
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, Haso54

Haso54 [Bienvenue sur le forum]
Pourquoi tu veux titiller Wordpad alors qu'Excel sait ouvrir un fichier texte tout seul comme un grand ? ;)
Il sait aussi créer un fichier texte.

Le but recherché est-il celui-ci?
Exporter chaque jour le contenu de la colonne A d'un fichier Excel vers un fichier texte?
 

Haso54

XLDnaute Nouveau
Bonjour le fil, Haso54

Haso54 [Bienvenue sur le forum]
Pourquoi tu veux titiller Wordpad alors qu'Excel sait ouvrir un fichier texte tout seul comme un grand ? ;)
Il sait aussi créer un fichier texte.

Le but recherché est-il celui-ci?
Exporter chaque jour le contenu de la colonne A d'un fichier Excel vers un fichier texte?


Bonjour et merci pour ta réponse Staple1600,

Je suis obligé de passer par wordpad, de base c'est un fichier SRL qui s'ouvre avec Nexus terminal. Ce fichier SRL s'ouvre uniquement avec Wordpad. D'où la question de savoir si la vba pourrait contrôlé wordpad.

Oui le but est de prendre les données de la colonne A et l'extraire dans un fichier texte
 

Staple1600

XLDnaute Barbatruc
Re

Je me suis juste arrêté sur la première ligne du script qu'on peut lire leur site
Code:
OpenTextFile ("C:\temp\sample.cvs")
SetTextToken (";\t\r\n")

If FileExist ("C:\temp\outp.txt")
RemoveFile ("C:\temp\outp.txt")
EndIf

OpenOutputFile (0, "C:\temp\outp.txt")

AcceptEmptyItems (TRUE)

NumberItem (NC)
StringItem (NAME)

while ReadTextLine ()

if GetNextItem ()
if IsStringItemNotEmpty (TEXT_ITEM)
CopyStringItem (NAME, TEXT_ITEM)

GetNextItem ()
# Not needed/tested
GetNextItem ()
if IsStringItemNotEmpty (TEXT_ITEM)
WriteItemToFile (0, NAME)
AppendTabToFile (0)
WriteItemToFile (0, TEXT_ITEM)
AppendNewLineToFile (0)
IncNumberItem (NC)
endif
endif
endif
EndDo

CloseTextFile ()
CloseOutputFile (0)
PopUpMsg (NC)
On peut enregistré une feuille Excel en *.csv
 

Discussions similaires

Réponses
8
Affichages
410
Réponses
2
Affichages
586
  • Question
Microsoft 365 VBA
Réponses
3
Affichages
422

Membres actuellement en ligne

Statistiques des forums

Discussions
314 628
Messages
2 111 337
Membres
111 105
dernier inscrit
Joffrette