Discussion :

[Heureux-oli]

Pour les sous répertoire il faut travailler différemment.

Il faut une fonction pour parcourir les répertoires et dans le cas d'un sous-répertoire, il faut utiliser la fonction en récursive.

Une piste ICI c'est utilisé sur Access, mai ça fonctionne sur VBA, donc aussi sur Word

[Sepia]

Salut,

maintenant que tu as intégré le code de Heureux-Oli pour le parcours des fichiers (même s'il te reste à traiter les sous-répertoires), j'insiste : il existe dans Word en VBA un mécanisme d'appel aux fonctions et aux DlgBox standards, donc si avec l'interface de Word c'est ok, il suffit de rappeler cette boîte et de lui envoyer ("SendKey ...") les commandes directement et c'est Word qui fait le boulot. Bien sûr ce mécanisme ne fonctionne que si Word correspond à ton besoin mais ça semblait être le cas (vu le début du forum).

Sinon tu peux toujours appeler un programme externe auquel tu transmets un flux d'entrée (comme le contenu d'un fichier par exemple).

[Fredheg]

Bonjour

Tu as raison d'insister sepia.
Le probleme est de savoir comment appeler la dialogbox désiré.
Pour l'instant je galere car meme avec l'enregistreur de macros je n'arrive pas a trouver...

[Heureux-oli]

La boîte de dialogue est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(wdDialogFormatPicture).Show

Il faut qu'au moins un image soit sélectionnée.

[ouskel'n'or]

