Obliger d'attendre 15s pour qu'Excel se reveille !
Throna
Messages postés11Date d'inscriptionmercredi 28 février 2007StatutMembreDernière intervention 6 avril 2007
-
2 avril 2007 à 09:42
Throna
Messages postés11Date d'inscriptionmercredi 28 février 2007StatutMembreDernière intervention 6 avril 2007
-
6 avril 2007 à 10:28
Bonjour tlm,
Voilà je suis sur un projet qui consiste (en gros) a générer un script python et a stocker des résultats dans Excel. Le problème est que quand je créé le fichier Excel avec VB, il souvre en Read-Only e apres un Close dans mon code je dois attendre environ 15 secondes pour que Excel me mettre un message "Read-Write" or "Cancel" et je dois attendre de cliker sur Read-Wrie pour faire un SaveAs dans le code . Pour le moment je met un vieux Sleep de 15 secondes.
Si quelqu'un sait comment palier à ce problème se serait parfait !
Merci d'avance.
A voir également:
Obliger d'attendre 15s pour qu'Excel se reveille !
cd2.FileName = "Results_" & MyValue & ".xls"
cd2.Filter = "Excel Files (*.xls)|*.xls"
cd2.ShowSave
Open cd2.FileName For Output As #3
' separate path from Path+filename
For i = Len(cd2.FileName) To 1 Step -1
If Mid(cd2.FileName, i, 1) = "" Then ' look for rightmost \
xlsheet = Mid(cd2.FileName, i + 1)
xlsheet = Left(xlsheet, Len(xlsheet) - 4)
Exit For
End If
Next i
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 2 avril 2007 à 17:58
Tu ouvres tes fichiers cd1.filename et cd2.filename pour quoi faire (qu'on ve voist pas dans ton code) et, surtout : sur quel lecteur se trouvent-ils, surtout cd2.filename ?
Cd2.filename est apparemment un fichier xls que tu veux créer par écriture par output ?
on ne voit pas non plus la fermeture de cd2.filename , que tu cherches toutefois à réouvrir par un MyXl.Workbooks.Open (cd2.FileName) alors qu'il est encore sous le joug d''un Open...
Tout celà est bien étrange !