Bonjour à tous,

J’ai créé une petite application qui crée des aperçus de fichier Pdf.
Dans lequel j’insère une macro pour ouvrir ce pdf. Si nécessaire

Sur mon portable perso ça fonctionne
Sur mon UC à la boite : non

Bref ça fonctionne sur certain poste mais pas tous.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
        With ActiveSheet.OLEObjects.Add(Filename:=Fichier) ' Ligne qui semble poser problème
            .Name = "ImagePDF"
            .ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
            .ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
        End With
 
        ActiveSheet.Shapes("ImagePDF").Copy
        ActiveSheet.PasteSpecial Format:="Image (PNG)"
        Selection.Name = "ImagePNG"
        Selection.OnAction = "OuverturePdf"
        ActiveSheet.Shapes("ImagePDF").Delete

Que manquerait-il ?