Discussion :

[Krovax]

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.

[PMO2017]

Bonjour,

Essayez avec votre code modifiez ci-dessous

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
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