Word insertion image sous word dans l'ordre chronologique du repertoire sélectionné

  • Initiateur de la discussion Initiateur de la discussion pao47
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pao47

XLDnaute Nouveau
Bonjour,

j'ai ce code qui fonctionne bien jusque 9 images (numéroté de 1 à 9) au delà il insère la 1 puis la 10 et 2 puis la 20, ....
Pourriez-vous m'aider pour qu'il insère les images dans l'ordre chronologique du repertoire selectionné ou dans l'ordre de creation de l'image?

merci d'avance de votre aide.

bonne journée,

Paolino.

VB:
Sub InsertionImages()
 
Dim Repertoire As String
Dim Extension As String
Dim Fichier As String
 
'Saisie du nom du répertoire
Repertoire = InputBox("Chemin complet du répertoire (\ à la fin)", "Répertoire", "D:\Mes images")
'Saisie du type d'extension
Extension = InputBox("Type de fichier (sans le point, ex : jpg, png, bmp)", "Type de fichier", "jpg")
 
'Récupération du premier fichier du répertoire
Fichier = Dir(Repertoire & "*" & Extension, vbDirectory)
 
Do While Fichier <> ""
    i = i + 1
    'Insertion de l'image
    Selection.InlineShapes.AddPicture FileName:=Repertoire & Fichier
    'Insertion d'une ligne vide
    Selection.TypeParagraph
    'Récupération du prochain fichier du répertoire
    Fichier = Dir
Loop
 
End Sub
 
Bonsoir,

Et si tu nommais tes images différemment :
01.jpg ; 02.jpg ; ...

le nom du fichier est un texte même si cela représente des N° => Donc il faut que dans le nom de tes fichiers tu mettes les 0 non significatifs devant.
ps : Si tu part sur plus de 100 Fichiers, il faudra adapter : 001.jpg ; 098.jpg ; 101.jpg , ..

Tu remarqueras que les appareils photo enregistrent les nom de fichier avec ces 0 non significatifs ;-)

voila pour la logique de nommage de tes fichiers qui devrait éviter d'avoir à toucher au code ... et avoir à stocker tous les noms de fichier, les trier dans l'ordre pour les traiter dans l'ordre.

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
2 K
Retour