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 :

CommandButton n'est plus lié au code [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Consultant SAP
    Inscrit en
    Août 2014
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Consultant SAP
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Août 2014
    Messages : 8
    Par défaut CommandButton n'est plus lié au code
    * Bonjour, *

    Mon bouton de commande ne fonctionne plus.
    Je n'ai rien fait de particulier, juste l'insertion d'une image sur ce bouton.
    Est-ce lié ?

    Je n'ai rien suspecté dans les propriétés de l'objet.
    Le bouton est actif mais ne semble plus lié au code.

    Merci d'avance pour votre aide.

    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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    'envoi d'un email aux destinataire de la feuil2 d'excel
    Private Sub CommandButton5_Click()
     
    Dim OutApp As Object
        Dim OutMail As Object
        Dim cell As Range
        Dim tableauDestinataires() As String
        Dim nbDestinataires As Integer
        Dim strbody As String
     
     
        nbDestinataires = 0
        Application.ScreenUpdating = False
        Set OutApp = CreateObject("Outlook.Application")
     
        On Error GoTo cleanup
     
     
       For Each cell In Columns("E").Cells.SpecialCells(xlCellTypeConstants)
            If cell.Value Like "?*@?*.?*" And _
               LCase(Cells(cell.Row, "G").Value) = "oui" Then
                   ReDim Preserve tableauDestinataires(nbDestinataires)
                   tableauDestinataires(nbDestinataires) = cell.Value
                   nbDestinataires = nbDestinataires + 1
            End If
        Next cell
     
     
                Set OutMail = OutApp.CreateItem(0)
     
               strbody = "Dear all," & OutMail.Subject & Chr$(13) & vbNewLine & vbNewLine & _
                  "Please find attached the shipping documents" & vbNewLine & _
                  "" & vbNewLine & _
                  "- Invoice with Packing list" & vbNewLine & _
                  "- Certificate of Analysis" & vbNewLine & _
                  "" & vbNewLine & _
                  "Best regards"
     
     
     
                On Error Resume Next
                With OutMail
                    .To = tableauDestinataires
                    .Subject = "Order"
                    '.Body = "Dear all,"
                    .Body = strbody & vbNewLine & vbNewLine
                    .Display
     
     
     
                End With
                On Error GoTo 0
                Set OutMail = Nothing
    cleanup:
        Set OutApp = Nothing
        Application.ScreenUpdating = True
     
     
    End Sub

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Bonjour,

    Comment as-tu "inséré" l'image ?
    À l'aide de sa propriété Picture ?

    Si oui, ça devrait fonctionner, quoique je n'ai pas 2010 ici pour vérifier...

  3. #3
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Commençons pas le plus évident : tu as vérifié que ton bouton n'avait pas changé de nom ?

  4. #4
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Comme te le conseille Menhir vérifie que ton bouton n'a malencontreusement pas changé de nom en te mettant en mode création et en double cliquant dessus, si tu n'arrive pas sur ton code mais sur un squelette de procédure le bouton ne porte probablement plus le même nom !

    Hervé.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 07/02/2012, 10h50
  2. Réponses: 4
    Dernier message: 04/06/2009, 09h51
  3. Code Block est plus strict sous linux que sous Windows
    Par Davidbrcz dans le forum wxWidgets
    Réponses: 2
    Dernier message: 21/02/2007, 19h25
  4. Pourquoi mon code est plus lent que Arrays.sort
    Par alexis779 dans le forum Collection et Stream
    Réponses: 3
    Dernier message: 12/12/2006, 12h44
  5. DBExpress est plus lent que BDE?
    Par palassou dans le forum Bases de données
    Réponses: 4
    Dernier message: 02/07/2004, 08h39

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