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
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
1 réponse
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
30 oct. 2002 à 08:05
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
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
