IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)



Comment obtenir le temps d'exécution d'une partie de mon code ?
Ajoutez cette déclaration au début de votre module :
Private Declare Function GetTickCount Lib "kernel32" () As Long
GetTickCount renvoie le nombre de millisecondes qui s'est écoulé depuis le démarrage du système. Appelez-la au début de votre code, puis à la fin, et la différence entre les deux résultats vous donnera le nombre de millisecondes qui s'est écoulé entre les deux appels.
Dim Debut As Long, Fin As Long
Debut = GetTickCount()

'ici le code à chronométrer

Fin = GetTickCount()
MsgBox "Temps mis en millisecondes : " & Fin - Debut

Comment ouvrir Word ou un fichier Word avec OLE ?
Vous devez ajouter la référence Microsoft Word x.0 Object Library à votre projet. Ce premier exemple ouvre un fichier Word, affiche son texte avec MsgBox, et ferme le fichier.
Dim DocWord As Word.Document
Set DocWord = GetObject("c:\mes documents\Article.doc")
DocWord.Activate
MsgBox DocWord.Range.Text
DocWord.Close False
Set DocWord = Nothing
Ce deuxième exemple ouvre Word, crée un nouveau document, et rend la fenêtre de l?application visible.
Dim AppliWord As Word.Application
Set AppliWord = New Word.Application
AppliWord.Documents.Add
AppliWord.Visible = True
Set AppliWord = Nothing


Ce document issu de http://www.developpez.com est soumis à la licence GNU FDL traduit en français ici.
Permission vous est donnée de distribuer, modifier des copies de cette page tant que cette note apparaît clairement.