Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Ajout d'une image VBA

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mahakas

XLDnaute Nouveau
Bonjour à toutes et à tous,

J'ai un problème d'ajout d'une photo dans une trame prédéfinie et j'ai besoin de votre aide (je suis débutante)

Voici ma problématique :

Les titres de mes photos se trouve dans l'onglet "Tab recap" et dans la colonne 25
La trame où je souhaite mettre la photo se trouve dans l'onglet "Reserve" (la première cellule est B2)
Mes photos se trouvent dans le lien "C:\Users\prenom.nom\Documents\"

Mon programme VBA est comme suite :

Sub Remplissage_fiche_reserve()

Dim nbligne As Integer

nbligne = Sheets("Tab recap").Cells(2, 1).End(xlDown).Row

If Sheets("Tab recap").Cells(ligne, 25).Value <> "" Then
Sheets("Reserve").Pictures.Delete
Sheets("Reserve").Shapes.AddPicture _
"C:\Users\prenom.nom\Documents\", _
True, True, 121, 515, 270, 190
End If

Sheets("Reserve").Select
Sheets("Reserve").Range("B2").Select
Sheets("Reserve").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Quand j'exécute ma macro, ce message d'erreur s'affiche :


Saviez-vous qu'est-ce qu'il faut faire pour que ma macro fonctionne ?

En vous remerciant d'avance pour votre aide.
 
Trier par date Trier par votes
Bonjour Mahakas,
sans fichier test, difficile de répondre.
Mais déjà un point bizarre, vous utilisez la variable "ligne" sans l'avoir initialisée.
Vous initialisé "nbligne" mais pas "ligne".
 
Vote positif 0 Vote négatif
Impossible de faire tourner votre macro avec les images dans votre dossier.
Cependant la ligne :
VB: 
Sheets("Reserve").Pictures.Delete "C:\Users\prenom.nom\Document", True, True, 121, 515, 270, 190
ne peut pas marcher la propriétés .Delete n'a pas besoin de paramètres.
dans la PJ j'ai fait un petit module indépendant qui insère une image dans la cellule photo et qui la centre. Le nom est donné d'une part par Chemin en dur et d'autre par par le tableau. Evidemment à adapter.
Code: 
Sub InsereImage()
    ligne = 3
    If Sheets("Tab recap").Cells(ligne, 25).Value <> "" Then
        Sheets("Reserve").Pictures.Delete                           ' suppression des images
        Chemin = "g:\Users\PC_PAPA\Pictures\GIFS\Bonhomme\Petites\" ' chemin du dossier image à adapter
        NomImage = Chemin & Sheets("Tab recap").Cells(ligne, 25)    ' chemin de l'image
        Cells(22, 3).Select                                         ' selection cellule où mettre l'image
        ActiveSheet.Pictures.Insert(NomImage).Select                ' insertion image
        With Selection.ShapeRange                                   ' centrage image dans cellule
            .Left = Cells(22, 3).Left + (Cells(22, 3).Width / 2)
            .Top = Cells(22, 3).Top + (Cells(22, 3).Height / 2) - (.Height / 2)
        End With
    End If
    [A1].Select
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Votre macro n'engendre pas d'erreur par contre aucune image n'est insérer.
J'ai adapté le lien "g:\Users\PC_PAPA\Pictures\GIFS\Bonhomme\Petites\" au mien
ensuite j'ai fait appelle à cette macro via le bouton de commande comme suite :
Private Sub CommandButton2_Click()
InsereImage
Remplissage_fiche_reserve
End Sub
Tout mes fiches sont bien remplies et enregistrées par mais sans photo !

L'idée est de remplir la fiche par les éléments du tableau et ensuite enregistrer ces fiches sous format pdf dans un dossier (nombre de pdf enregistrés = nombre de lignes du tableau)

Tout fonctionne bien sauf la partie recherche des photos dans le lien indiqué et le positionnement de cette dernière
 
Vote positif 0 Vote négatif
Si vous faites simplement InsereImage sans rien modifier, c'est le nom de l'image en cells(3,25) qui sera utilisée et elle seule.
Chez moi ça marche correctement :
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
165
vazvaz
V
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
686
Oneida
W
  • Résolu(e)
Microsoft 365 Insertion Image dans une Feuille et Ratio conservé
2
Réponses
23
Affichages
4 K
patricktoulon
G
  • Question Question
Microsoft 365 Excel VBA - Rotation d'une image
Réponses
2
Affichages
2 K
patricktoulon
  • Question Question
XL 2016 Image Useform
2 3
Réponses
39
Affichages
5 K
Maathis
D
  • Question Question
XL 2016 Affichage d'une photo jpeg avec visionneus windows.
Réponses
8
Affichages
2 K
Dam1904
D
  • Question Question
XL 2013 insertion image dans cellule
2 3 4
Réponses
58
Affichages
6 K
Dranreb
K
  • Question Question
XL 2013 VBA - EXCEL - Aide pour simplifier mon fichier
Réponses
0
Affichages
2 K
Khalidoune
K
E
  • Question Question
VBA - Générer des classeurs personnalisés à partir d'une base
Réponses
0
Affichages
1 K
eeyglunent
E
  • Question Question
XL 2013 Créer un Facturier
Réponses
9
Affichages
2 K
VIARD
V
F
  • Question Question
message "pas de photo" si fichier introuvable
Réponses
9
Affichages
2 K
pierrejean
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…