Impression sous VBA et VBS avec Excel
SAYSAY03
Messages postés
7
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
13 janvier 2004
-
12 mars 2003 à 21:48
SAYSAY03 Messages postés 7 Date d'inscription mercredi 12 mars 2003 Statut Membre Dernière intervention 13 janvier 2004 - 14 mars 2003 à 13:34
SAYSAY03 Messages postés 7 Date d'inscription mercredi 12 mars 2003 Statut Membre Dernière intervention 13 janvier 2004 - 14 mars 2003 à 13:34
2 réponses
SAYSAY03
Messages postés
7
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
13 janvier 2004
12 mars 2003 à 22:02
12 mars 2003 à 22:02
-------------------------------
Réponse au message :
-------------------------------
> J'ai un script automatique qui ouvre excel, cherche des données et imprime avant de quitter
> Le probleme c'est que je dois laisser la main au utilisateur pour la selection de leurs imprimantes
>
> Ma commande sendkeys "%f" puis sendkeys "r" ou sendkeys "^P" sapplique dans la fenetre de l'aplli VisualBasic et non dans Excel
>
> voici la fonction
>
> Public sub Impression()
> Dim nvlleHeure , nvlleMinute, nvlleSeconde, waitTime
> 'tempo de 2 seconde
> nvlleHeur = hour(Now())
> nvlleMinute = Minute(Now())
> nvlleSeconde =Second(Now())
> waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
> Apllication.waitTime
>
> Application.sendKeys ("^P")
>
> ' pour le cancel ou annuler c'est bon
>
> end sub
>
Réponse au message :
-------------------------------
> J'ai un script automatique qui ouvre excel, cherche des données et imprime avant de quitter
> Le probleme c'est que je dois laisser la main au utilisateur pour la selection de leurs imprimantes
>
> Ma commande sendkeys "%f" puis sendkeys "r" ou sendkeys "^P" sapplique dans la fenetre de l'aplli VisualBasic et non dans Excel
>
> voici la fonction
>
> Public sub Impression()
> Dim nvlleHeure , nvlleMinute, nvlleSeconde, waitTime
> 'tempo de 2 seconde
> nvlleHeur = hour(Now())
> nvlleMinute = Minute(Now())
> nvlleSeconde =Second(Now())
> waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
> Apllication.waitTime
>
> Application.sendKeys ("^P")
>
> ' pour le cancel ou annuler c'est bon
>
> end sub
>
SAYSAY03
Messages postés
7
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
13 janvier 2004
14 mars 2003 à 13:34
14 mars 2003 à 13:34
-------------------------------
Réponse au message :
-------------------------------
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > J'ai un script automatique qui ouvre excel, cherche des données et imprime avant de quitter
> > Le probleme c'est que je dois laisser la main au utilisateur pour la selection de leurs imprimantes
> >
> > Ma commande sendkeys "%f" puis sendkeys "r" ou sendkeys "^P" sapplique dans la fenetre de l'aplli VisualBasic et non dans Excel
> >
> > voici la fonction
> >
> > Public sub Impression()
> > Dim nvlleHeure , nvlleMinute, nvlleSeconde, waitTime
> > 'tempo de 2 seconde
> > nvlleHeur = hour(Now())
> > nvlleMinute = Minute(Now())
> > nvlleSeconde =Second(Now())
> > waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
> > Apllication.waitTime
> >
> > Application.sendKeys ("^P")
> >
> > ' pour le cancel ou annuler c'est bon
> >
> > end sub
> >
>
Réponse au message :
-------------------------------
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > J'ai un script automatique qui ouvre excel, cherche des données et imprime avant de quitter
> > Le probleme c'est que je dois laisser la main au utilisateur pour la selection de leurs imprimantes
> >
> > Ma commande sendkeys "%f" puis sendkeys "r" ou sendkeys "^P" sapplique dans la fenetre de l'aplli VisualBasic et non dans Excel
> >
> > voici la fonction
> >
> > Public sub Impression()
> > Dim nvlleHeure , nvlleMinute, nvlleSeconde, waitTime
> > 'tempo de 2 seconde
> > nvlleHeur = hour(Now())
> > nvlleMinute = Minute(Now())
> > nvlleSeconde =Second(Now())
> > waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
> > Apllication.waitTime
> >
> > Application.sendKeys ("^P")
> >
> > ' pour le cancel ou annuler c'est bon
> >
> > end sub
> >
>
