Creation automatique de fichiers snp

Signaler
Messages postés
90
Date d'inscription
vendredi 18 octobre 2002
Statut
Membre
Dernière intervention
27 décembre 2004
-
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
-
salut a tous !

je voudrais sauvegarder tous les reports(=etats) en des fichiers snapshots tous les jours et automatiquement (code vba).

mon probleme est que j'ai des etats qui demandent a l'utilisateur des parametres a saisir.
La question suivante est :
comment automatiser cette tache c'est a dire, quelle est le code qui permet de simuler les saisies des parametres par l'utilisateur?

DoCmd.OutputTo acReport, NamesReport(i), "SnapshotFormat(*.snp)", Path & NamesReport(i) & ".snp", False, ""

3 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Bonjour,

Avec SendKeys, on simule presque tout !!!

Envoie une ou plusieurs séquences de frappes à la fenêtre active (comme si elles avaient été tapées au clavier).

object.SendKeys(string)
Arguments
object
Objet WshShell.
string
Valeur de chaîne indiquant la ou les séquences de frappes que vous voulez envoyer.
Notes
Utilisez la méthode SendKeys pour envoyer des séquences de frappes aux applications qui ne disposent pas d'une interface automatique. La plupart des caractères du clavier sont représentés par une seule séquence de frappe. Certains de ces caractères sont constitués d'une combinaison de frappes (CTRL+MAJ+ORIGINE, par exemple). Pour envoyer un seul caractère de clavier, envoyez le caractère lui-même comme argument chaîne. Par exemple, pour envoyer la lettre x, envoyez l'argument chaîne "x".

Remarque Pour envoyer un espace, envoyez la chaîne " ".
Vous pouvez utiliser SendKeys pour envoyer plusieurs frappes en même temps. Pour cela, créez un argument de chaîne composé qui représente une séquence de frappes, en ajoutant chaque frappe de la séquence à celle qui la précède. Par exemple, pour envoyer les frappes a, b et c, envoyez l'argument chaîne "abc". La méthode SendKeys se sert de certains caractères comme modificateurs de caractères (au lieu d'utiliser leurs valeurs-police). Ce jeu de caractères spéciaux comprend des parenthèses, des crochets, des accolades et le :

signe plus "+"
signe caret "^"
signe pourcentage "%"
signe tilde "~"
Envoyez ces caractères en les mettant entre accolades "{}". Par exemple, pour envoyer le signe plus, envoyez l'argument chaîne "{+}". Les crochets "[ ]" n'ont pas de signification particulière lorsqu'ils sont utilisés avec SendKeys, mais vous devez les mettre entre accolades pour les applications qui leur donnent un sens particulier (pour DDE, par exemple).

Pour envoyer des crochets, envoyez l'argument chaîne "{[}" pour le crochet gauche et l'argument "{]}" pour le droit.
Pour envoyer des accolades, envoyez l'argument "{{}" pour l'accolade gauche et "{}}" pour la droite.
Certaines séquences de frappe ne génèrent pas de caractères (comme ENTRÉE et TAB). Certaines séquences de frappes représentent des actions (comme RET. ARR. et PAUSE). Pour envoyer des séquences de frappes de ce genre, envoyez les arguments indiqués dans le tableau suivant :

Touche Argument
RET. ARR. {BACKSPACE}, {BS}, or {BKSP}
PAUSE {BREAK}
VERROUILLAGE MAJUSCULE {CAPSLOCK}
SUPPR {DELETE} or {DEL}
FLÈCHE VERS LE BAS {DOWN}
FIN {END}
ENTRÉE {ENTER} or ~
ÉCHAP {ESC}
AIDE {HELP}
ORIGINE {HOME}
INSÈR {INSERT} ou {INS}
FLÈCHE GAUCHE {LEFT}
VERR NUM {NUMLOCK}
PAGE BAS {PGDN}
PAGE HAUT {PGUP}
IMPR ÉCRAN {PRTSC}
FLÈCHE DROITE {RIGHT}
ARRÊT DÉFIL {SCROLLLOCK}
TAB {TAB}
FLÈCHE HAUT {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}

