TACHE DE FOND

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

Merci a tous

1 réponse

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
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