Macro excel sur MAC
Rebel 44
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 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
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
A voir également:
- Macro excel mac
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Adresse mac - Guide
- Aller à la ligne excel mac - Guide
- Word et excel gratuit - Guide
7 réponses
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é ...
malgré de nombreuses configurations essayées !!!
Je ne suis pas très doué ...
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.
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.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Essayer de modifier comme suit :
Dim Photo As Variant
Remplacer par :
Et : Photo.Workbooks.Open (" iMac figureau: my passeport: secufd: visites sites SRR : *.JPEG , *.jpg")
remplacer par :
Salutations.
Le Pingou
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