Discussion :

[djemol]

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

[patricktoulon]

bonjour
fait voir ton code voir un exemple de fichier (alegé des données confidentielles )
on y verra peut etre plus clair

[clementmarcotte]

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.

[djemol]

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

[Invité]

Bonjour

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

[djemol]

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

[clementmarcotte]

Bonjour,

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

Où
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.

[djemol]

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

[clementmarcotte]

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

[djemol]

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

[clementmarcotte]

Bonjour,

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.

[djemol]

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

[clementmarcotte]

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.

[djemol]

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

[clementmarcotte]

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.

[djemol]

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