TACHE DE FOND

domss05 Messages postés 5 Date d'inscription lundi 21 octobre 2002 Statut Membre Dernière intervention 29 octobre 2002 - 29 oct. 2002 à 20:41
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 30 oct. 2002 à 08:05
Comment, au chargement de MonProg.exe fais avec Visual Basic, je peux lancer Excel en tache de fond???

Merci a tous

1 réponse

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
30 oct. 2002 à 08:05
Bonjour,

Exemple où j'ouvre des fichiers .xls pour les imprimer automatiquement:

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,6) = "SLIFAC" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(500)
If Left(fichier.name,22) = "SLIFAC 32 - 61 Espagne" Then
WshShell.SendKeys "^p"
WScript.Sleep(500)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(2000)
WshShell.SendKeys "%(fq)" 'fermeture du document
ElseIf Left(fichier.name,23) = "SLIFAC 32 - 63 Belgique" Then
....
End If
End If

Si ça peut répondre à ta question.
A +. jean-marc
0
Rejoignez-nous