Macro excel sur MAC

Rebel 44 Messages postés 1 Statut Membre -  
Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous, et merci de m'accueillir dans votre communauté ,

Voici ma question :

Je souhaite transposer une Macro , Excel 2010 / Vista sous Excel 2011/MAC OSX

lorsque je tranferts mon fichier de l'un sur l'autre , il bugg

Le chemin d'accès ne doit pas être le même , mais je ne m'en sors pas

La ligne incriminée est en gras

Merci pour votre aide

Voici ma Macro

Sub Macro1()
Dim Photo As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single

Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
Gauche = Range("C2").Left
Sommet = Range("C2").Top
Largeur = Range("C2").Width
Hauteur = Range("C2").Height

If Photo <> False Then
Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
End If
End Sub

Rebel 44

7 réponses

  1.
    Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    Essayer de regarder par ici !

    1
  2. Marquisa
     
    Merci LE PINGOU , pour ces infos , mais désolé je n'arrive pas à mettre en application pour ma macro
    malgré de nombreuses configurations essayées !!!
    Je ne suis pas très doué ...
    0
  3. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    N'ayant pas de MAC pour essayer c'est un peu difficile.
    Pouvez-vous d'écrire exactement le message d'erreur ... ?
    A défaut réaliser une copie d'écran que vous insérez dans un document Word et vous le mettez sur https://www.cjoint.com/ et poster le lien.

    0
  4. Rebel 44
     
    Voici le message d'erreur , ainsi que la macro en cours de modif

    ERREUR D'EXECUTION "424"
    OBJET REQUIS "DEBOGAGE"

    La ligne buggant étant celle du cheminement ( en gras )

    Sub Photo()
    Dim Photo As Variant
    Dim Gauche, Sommet, Largeur, Hauteur As Single

    Photo.Workbooks.Open (" iMac figureau: my passeport: secufd: visites sites SRR : *.JPEG , *.jpg")
    Gauche = Range("C11").Left
    Sommet = Range("C11").Top
    Largeur = Range("C11").Width
    Hauteur = Range("C11").Height

    If Photo <> False Then
    Feuil12.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
    End If
    End Sub
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    Essayer de modifier comme suit :
    Dim Photo As Variant
    Remplacer par : 
    Dim Photo As Objet

    Et : Photo.Workbooks.Open (" iMac figureau: my passeport: secufd: visites sites SRR : *.JPEG , *.jpg")
    remplacer par : 
    Set Photo = Workbooks.Open (" iMac figureau: my passeport: secufd: visites sites SRR : *.JPEG , *.jpg")


    Salutations.
    Le Pingou
    0
  7. Rebel 44
     
    Merci Le PINGOU , de ta tenacité

    Mais cela ne foctionne toujours pas

    Les changements bloquent la formule dès le départ

    Cordialement
    0
  8. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    N'ayant pas de MAC pour essayer, désolé de ne pouvoir en faire plus.
    Peut-être voir vers un forum sur Macintosh... !

    0