Word Insérer plusieurs images en même temps.

[José Alain]

Bonjour à tous,
Encore un grand remerciement pour tous les membres qui font tout pour aider les autres.

Je besoins d'un service,
Je possède des sous-dossier dans laquelle chacun contient des centaines des images en ".png". Et moi je voudrais les insérer d'un seul coud; chacun dans une nouvelle page afin de pouvoir lancer une impression automatique et rapide. J'ai déjà fait des recherche et je suis tomber sur ce code que je ne savait le faire marcher.


Sub InsertAllPNGImages()
Dim objFolder As Object
Dim objFile As Object
Dim strFolderPath As String
Dim strFilePath As String
' Get the folder path.
strFolderPath = "D:\JOB\SBV\ASA_BDD\POLYGONE PARCELLE VANILLE EN IMAGE PNG\1_ABK\"
' Create a new folder object.
Set objFolder = CreateObject("Scripting.FileSystemObject")
' Get all the files in the folder.
Set objFiles = objFolder.GetFiles
' Loop through the files.
For Each objFile In objFiles
' Check if the file is a PNG file.
If objFile.Name Like "*.png" Then
' Get the file path.
strFilePath = objFile.Path
' Insert the image into the document.
InlineShapes.AddPicture FileName:=strFilePath, LinkToFile:=False, SaveWithDocument:=True
End If
Next
' Clean up.
Set objFolder = Nothing
Set objFile = Nothing
End Sub

 

[patricktoulon]

re
bonjour
quelle taille font elles a peu près tes .png?
tu veux les imprimer une par une dans chaque page ou toute sur la même page?
faudrait être un peu plus precis dans les demandes
sans fichier on travaille en aveugle et c'est suffisamment compliqué comme ça
alors si on peut se facilité la tâche c'est mieux

 

[José Alain]

Re,
Enfaite, je veux imprimer une image par une dans chaque page et il n'y a pas de taille exacte mais il faut juste garder la merge de A4

Cordialement,

 

[Alanou]

Bonjour à tous,
Encore un grand remerciement pour tous les membres qui font tout pour aider les autres.

Je besoins d'un service,
Je possède des sous-dossier dans laquelle chacun contient des centaines des images en ".png". Et moi je voudrais les insérer d'un seul coud; chacun dans une nouvelle page afin de pouvoir lancer une impression automatique et rapide. J'ai déjà fait des recherche et je suis tomber sur ce code que je ne savait le faire marcher.


Sub InsertAllPNGImages()
Dim objFolder As Object
Dim objFile As Object
Dim strFolderPath As String
Dim strFilePath As String
' Get the folder path.
strFolderPath = "D:\JOB\SBV\ASA_BDD\POLYGONE PARCELLE VANILLE EN IMAGE PNG\1_ABK\"
' Create a new folder object.
Set objFolder = CreateObject("Scripting.FileSystemObject")
' Get all the files in the folder.
Set objFiles = objFolder.GetFiles
' Loop through the files.
For Each objFile In objFiles
' Check if the file is a PNG file.
If objFile.Name Like "*.png" Then
' Get the file path.
strFilePath = objFile.Path
' Insert the image into the document.
InlineShapes.AddPicture FileName:=strFilePath, LinkToFile:=False, SaveWithDocument:=True
End If
Next
' Clean up.
Set objFolder = Nothing
Set objFile = Nothing
End Sub

Bnjour,
Pour exécuter ce code, vous devez l’insérer dans un module VBA dans Excel. Voici les étapes à suivre :

1. Ouvrez Excel et appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.
2. Dans l’éditeur VBA, cliquez sur Insertion dans la barre de menu, puis sélectionnez Module.
3. Copiez le code que vous avez fourni et collez-le dans le module.
4. Enregistrez le module en appuyant sur Ctrl + S.
5. Pour exécuter le code, retournez à Excel et appuyez sur Alt + F8 pour ouvrir la boîte de dialogue Macro.
6. Sélectionnez la macro que vous venez de créer et cliquez sur Exécuter.

J’espère que cela vous aidera à exécuter votre code