Microsoft 365 Enregistrer des PDF et JPEG automatiquement dont les liens sont dans un fichier excel.

Alternance

XLDnaute Nouveau
Bonjour,

J'ai créer un formulaire Google Form à destination des nouveaux alternants pour qu'ils nous transmettent les pièces administratives dont on a besoin pour leur contrat (format PDF ou JPEG).
les réponses arrivent dans un fichier excel et je souhaiterai trouver une solution pour enregistrer les documents sur mon PC sans devoir cliquer sur chaque lien et télécharger les document un à un.

Auriez-vous des pistes pour m'aider ?

Merci
 

Pièces jointes

  • Réponses formulaire exemple.xlsm
    11.2 KB · Affichages: 19

kiki29

XLDnaute Barbatruc
Re, pour le jpeg j'ai retrouvé ceci, à adapter à ton contexte
VB:
Option Explicit

Sub ExportJPG()
Dim Ws As Worksheet
Dim Rng As Range
Dim ChrtO As ChartObject
Dim lWidth As Long, lHeight As Long

    Set Ws = ActiveSheet
    Set Rng = Ws.Range("B2:H11")

    Rng.CopyPicture xlScreen, xlPicture
    lWidth = Rng.Width
    lHeight = Rng.Height

    Set ChrtO = Ws.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

    ChrtO.Activate
    With ChrtO.Chart
        .Paste
        .Export Filename:="Essai.jpg", Filtername:="JPG"
    End With

    ChrtO.Delete
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
313 296
Messages
2 096 912
Membres
106 786
dernier inscrit
Mgordat