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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.