XL 2010 image format pdf

MASSJIPE

XLDnaute Impliqué
Bonjour le forum
J'ai ce code pour faire une photothèque j'ai ajouté png et pdf mais cela ne fonctionne pas
merci
VB:
Private Sub BoutCharge_Click()
Dim F, ImageP As StdPicture
  F = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif; *.png; *.pdf),*.gif;*.jpg;*.tif; *.png; *.pdf")
  If F <> False Then
    On Error Resume Next
    If Dir(F) = "" Then Exit Sub
    Set ImageP = LoadPicture(F)
    On Error GoTo 0
    If ImageP Is Nothing Then
      MsgBox "Erreur à l'ouverture de l'image", vbCritical
    Else
      Set ImgAffichee.Picture = ImageP
      AjoutImageDansListe F
    End If
  End If
End Sub
 

Pièces jointes

  • phototèque.xlsm
    30.3 KB · Affichages: 25

Discussions similaires

Réponses
1
Affichages
349
Compte Supprimé 979
C
Réponses
12
Affichages
542

Statistiques des forums

Discussions
312 836
Messages
2 092 656
Membres
105 479
dernier inscrit
chaussadas.renaud