Connaitre le nombre de page d'un document word

Bonjour,
Une petite question venant d'un autre stagiaire et la je sèche.
On a besoin de connaitre le nombre de page de chacun des fichiers word d'un dossier. Boucler sur le contenu du répertoire pas de problème. Le problème est de récupérer le nombre de page. Voici le code utilisé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'Necessite d'activer la reference Microsoft Shell Controls and Automation ' Dim objShell As Object, strFileName As Object Dim objFolder As Folder Dim Resultat As String Dim i As Byte   Set objShell = CreateObject("Shell.Application") 'repertoire cible Set objFolder = objShell.nameSpace("C:\Test")   'boucle sur tous les elements du repertoire For Each strFileName In objFolder.Items 'pour que les sous dossiers ne soient pas pris en comptes If strFileName.isFolder = False Then Resultat = objFolder.getDetailsOf(strFileName, 13) MsgBox Resultat End If Next End Sub

---

Le problème étant que par cette méthode on obtient toujours 1 page (manuellement on a le même résultat) quelque soit le nombre de page du fichier...

Si quelqu'un as une solution

Bon visiblement c'est le VBA word qui est utilisé du coup je repose ma question sur le bon forum.

Bonjour,

Essayez avec votre code modifiez ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

'Necessite d'activer la reference Microsoft Shell Controls and Automation ''''''Library Word ''''''C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB ''''''Microsoft Word 11.0 Object Library   Sub xx() Dim objShell As Object, strFileName As Object Dim objFolder As Object 'Folder Dim Resultat As String Dim i As Byte   '/////////////////////// Dim AppWord As Word.Application Dim myDoc As Word.Document Dim nbPages& '///////////////////////   Set objShell = CreateObject("Shell.Application") 'repertoire cible Set objFolder = objShell.Namespace("C:\Test") 'boucle sur tous les elements du repertoire For Each strFileName In objFolder.Items 'pour que les sous dossiers ne soient pas pris en comptes If strFileName.isFolder = False Then   '/////////////////////// If LCase(Right(strFileName, 4)) = ".doc" Then If AppWord Is Nothing Then Set AppWord = CreateObject("Word.Application") Set myDoc = AppWord.Documents.Open("C:\Test" & "\" & strFileName & "") nbPages& = myDoc.Windows(1).Panes(1).Pages.Count   MsgBox "Nombre de pages contenues dans ''" & strFileName & "'' : " & nbPages&   myDoc.Close wdDoNotSaveChanges Set myDoc = Nothing End If End If Next strFileName If Not AppWord Is Nothing Then AppWord.Quit Set AppWord = Nothing End If '///////////////////////   End Sub

---

Cordialement.

PMO
Patrick Morange