Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Propriétés Nbre de mots et Nbre de paragraphes

Propriétés Nbre de mots et Nbre de paragraphes

2 réponses
Avatar
bruno
Bonjour,

J'ai "bricolé" une macro qui me permet de récupérer les noms des fichiers
d'un répertoire avec leurs propriétés FileSystemObject :

Set F = fichier.GetFile(Item)
With F
ArrFSO = Array(.ParentFolder & "\", .Name, .DateCreated, _
.DateLastModified, .DateLastAccessed, .Size, .Type)
End With

Je souhaiterais pouvoir récupérer aussi les propriétés visibles par
l'explorateur windows quand on audite un fichier Word ou Power point :
nombre de mots, nombre de paragraphes, nombre de pages (spécifiquement
Word), nombre de diaposotives (spécifiquement Power point).

Pouuriez-vous m'aider ?

Par avance merci.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Extraits du site de Chip Pearson.
Ajouter si besoin la référence DSO OLE Document properties Reader 2.0
(Outils / Référence) dans la fenêtre VBE
Télécharger la dll DSOFILE.DLL sur le site :
http://www.microsoft.com/downloads/details.aspx?FamilyID›a6fac6-520b-4a0a-878a-53ec8300c4c2&DisplayLang=en
puis entre :
regsvr32 [filepath]dsofile.dll dans la boîte de dialogue Exécuter du menu
Démarrer. et appuie sur entrée.

Modifie la macro suivante selon les propriétés que tu désires :

Sub test()
Dim FileName As String
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
FileName = "e:donneesdanielmpfe70104.xls"
DSO.Open sfilename:=FileName
MsgBox DSO.SummaryProperties.ApplicationName
MsgBox DSO.SummaryProperties.Author
' lots of other properties
DSO.Close
End Sub

Cordialement.
Daniel
"bruno" a écrit dans le message de news:

Bonjour,

J'ai "bricolé" une macro qui me permet de récupérer les noms des fichiers
d'un répertoire avec leurs propriétés FileSystemObject :

Set F = fichier.GetFile(Item)
With F
ArrFSO = Array(.ParentFolder & "", .Name, .DateCreated, _
.DateLastModified, .DateLastAccessed, .Size, .Type)
End With

Je souhaiterais pouvoir récupérer aussi les propriétés visibles par
l'explorateur windows quand on audite un fichier Word ou Power point :
nombre de mots, nombre de paragraphes, nombre de pages (spécifiquement
Word), nombre de diaposotives (spécifiquement Power point).

Pouuriez-vous m'aider ?

Par avance merci.





Avatar
bruno
Bonsoir daniel,
Je te remercie. Je pense que je vais maintenant pouvoir m'en sortir.

Coridialement, Bruno.

"Daniel" < a écrit
| Bonjour.
| Extraits du site de Chip Pearson.
| Ajouter si besoin la référence DSO OLE Document properties Reader 2.0
| (Outils / Référence) dans la fenêtre VBE
| Télécharger la dll DSOFILE.DLL sur le site :
|
http://www.microsoft.com/downloads/details.aspx?FamilyID›a6fac6-520b-4a0a-878a-53ec8300c4c2&DisplayLang=en
| puis entre :
| regsvr32 [filepath]dsofile.dll dans la boîte de dialogue Exécuter du menu
| Démarrer. et appuie sur entrée.
|
| Modifie la macro suivante selon les propriétés que tu désires :
|
| Sub test()
| Dim FileName As String
| Dim DSO As DSOFile.OleDocumentProperties
| Set DSO = New DSOFile.OleDocumentProperties
| FileName = "e:donneesdanielmpfe70104.xls"
| DSO.Open sfilename:=FileName
| MsgBox DSO.SummaryProperties.ApplicationName
| MsgBox DSO.SummaryProperties.Author
| ' lots of other properties
| DSO.Close
| End Sub
|
| Cordialement.
| Daniel