IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Écriture VBA windows vers mac


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Chercheur en informatique
    Inscrit en
    Mars 2020
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France

    Informations professionnelles :
    Activité : Chercheur en informatique
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : Mars 2020
    Messages : 4
    Par défaut Écriture VBA windows vers mac
    Bonjour,
    Merci à tous pour vos contributions.
    J'ai crée un code sur Excel avec la version Windows et j'aimerais traduire ce code pour qu'il fonctionne sur MAC.
    Il s'agit d'une préparation et d'un envoi automatisé de mail à différents prestataire selectionnés.
    Est-ce que vous pensez pouvoir m'aider?
    je vous remercie.
    Cordialement,
    Samuel
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Option Explicit
     
    Private Sub CommandButton1_Click()
     
    Dim LeMail As Variant
    Dim ligne As Integer
    Dim CC As String
     
    Set LeMail = CreateObject("Outlook.Application") 'création d'un objet outlouk
     
    For ligne = 31 To 36
     
    If Range("d" & ligne) <> "" Then
     
    With LeMail.CreateItem(olMailItem) ' informe le programme que nous voulons envoyer un mail.
    .Subject = "CONSULTATION - " & Range("B14") & Range("b" & ligne) 'le sujet + le nom
    .To = Range("E" & ligne) 'placer l'adresse mail de la ligne
    .CC = Range("J9") & _
    Range("J8") & _
    Range("J10")
    .Body = "Consultation à destination de la société " & Range("d" & ligne) & " " _
    & Range("B77")
    .Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
    End With
     
    End If
     
    Next ligne
     
    End Sub

  2. #2
    Membre Expert Avatar de Transitoire
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Décembre 2017
    Messages
    733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Auditeur informatique

    Informations forums :
    Inscription : Décembre 2017
    Messages : 733
    Par défaut
    bonjour, j'ai essayé votre code, il y a déjà un problème de déclaration, voir ci-dessous:

    Nom : Capture d’écran 2020-03-05 à 07.30.04.png
Affichages : 230
Taille : 112,1 Ko

    ensuite, votre code fait référence à Outlook. Avez vous OutLook ? sinon, il vous faudra passer avec "Mail". Il est possible que vous soyez obligé de passer par Automator?
    Je vous avoue toutefois mon incompétence dans ces choses. Je ne pourrais malheureusement pas jouer autre chose que "l'idiot utile", voire inutile

    Cordialement

  3. #3
    Membre à l'essai
    Homme Profil pro
    Chercheur en informatique
    Inscrit en
    Mars 2020
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France

    Informations professionnelles :
    Activité : Chercheur en informatique
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : Mars 2020
    Messages : 4
    Par défaut Merci
    Bonjour,
    J'ai bien outlook ! Merci.

  4. #4
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    je n'ai pas MAC, mais essaye de remplacer la constante OlMailItem par sa valeur numérique : 0

Discussions similaires

  1. Cross-compilation Windows vers Mac
    Par YuGiOhJCJ dans le forum Autres éditeurs
    Réponses: 4
    Dernier message: 08/09/2019, 09h09
  2. Compatibilité formulaire windows vers mac
    Par rnazou dans le forum Word
    Réponses: 0
    Dernier message: 14/09/2018, 10h11
  3. [XL-MAC 2011] Adaptation d'un fichier Excel VBA PC vers Mac
    Par charlo311 dans le forum Excel
    Réponses: 1
    Dernier message: 29/04/2014, 15h58
  4. [WD17] Application Windows vers Mac
    Par davcaz dans le forum WinDev
    Réponses: 1
    Dernier message: 15/12/2012, 19h09
  5. [Think Pascal] Portage/conversion Think Pascal vers MAC/Windows/Linux
    Par Alain Vitry dans le forum Autres IDE
    Réponses: 1
    Dernier message: 19/03/2005, 11h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo