Macro Word : Nom de fichier en variable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro Word : Nom de fichier en variable

lool38

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

Publicité

Bendes

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.

lool38

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

:hello:

Bendes

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.

FORUM HardWare.fr

Windows & Software

Logiciels

Macro Word : Nom de fichier en variable

Sujets relatifs
fichier .BIN ! expliquez moi un peu svp [no warez]	[Divers] verrouiller un fichier word
Pourquoi j'ai une vidéo qui est jouée comme un fichier son sous WMP?	WWWAAAAHHHHHH !!! plein de fichier .kelkechose.rar!! c koi ?
fichier .sit	[W2K] J'arrive plus à déplacer aucun fichier...
comment cacher un fichier sous XP (question simple)	Comment generer un fichier d'emails a partir d'un .wab ??
commande ms dos qui permet de designer le fichier le plus rescent
Plus de sujets relatifs à : Macro Word : Nom de fichier en variable

Page générée en 0.022 secondes