Discussion :

[cpf2006]

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.

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

Merci de votre aide

CPF

[cpf2006]

J'ajoute un détail important :
les documents se trouvent sur un lecteur réseau monté (net use) sur un serveur AIX.
Sur ce serveur, le samba a été migré vers une version ultérieure.
Je me demande si le problème ne vient pas de là ...
Peut-être aussi qu'il faut adapter des paramètres sur le serveur (Samba) au niveau du cache qui entraîne des délais ...

[cpf2006]

Le problème se produit avec Samba 2 comme serveur réseau sur Aix, pas avec le Samba 1
Une équipe cherche une solution
Je ferme ce post