Bonjour, Je souhaite créer une série de fichiers PDF à partir des données d'un Forms via VBA.
Je m'explique, j'ai créé un questionnaire windows foms dont j'extrais les réponses sous format Excel. J'ai donc une serie de lignes contenant des données que j'utilise pour créer différentes fiches Excel mises en forme que j'imprime ensuite en PDF (donc un espèce de publipostage amélioré). jusque là rien de complexe. Dans le questionnaire, je permet d’insérer des photos. Ces photos sont stockées dans mon Forms et sont retranscrites quand je télécharge mon Excel sous la forme d'un lien internet du type "https://x-my.sharepoint.com/Question/conducteur_x.jpg". Ce que je souhaite c'est que quand je réalise ma boucle avec les données, dans la feuille Excel, qui me sert de matrice pour générer mon PDF, les photos apparaissent. Voilà ma première tentative un peu optimiste : (la boucle de J est définit par ailleurs)
If Tablo(j, 16) <> Empty Then
Range("A45") = LoadPicture((Tablo(j, 16)))
End If
est-ce que vous pouvez m'aider?
Je m'explique, j'ai créé un questionnaire windows foms dont j'extrais les réponses sous format Excel. J'ai donc une serie de lignes contenant des données que j'utilise pour créer différentes fiches Excel mises en forme que j'imprime ensuite en PDF (donc un espèce de publipostage amélioré). jusque là rien de complexe. Dans le questionnaire, je permet d’insérer des photos. Ces photos sont stockées dans mon Forms et sont retranscrites quand je télécharge mon Excel sous la forme d'un lien internet du type "https://x-my.sharepoint.com/Question/conducteur_x.jpg". Ce que je souhaite c'est que quand je réalise ma boucle avec les données, dans la feuille Excel, qui me sert de matrice pour générer mon PDF, les photos apparaissent. Voilà ma première tentative un peu optimiste : (la boucle de J est définit par ailleurs)
If Tablo(j, 16) <> Empty Then
Range("A45") = LoadPicture((Tablo(j, 16)))
End If
est-ce que vous pouvez m'aider?