Macro excel sur MAC
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
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
-
Bonjour,
N'ayant pas de MAC pour essayer, désolé de ne pouvoir en faire plus.
Peut-être voir vers un forum sur Macintosh... !
-
Merci Le PINGOU , de ta tenacité
Mais cela ne foctionne toujours pas
Les changements bloquent la formule dès le départ
Cordialement -
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 -
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 -
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.
-
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é ... -