Pour envoyer des caractères du clavier comprenant une séquence de frappes classique combinée avec MAJ, CTRL ou ALT, créez un argument de chaîne composé représentant la combinaison de frappes. Pour cela, faites précéder la séquence classique par un ou plusieurs des caractères spéciaux suivants :

Touche Caractère spécial
MAJ +
CTRL ^
ALT %

Remarque : Lorsqu'ils sont utilisés de cette façon, ces caractères spéciaux ne sont pas compris entre accolades.
Pour spécifier qu'une combinaison de MAJ, CTRL et ALT doit être enfoncée pendant que l'on appuie sur d'autres touches, créez un argument chaîne composé avec les frappes modifiées entre parenthèses. Par exemple, pour envoyer la combinaison de frappes indiquant que la touche MAJ est enfoncée tout en appuyant sur :

e et c, envoyez l'argument chaîne "+(ec)".
e, suivi d'un seul c (sans MAJ), envoyez l'argument chaîne "+ec".
Vous pouvez utiliser la méthode SendKeys pour envoyer un schéma de frappes comprenant une seule frappe répétée plusieurs fois sur une ligne. Pour cela, créez un argument chaîne composé qui spécifie la frappe àrépéter, suivi du nombre de fois que vous voulez la répéter. Pour cela, utilisez un argument chaîne composé de la forme {frappe nombre}. Par exemple, pour envoyer la lettre "x" dix fois, envoyez l'argument chaîne "{x 10}". Assurez-vous d'inclure un espace entre la frappe et le nombre.

Remarque : Le seul modèle de frappe qu'il est possible d'envoyer est le type comprenant une frappe unique répétée plusieurs fois. Par exemple, vous pouvez envoyer "x" dix fois, mais vous ne pouvez pas en faire autant pour "Ctrl+x".
Remarque : Vous ne pouvez pas envoyer la clé IMPR ÉCRAN {PRTSC} vers une application.
Exemple
L'exemple suivant montre l'utilisation d'un fichier .wsf unique pour deux tâches dans plusieurs langages de script (VBScript et JScript). Chaque tâche exécute la calculatrice de Windows et envoie une séquence de frappes pour exécuter un calcul simple.

<job id="vbs">
<script language="VBScript">
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculatrice"
WScript.Sleep 100
WshShell.SendKeys "1{+}"
WScript.Sleep 500
WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.SendKeys "*3"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 2500
</script>
</job>

<job id="js">
<script language="JScript">
var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("calc");
WScript.Sleep(100);
WshShell.AppActivate("Calculatrice");
WScript.Sleep(100);
WshShell.SendKeys ("1{+}");
WScript.Sleep(500);
WshShell.SendKeys("2");
WScript.Sleep(500);
WshShell.SendKeys("~");
WScript.Sleep(500);
WshShell.SendKeys("*3");
WScript.Sleep(500);
WshShell.SendKeys("~");
WScript.Sleep(2500);
</script>
</job>

Voir aussi
WshShell, objet | Run, objet
0
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Re-bonjour,

Exemple où j'effectue automatiquement l'impression de x fichiers en utiliisant SENDKEYS.

Dim Fso, path, fichier, fichiers, WshShell
path = "E:\Affaires\EUROFACTOR - AP02N008\4.3 Formulaires\Formulaires spécifiques"

Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(path)
Set fichiers = Dossier.Files

For Each fichier in fichiers
'MsgBox "shortPath=" & fichier.ShortPath & vbCrLf & "Path=" & fichier.Path
'MsgBox "shortName=" & fichier.ShortName & vbCrLf & "Name=" & fichier.Name
If Left(fichier.name,19) = "Main courante Ifdex" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
[...]
0
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
Perso, je te conseil d'eviter les sendkey (sauf si tu est absolument sur que la fenetre active ne changera pas pendant le deroulement de ton prog.

Personnellement, je prefere modifier la requete de mon etat ( et dc y forcer les valeurs desirée) avant de l'imprimer (ou sauvegarder en snp)
0