Macro excel sur MAC Fermé

Question

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

Le Pingou · Answer

Bonjour,
Essayer de regarder par ici !

Marquisa · Answer

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é ...

Le Pingou · Answer

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.

Rebel 44 · Answer

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

Le Pingou · Answer

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

Rebel 44 · Answer

Merci Le PINGOU , de ta tenacité 

Mais cela ne foctionne toujours pas 

Les changements bloquent la formule dès le départ 

Cordialement

Le Pingou · Answer

Bonjour,
N'ayant pas de MAC pour essayer, désolé de ne pouvoir en faire plus.
Peut-être voir vers un forum sur Macintosh... !