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 :

Plus d'image après envoi par Email [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre actif
    Homme Profil pro
    Chef d'entreprise
    Inscrit en
    Juin 2013
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef d'entreprise
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2013
    Messages : 43
    Par défaut Plus d'image après envoi par Email
    BONJOUR

    voila on ma donner un code qui me permet d'ajouter les images via macro

    ce qui et de l’insertion des images tout ce passe correctement
    mais lorsque j'enregistre mon travaille et que j'envoie le fichier par e-mail les images ont disparus

    il y a t-il une personne pour me venir en aide ?

    merci beaucoup
    Fichiers attachés Fichiers attachés

  2. #2
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut heu
    bonjour
    fait voir ton code voir un exemple de fichier (alegé des données confidentielles )
    on y verra peut etre plus clair
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    En jouant au devin, il doit y avoir à quelque part un paramètre pour choisir entre une image incorporée ou une image liée. Il faut choisir une image incorporée. En vérifiant dans l'aide, les instructions d'insertion d'image, il devrait y avoir moyen de retrouver les bonnes valeurs à utiliser. Eh oui, regarder dans l'aide ne donne pas la peste.

  4. #4
    Membre actif
    Homme Profil pro
    Chef d'entreprise
    Inscrit en
    Juin 2013
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef d'entreprise
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2013
    Messages : 43
    Par défaut bonjour
    salut clementmarcotte

    j'ai pas trouver ce que tu ma demander

    j'ai chercher dans les paramètre hélas rien

    peut tu me dire le chemin exacte pour aller chercher les modifications pour choisir entre une image incorporée ou une image liée


    merci

  5. #5
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Citation Envoyé par patricktoulon Voir le message
    bonjour
    fait voir ton code voir un exemple de fichier (alegé des données confidentielles )
    on y verra peut etre plus clair
    En effet, Patrick à raison, sans ton code il sera impossible de te répondre, et donc cette discussion deviendra inutile.

    Philippe

  6. #6
    Membre actif
    Homme Profil pro
    Chef d'entreprise
    Inscrit en
    Juin 2013
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef d'entreprise
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2013
    Messages : 43
    Par défaut bonjour
    j'ai bien ajouter une pièce joint a mon message

    le problème vient surement de outlook il doit me bloquer les images

    je ne suis pas sur de ce que j’avance depuis hier je cherche encore aujourd'hui

    simple question peut ton contourner ce genre de problème via un code dans excel

    merci

  7. #7
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Citation Envoyé par djemol Voir le message
    peut tu me dire le chemin exacte pour aller chercher les modifications pour choisir entre une image incorporée ou une image liée
    merci
    C'est soit dans la méthode Paste ou la méthode PasteSpecial.

    Je pense que là, tu dois apprendre à pêcher et ouvrir ton aide de VBA.

    Bonjour,

    Je vois que tu as édité ta question pour ajouter ton code.

    Là je comprends mieux, ou du moins je pense que je comprends mieux, ce qui se passe. Quand on utilise l'insertion d'image dans le ruban d'Excel, j'ai l'impression qu'à l'enregistrement du fichier, tout ce qui subsiste, c'est le chemin d'accès sur le disque. Si ton correspondant n'a pas les mêmes images, dans le même dossier, Excel se contente d'afficher la croix rouge du lien brisé, sans aucune autre forme de procès.

    Pour enregistrer les images dans le classeur, tu dois avoir, pour une image unique quelque chose comme cela:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Set mafeuille = Worksheets("Modifiée")
    mafeuille.Shapes.AddPicture limage, True, True, 10, 50, 200, 200

    limage = chemin d'accès complet du fichier à incorporer.
    true (1) = Briser le lien avec le fichier d'origine
    true (2) = Enregistrer l'image dans le classeur
    10 = Distance de la gauche de l'écran en points
    50 = Distance du haut de l'écran en points
    200 (1) = Largeur de l'image en points
    200 (2) = Hauteur de l'image en points.

    Dans ce cas, les images ne sont pas liées à une cellule, mais à la feuille. Évidemment pour une série d'images, il faut remplacer le 10 et le 50 par de nouvelles valeurs à chaque fois. Sinon les images sont toutes empilées à la même place.

  8. #8
    Membre actif
    Homme Profil pro
    Chef d'entreprise
    Inscrit en
    Juin 2013
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef d'entreprise
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2013
    Messages : 43
    Par défaut bonjour
    salut clément

    je tes répondu en MP j'aimerai vraiment que tu puise inséré les lignes qui manque a mon macro dans la pièce jointe

    le code vient de QuestVba peut tu voire avec lui de ou vient l’erreur
    éventuellement changer le macro

    vous êtes mon dernier espoirs

    merci

  9. #9
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Essaie cela :
    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
     
    Sub InsertionImagesSelonRepertoire()
     
        'Macro qui permet une insertion d'une série d'images d'un répertoire donné,
        'Avec une ligne blanche entre chaque image
        Dim lesfichiers() As String
        Dim Repertoire As String
        Dim Extension As String
        Dim Fichier As String
        Dim limage As String
        Dim i As Integer
        Dim positiongauche As Single
        Dim positionhaut As Single
        Dim decalagedroite As Single
        Dim decalageBas As Single
        'On peut modifier les valeurs des constantes
        'pour modifier les résultats obtenus
        Const CombienParLigne = 6
        Const debutgauche = 100
        Const debuthaut = 20
        Const espacedroite = 10
        Const espacebas = 10
        Const largeurimage = 200
        Const HauteurImage = 200
        'emplacement de la première image
        positiongauche = debutgauche
        positionhaut = debuthaut
        decalagedroite = largeurimage + espacedroite
        decalageBas = HauteurImage + espacebas
        'Saisie du nom du répertoire
        Repertoire = InputBox("Chemin complet du répertoire (\ à la fin)", "Répertoire", "C:\Temp\Images\")
       'Saisie du type d'extension
        Extension = InputBox("Type de fichier (sans le point, ex : jpg, png, bmp)", "Type de fichier", "jpg")
        i = 1
        'Récupération du premier fichier du répertoire
        Fichier = Dir(Repertoire & "*" & Extension, vbDirectory)
        Do While Fichier <> ""
            If i > CombienParLigne Then
             'Position de la ligne suivante
             'et retour à la gauche de l'écran
                positionhaut = positionhaut + decalageBas
                positiongauche = debutgauche
                i = 1
            End If
            limage = Repertoire & Fichier
            Set mafeuille = Worksheets("Modifiée")
            mafeuille.Shapes.AddPicture limage, True, True, _
               positiongauche, positionhaut, largeurimage, HauteurImage
            'emplacement de la prochaine image
            positiongauche = positiongauche + decalagedroite
            i = i + 1
            Fichier = Dir
        Loop
       'sauvegarde de l'oeuvre.
       ThisWorkbook.Save
     End Sub

  10. #10
    Membre actif
    Homme Profil pro
    Chef d'entreprise
    Inscrit en
    Juin 2013
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef d'entreprise
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2013
    Messages : 43
    Par défaut bonjour
    salut clément

    je vient de testé le code il me mais erreur d’exécution 9 l'indice n'appartient pas a la sélection

    encore merci je vais bossé je rentre pour 18 h lol

  11. #11
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Citation Envoyé par djemol Voir le message
    je vient de testé le code il me mais erreur d’exécution 9 l'indice n'appartient pas a la sélection
    Cela marche chez-moi. Mais sans savoir sur quelle ligne (clique sur débogage, au lieu de terminer et tu vas arriver sur la ligne), c'est bien difficile de répondre.

    En jouant au devin. Regarde si le nom de la feuille correspond entre le nom dans Excel et le nom dans la macro. Sinon, tu changes un ou l'autre des noms de feuille.

  12. #12
    Membre actif
    Homme Profil pro
    Chef d'entreprise
    Inscrit en
    Juin 2013
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef d'entreprise
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2013
    Messages : 43
    Par défaut bonjour
    salut Clément

    merci

    j'ai du mal a comprendre cette phrase

    Regarde si le nom de la feuille correspond entre le nom dans Excel et le nom dans la macro. Sinon, tu changes un ou l'autre des noms de feuille
    peut s'il te plait me donner un exemple sur le code que tu ma réalisé ??

    je suis vraiment un gros noob dans ce domaine encore désolé


    merci encore

  13. #13
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Cette ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Set mafeuille = Worksheets("Modifiée")
    Dit que la feuille de mon classeur qui reçoit les images, se nomme "Modifiée". Donc, soit que tu remplaces Modifiée par le nom de ta feuille dans ton classeur, soit que tu renommes ta feuille en Modifiée.

  14. #14
    Membre actif
    Homme Profil pro
    Chef d'entreprise
    Inscrit en
    Juin 2013
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef d'entreprise
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2013
    Messages : 43
    Par défaut Tu es le meilleur
    Salut Clément

    Ton code marche a merveille vraiment tu assure au max
    peut encore besoin d'une dernier chose

    Car les images inséré son trop grande elles prenne trop de place

    La taille des images et dans l'exemple de la pièce jointe que j'ai m'y

    et le code que tu ma fait
    peux s'il te plait modifier la tailles

    Après je te laisse en paix

    Merci encore
    Fichiers attachés Fichiers attachés

  15. #15
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Tout ce que tu as à faire c'est de changer les valeurs par des valeurs plus faibles dans ces deux lignes:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Const largeurimage = 200
     Const HauteurImage = 200
    D'ailleurs comme mon commentaire dans la macro le dit, tu peux aussi changer le résultat obtenu en changeant les valeurs des constantes.

  16. #16
    Membre actif
    Homme Profil pro
    Chef d'entreprise
    Inscrit en
    Juin 2013
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef d'entreprise
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2013
    Messages : 43
    Par défaut bonsoir
    merci

    j'ai modifié la taille et le positionnement des images vraiment super

    toi aussi tu es super les autres aussi je suis sur mais toi et QuestVba vous êtes les deux a qui j'ai pu discuter grasse a vôtres aide j'ai obtenue ce que je chercher

    j’espère que ce que tu ma fait tiendra longtemps

    merci vraiment

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

Discussions similaires

  1. [WD-2003] Macro pour envoi par email
    Par relenaheero dans le forum VBA Word
    Réponses: 11
    Dernier message: 22/11/2010, 20h42
  2. [Toutes versions] envoie par email de la feuille active
    Par patricktoulon dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/04/2010, 18h39
  3. Réponses: 0
    Dernier message: 06/05/2009, 17h16
  4. accès à une image après vérification par php
    Par sakini dans le forum Langage
    Réponses: 4
    Dernier message: 19/09/2007, 21h38
  5. Réponses: 2
    Dernier message: 04/02/2007, 06h06

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