Pour lister les sous répertoires et les fichiers qu'ils contiennent, tu peux regarder ici http://www.developpez.net/forums/sho...d.php?t=325914
Tu as également le code pour zipper les fichiers sur l'un des forums d'office. J'ai vu passer ça il n'y a pas 15 jours.
Bonne chance
(si je trouve, je te passe l'adresse)

Edit
En fait, c'est dans la FAQ VB à Comment compresser et décompresser des fichiers ? à cette adresse http://vb.developpez.com/faq/?page=Fichiers#zip
Si ça peut t'être utile...

Edit (re)
Autant pour moi, à propos de la compression d'image, je n'avais pas lu la discussion depuis le début. Le zip n'est bien sûr pas la solution.
Désolé.

[Fredheg]

Bonjour a tous

Merci de repondre.
je vais jetter un oeil sur le lien pour lister les sous répertoires et les fichiers qu'ils contiennent merci ouskel'n'or.

Heureux-oli merci pour la dialog-box. On avance.
Comme tu le dit il faut une image de selectionné. Or cela fait aussi partie du topic...
En effet j'ai plusieur image dans mon fichiers. L'enregistreu de macros ne prend pas la selection d'image, je ne sais pas comment en macros selectionné une image et la travailler.

Mais bon a force de persever on avance, doucement mais surement.
J'aurais peut etre mieux fait de diviser mon topic en deux topic :
1er lister et ouvrir les sous répertoires et les fichiers qu'ils contiennent
2em selectionné les images d'un doc puis les compresser.

La 1er partie est presque resolue, et on avance sur la 2em.

@+

[Sepia]

Salut,

Word (notre ami à tous ) a 2 listes d'objets distinctes pour les images : 1 pour celles incluses dans le texte et pour les images "posées" sur le texte. La 1ere est accessible via "ActiveDocument.InlineShapes", la 2nde via "ActiveDocument.Shapes".

Et donc ça dépend de la manière dont tu as inséré tes images dans Word

[Heureux-oli]

Pour les Shapes et InLineshapes, il suffit d'un test pour sélectionner l'une ou l'autre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If ActiveDocument.InlineShapes.count <> 0 Then MsgBox "Image InlineShapes"

[ouskel'n'or]

Pour sélectionner chaque image, tu as ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    For Each Limage In ActiveDocument.InlineShapes
        Limage.Select
        Limage.Height = Limage.Height / 2
        Limage.Width = Limage.Width / 2
    Next

Ne réduit pas la place prise par les images dans le document (en termes d'octets)

Edit
Et si ce sont des Shapes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For Each Limage In ActiveDocument.Shapes
        Limage.Select
    Next

[Fredheg]

Bonjour

Alors apparement les images sont dans des "zone de texte" (désolé je viens seulement de le remarquer), donc les InlineShapes ne marchent pas.
Par contre les Shapes me selectionne la "zone de texte", mais le Application.Dialogs(wdDialogFormatPicture).Show ne fonctionne que sur une image et ouvre que la boite de dialogue "graphique" et non la boite de dialogue "format de l'images".
Dans la boite dialogue il n'y a pas d'onglet donc je suis aussi coincé.

je continue a chercher, mais si vous avez de l'aide a m'apporter ca serait cool.
Merci
@+

[ouskel'n'or]

Je n'ai trouvé nulle part la solution à ton problème.
La solution donnée par Word consistant à utiliser "Format -> Contrôle -> Compresser" ne semble fonctionner que manuellement et sur un contrôle Image, mais pas sur une image insérée directement.
Quant à une image collée dans une zone de texte (?) j'ai bien peur qu'elle soit peu considérée par Word.
Un "move Right" avec "Extendmode" permet de la sélectionner mais pas de la différencier d'un simple caractère... enfin, je n'ai pas réussi...)
Je passe la main à ceux qui ont quelque chose
Bonne chance.

[Heureux-oli]

J'en suis au même stade, les images dans les zones de texte, c'est pas le top.

[Sepia]

Salut,

En effet, il n'y a pas de bonne solution pour les manipuler donc il faut encore ruser. Tu les transformes tout simplement chaque Shape en InlineShape et là, tu la manipules. Comme manifestement, tu as le droit de modifier le fichier, pas de problème, de toute façon comme le dit Heureux-Oli

les images dans les zones de texte, c'est pas le top.

==> tu gardes ainsi des images propres et manipulables par des objets VBA dans ton fichier modifié mais si tu ne veux pas ou que tu ne peux pas le faire, tu n'as qu'à retransformer chaque InlineShape en Shape mais tu ne le fais uniquement pour des raisons fonctionnelles et pas pour des raisons techniques (puisqu'on te dit, tous les 3, que les Shapes ce n'est pas une bonne solution ).

[Heureux-oli]

C'est pas une bonne solution par le code, les images InlineShapes transformées en Shape ont tendance à aller se figer n'importe où et parfois l'une sur l'autre.

[Troll]J'attend des petits[/Troll]

Ce qui va nécessiter une manipulation hors vba du fichier.

[Sepia]

Pour faire passer des InlineShapes en Shape, sans "trop" de problème, il faut renseigner tous les champs de VBA pour Shape (le mieux pour ça est d'enregistrer directement la manip de transformation en mode "enregistrement de macro", ce qui va te sortir un paquet d'instructions que je te déconseille d'optimiser sous peine que... ça ne marche pas (comme le dit Heureux-Oli), en particulier les trucs comme l'ancrage (Selection.ShapeRange.LockAnchor) et le format de recouvremen (Selection.ShapeRange.WrapFormat.AllowOverlap et Selection.ShapeRange.WrapFormat.Side)
==> transforme simplement ta macro en procédure VBA que tu appelles que par une boucle ou une autre procédure.

[Fredheg]

Bonsoir la Cie

merci pour vos conseils.
Oula ! je vais essayer demain si j'arrive a transformé les InlineShapes en Shapes (avec l'enregistreur de macro), et voir ce que ca donne.
allez je me souhaite bon courage....

@+

[Fredheg]

Bonsoir a tous

Suis encore en train de chercher, je vous tient au jus.
Si quelqu'un par hasard a une solution je suis preneur.
Merci
@+

[Fredheg]

Bonjour

Effectivement sous Word (pas en VBA) on peut compresser les images.
clique droit sur l'image, format de l'image puis dans un onglet tu a la fonction compresseé.

[Heureux-oli]

Bonjour

Effectivement sous Word (pas en VBA) on peut compresser les images.
clique droit sur l'image, format de l'image puis dans un onglet tu a la fonction compresseé.

Tu epux même en une opération le faire pour toutes les imges.

En VBA, je ne trouve pas !

[ouskel'n'or]

C'est également mon avis

Je n'ai trouvé nulle part la solution à ton problème.
La solution donnée par Word consistant à utiliser "Format -> Contrôle -> Compresser" ne semble fonctionner que manuellement et sur un contrôle Image, mais pas sur une image insérée directement.