Macro Word : Nom de fichier en variable

Marsh Posté le 06-10-2002 à 19:43:31

Salut tout le monde.

Je cherche à faire une macro très simple sous Word : J'ai une centaine d'image et je souhaite les insérer chacune dans une page d'un document Word.

J'ai enregistré une Macro qui donne ceci :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 06/10/02 par Laurent
'
Selection.InlineShapes.AddPicture FileName:= _
"D:\Photos\tablatures\File0001.jpg", LinkToFile:=False, SaveWithDocument _
:=True
ActiveWindow.ActivePane.SmallScroll Down:=42
ActiveWindow.ActivePane.SmallScroll Down:=-45
ActiveWindow.ActivePane.SmallScroll Down:=28
Selection.InsertBreak Type:=wdPageBreak
End Sub

J'aimerai donc que le "D:\Photos\tablatures\File0001.jpg" ou juste le "File0001.jpg" soit remplacé par une variable (mes images se nomment File0001.jpg File0002.jpg etc... et faire tourner une boucle qui fasse ça.
Or je suis une vrai quiche en VB alors je vous demande un p'tit coup de main

Merci de votre aide :jap:

Message édité par lool38 le 06-10-2002 à 19:43:45

Marsh Posté le 06-10-2002 à 19:43:31

Marsh Posté le 06-10-2002 à 19:55:35

Remplace la macro par ce code-ci:

Sub InsertImages()
Dim i As Integer

With Selection
For i = 1 To 10
s = Format(CStr(i), "000#" )
.InlineShapes.AddPicture "D:\Photos\tablatures\File" & s & ".jpg", False, True
.InsertBreak wdPageBreak
Next i
End With
End Sub

---------------
Plus un ordinateur possède de RAM, plus vite il peut générer un message d'erreur.

Marsh Posté le 06-10-2002 à 20:04:54

:jap: Un très très grand merci : Ca fonctionne à merveille! :jap:

:hello:

Marsh Posté le 06-10-2002 à 20:29:53

De rien...

Si y a un truc que tu ne comprends pas, demande...

---------------
Plus un ordinateur possède de RAM, plus vite il peut générer un message d'erreur.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *