Microsoft 365 macro : Insertion pdf à partir d'un fichier portant le nom d'une cellule

  • Initiateur de la discussion Initiateur de la discussion Goif
  • 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 !

Goif

XLDnaute Nouveau
Bonjour,

Je suis complètement novice en macro et je surfe sur les forums depuis plusieurs pour arriver à créer un bon de commande semi-automatisé.
J'ai à peu près trouvé ce que je cherchais mais je bloque sur quelques points.
Notamment, je voudrai créer une macro pour insérer (dans ma feuille excel bon de commande) le bon de livraison PDF correspondant enregistré dans un autre dossier et dont le nom figure dans une cellule de ma feuille bon de commande.

En clair mon bon de commande porte le n° 0001 en cellule L2. Il est enregistré dans le dossier "Z:\Commandes\Excel"
Mon Bon de livraison correspondant est enregistré dans le dossier "Z:\Commandes\BL" sous le nom "0001"
quelle macro créer pour qu'à l'exécution le bon de livraison soit importé automatiquement en fonction du contenu de L2 ?

J'ai créer les lignes suivantes mais aucune ne fonctionne :

Sub impBL2()
'
' impBL2 Macro
'
Dim chemin As String
Dim NomImage As String
Dim Image As String

chemin = "Z:\Commandes\BL\"
NomImage = Range("L2")
Image = ".pdf"

'
ActiveSheet.OLEObjects.Add(Filename:="chemin & NomImage & Image", Link:= _
False, DisplayAsIcon:=False).Select
End Sub

OU

Sub importBL()

'

' importBL Macro

'

Dim chemin As String

Dim NomImage As String

Dim Image As String


chemin = "Z:\Commandes\BL\"

NomImage = Range("L2")

Image = ".pdf"


ActiveSheet.Shapes.AddPicture Filename:=chemin & NomImage & Image, linktofile:=msoFalse, savewithdocument:=msoTrue

End Sub

J'espère avoir été assez claire.
Merci d'avance de votre aide.
 

Pièces jointes

  • bc.pdf
    bc.pdf
    420.2 KB · Affichages: 9
- 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
3
Affichages
534
Retour