Bonjour,
J'ai un exécutable créé avec VB6.
Je veux ouvrir un document existant ou l'imprimer mais en windows 10, dans les 2 cas cela prend trop de temps environ 10 à 12 secondes au total
tandis que sous windows 7 cela prend la moitié du temps en moins.
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 'pour ouvrir Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = CreateObject("Word.Application") ''' ici perte de temps 6 à 10 sec Set WordDoc = WordApp.Documents.Open("monDocument.doc",Visible = True) 'pour imprimer Set objWord = CreateObject("Word.Application") ''' c'est entre ces deux ligne que le plus long temps est perdu - environ 6 à 10 secondes Set DocWord = objWord.Documents.Open(fichier) DocWord.PrintOut 'Background:=True
CPF
Partager