Reprise du message précédent :
OK pour le lien... ou alors peut être un bug corrigé seulement sur les versions récentes d'Office...
Il reste l'autre solution, de calculer le ratio à la main, et de le reporter sur hauteur et largeur à chaque fois...

hello, d'abord primo c'est pas "lui", mais "elle
 
secundo, merci à vous deux, ça marche nickel, now !
la ligne avec le LockAspectRatio je l'ai dégagée car j'avais une image déformée à tous les coups. Même en essayant de la mettre après détermination de la taille, bref, quoi que je fasse, ça déformait. ptet la faute à word 97, ça je ne peux pas le dire.
 
D'où l'intérêt du ratio. Et oui, j'avais effectivement zappé le "set" en moins.
 
Bref, c'est sympa d'avoir à faire à des gens aussi gentils, patients et compétents    
 
Je suis sûre que cette macro sera utile à d'autres.
 
Histoire d'être perfectioniste, on peut rajouter une boite de navigation et procéder par sélection d'une partie des photos du dossier ?    
j'vais essayer de m'y coller, qui sait, p'tet une illumination ?  

Bonjour,
pour aider l'illumination:
 
   Dim MonDial As FileDialog
    Set MonDial = Application.FileDialog( _
        FileDialogType:=msoFileDialogOpen)
    With MonDial
 
          ' ICI tu peux , à l'aide des propriétés   "filters" et  "InitialFileName" affiner le travail
 
        .AllowMultiSelect = True
        .Show
    End With
 
 
                ' Sur la boite de dialogue tu sélectionnes plusieurs fichiers et tu cliques sur OK
    With MonDial
           For Each FichierSelect In .SelectedItems
 
                ' ICI TU REMETS TA SEQUENCE DE COPIE
                 
                MsgBox "Fichier sélectionné: " & FichierSelect
 
            Next FichierSelect
     End With

 
Désolé, je n'avais pas regardé le profil....
Mes hommages madame.
Bonne journée, bises au fiston

finalement, hier, ellement claquée, que je me suis endormie sur le pc (et pas qu'au sens figuré) donc je vais essayer ça now.
 
MErci.

juste une question, je colle ça où ?

sous 97 j'ai filesearch ou dialog, pas filedialog
je prends koi ?    
 

Aie!!
c'est dialogs, mais je ne sais pas comment gèrer les sélections multiples. Il va falloir une véritable illumination.

ok,et si on faitautrement :
 
je demande le n°de la 1ère photo, le n° de la dernière, comme ça on a le fichier de départ à insérer et le nombre de boucles à faire ? c'est transcriptible,ça ?

Patiente un peu, quelqu'un a surement une solution pour word97. Sinon cela est envisageable, le tout est de savoir ce que tu appelles le N°..

bah pour faire simple, le nom de la photo, sous forme de numéro : 001, 002, 003....

Tes photos ont des noms du genre "Photo001.jpg" jusque "Photo237.jpg" ?

Tu pourrais nous indiquer de manière précise à quoi ressemble un de tes répertoires avec les noms de photo ?
(une tite copie d'écran ? non ?)

 
 
mais bon, j'ai un prog qui peut me renommer tout ça en deux temps trois mouvements

À ce moment là, eh bien c'est plutôt simple... mais bon, au final, je vois pas en quoi ma solution initiale avec saisie du nom du répertoire ne te convenait pas... ça reste plus simple que de renommer tes photos ou indiquer un numéro de début ou fin !
 
(ou alors, tu convaincs tes zoulous de client, que ça sera encore compatible avec un Word 2000 ou 2003 !... jvois d'ailleurs pas où est le souci...)
 
Bon, sinon, pour récup un truc que tu saisi
variable = Inputbox ("texte", "titre" )
 
(ou qq chose dans le genre quoi... l'aide à la volée sera plus précise que moi là)
ensuite, tu utilises ta variable, et tu peux faire une tite boucle sans souci (inspire toi de ce que l'on a déjà écrit)

Bon, en cherchant j'aitrouvé autre chose:
 
Sub OuvreFichier5()
  Dim QuelFichier() '
  QuelFichier = Excel.Application.GetOpenFilename(, , , , True)
  For Ctr = 1 To UBound(QuelFichier)
    MsgBox QuelFichier(Ctr)
  Next
End Sub
 
 
Il faut ajouter microsoft excel xx.x  dans les références
 
on peut faire une sélection multiple et cliquer sur ouvrir. A voir sous word97

voilà, j'ai fait ça, mais évidemment y'a des erreurs qui trainent (et certainement des absurdités) puisque çane marche pas :
 
Sub InsertionImages()
 
Dim Repertoire As String
Dim Extension As String
Dim Fichier As String
Dim ratio As String
Dim photoA As String
Dim photoZ As String
 
 
'Saisie du nom du répertoire
Repertoire = InputBox("Chemin complet du répertoire (\ à la fin)", "Répertoire", "B:\BIBLIO\ETUDE - PV\INSERTION_PHOTOS\" )
 
'Saisie du type d'extension
Extension = InputBox("Type de fichier (sans le point, ex : jpg, png, bmp)", "Type de fichier", "jpg" )
 
'Saisie de la première photo
photoA = InputBox("Numéro de la première photo", "photoA", "001" )
 
'Saisie de la dernière photo
photoZ = InputBox("Numéro de la dernière photo (200 photo max)", "photoZ", "200" )
 
'Récupération du premier fichier du répertoire
Fichier = Dir(Repertoire & photoA & Extension, vbDirectory)
Do While Fichier <> ""
i = i + 1
 
 
'Insertion de l'image
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Set objShape = Selection.InlineShapes.AddPicture(FileName:=Repertoire & Fichier)
    ratio = (objShape.Width / objShape.Height)
    With objShape
         If .Width > .Height Then
            .Width = 405.35
            .Height = 405.35 / ratio
        Else
            .Height = 405.35
            .Width = 405.35 * ratio
                           
        End If
               
    End With
 
'Insertion de lignes vides
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.TypeParagraph
Selection.TypeParagraph
 
 
'Récupération du prochain fichier du répertoire
photoA = (photoA + 1)
If photoA = photoZ Then End Sub
Else: Fichier = Dir
Loop
 
End sub
 
 
 

Bonsoir,
par curiosité as-tu essayé ma dernière proposition, telle qu'elle est??
 
Je n'ai pas vu à quoi servait ton i=i+1
 
il faudrait écrire pour que la compilation soit bonne:
 
photoA = Format(photoA + 1, "000" )
If photoA = photoZ Then Exit Sub  
Fichier = Dir  
Loop  
 
 
 
tu as renommé les fichiers 1.jpg   2.jpg etc??
 
le fichier=dir du bas devrait te renvoyer ""  si je ne m'abuse, si c'est le cas il faut recopier le dir(.....) du haut pour renouveler le paramètre d'appel.
 
En fait je crois que si tu utilises le principe : photoa et photoz, il te suffit de concaténer Repertoire & photoA & Extension dans le ADDPICTURE(...)

Oui... je rejoins papou...
 
Soit tu utilises la numérotation, et alors tu oublies les commandes "dir"... soit tu oublies la numérotation, et tu reprends ma solution du départ telle quelle (sauf pour le ratio qui ne marchait pas pour toi).