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

[Alternance]

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

 

[kiki29]

Salut, peut-être à consulter si curieux : Liste Contributions PDF

 

[kiki29]

Re, pour le jpeg j'ai retrouvé ceci, à adapter à ton contexte

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

 

[Alternance]

Merci pour vos réponses, je vais tester.