Insérer une photo dans un fichier excel (macro photo)
Fermé
brazu
Messages postés
4
Date d'inscription
mardi 16 juin 2015
Statut
Membre
Dernière intervention
17 juin 2015
-
16 juin 2015 à 14:55
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 juin 2015 à 11:08
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 juin 2015 à 11:08
A voir également:
- Insérer une photo dans un fichier excel (macro photo)
- Traduction photo gratuit - Guide
- Photo de profil - Guide
- Partage photo - Guide
- Fichier rar - Guide
- Photo aérienne de ma maison - Guide
4 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
16 juin 2015 à 15:15
16 juin 2015 à 15:15
Bonjour,
Voici un exemple
http://www.cjoint.com/c/EFqnog5Yn7Q
Voici un exemple
http://www.cjoint.com/c/EFqnog5Yn7Q
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
16 juin 2015 à 15:42
16 juin 2015 à 15:42
Bonjour à tous
Un autre exemple
https://www.cjoint.com/c/EFqnPWkYpcz
Un autre exemple
https://www.cjoint.com/c/EFqnPWkYpcz
brazu
Messages postés
4
Date d'inscription
mardi 16 juin 2015
Statut
Membre
Dernière intervention
17 juin 2015
17 juin 2015 à 09:41
17 juin 2015 à 09:41
Bonjour Michel,
Désolée mais je crois que je n'arrive pas à m'en servir. Pouvez-vous s'il vous plait me l'expliquer pas à pas?
Je peux vous envoyer le type de ficgier dans lequel j'ai besoin d'insérer mon image?
Private Sub ComboBox1_Change()
Dim image As String, chemin As String (je dois mettre le chemin d'accès de mon dossier?)
image = Sheets(1).ComboBox1.Value
If image <> Range("A18") Then
chemin = ThisWorkbook.Path & "\"
Sheets(1).Image1.PictureSizeMode = 3
Sheets(1).Image1.Picture = LoadPicture(chemin & image & ".jpg")
Else
Sheets(1).Image1.Picture = LoadPicture("")
End If
Range("A1").Select
End Sub
Désolée mais je crois que je n'arrive pas à m'en servir. Pouvez-vous s'il vous plait me l'expliquer pas à pas?
Je peux vous envoyer le type de ficgier dans lequel j'ai besoin d'insérer mon image?
Private Sub ComboBox1_Change()
Dim image As String, chemin As String (je dois mettre le chemin d'accès de mon dossier?)
image = Sheets(1).ComboBox1.Value
If image <> Range("A18") Then
chemin = ThisWorkbook.Path & "\"
Sheets(1).Image1.PictureSizeMode = 3
Sheets(1).Image1.Picture = LoadPicture(chemin & image & ".jpg")
Else
Sheets(1).Image1.Picture = LoadPicture("")
End If
Range("A1").Select
End Sub
brazu
Messages postés
4
Date d'inscription
mardi 16 juin 2015
Statut
Membre
Dernière intervention
17 juin 2015
17 juin 2015 à 10:19
17 juin 2015 à 10:19
J'ai trouvé une macro photo qui fait ce dont j'ai besoin mais elle ne fonctionne pas sur mon ordi:(
Quelqu'un peut il m'aider à trouver où est l'erreur s'il vous plait?
Je ne pense pas que ça soit qu'au niveau du chemin d'accès de mon dossier non?
Sub Photo()
'
'
' Touche de raccourci du clavier: Ctrl+a
'
'===============================================================================================================================
' Déclaration des variables et constantes
Dim temp ' Variable temporaire qui va conserver la valeur de la cellule sélectionnée
Const DOSSIER_PHOTOS As String = "C:\pictos\" ' Répertoire dans lequel se trouve les photos
Const EXTENSION_PHOTOS As String = ".JPG" ' Extension des photos
'Const CELLULE_PHOTOS As String = "I2" ' Cellule dans laquelle doit s'afficher les photos
'===============================================================================================================================
' Début du programme
On Error GoTo NonTrouve
' Conservation de la valeur de la cellule et retrait des éventuels espaces avant ou après la valeur
If IsNumeric(ActiveCell.Value) Then
temp = Trim(Str(ActiveCell.Value))
Else
temp = Trim(ActiveCell.Value)
End If
' positionnement sur la cellule où doit être la photo
' Range(CELLULE_PHOTOS).Select
' insertion de la photo
ActiveSheet.Pictures.Insert(DOSSIER_PHOTOS + temp + EXTENSION_PHOTOS).Select
Exit Sub
NonTrouve:
MsgBox ("Aucune photo n'a été trouvée")
' Fin du programme
End Sub
Quelqu'un peut il m'aider à trouver où est l'erreur s'il vous plait?
Je ne pense pas que ça soit qu'au niveau du chemin d'accès de mon dossier non?
Sub Photo()
'
'
' Touche de raccourci du clavier: Ctrl+a
'
'===============================================================================================================================
' Déclaration des variables et constantes
Dim temp ' Variable temporaire qui va conserver la valeur de la cellule sélectionnée
Const DOSSIER_PHOTOS As String = "C:\pictos\" ' Répertoire dans lequel se trouve les photos
Const EXTENSION_PHOTOS As String = ".JPG" ' Extension des photos
'Const CELLULE_PHOTOS As String = "I2" ' Cellule dans laquelle doit s'afficher les photos
'===============================================================================================================================
' Début du programme
On Error GoTo NonTrouve
' Conservation de la valeur de la cellule et retrait des éventuels espaces avant ou après la valeur
If IsNumeric(ActiveCell.Value) Then
temp = Trim(Str(ActiveCell.Value))
Else
temp = Trim(ActiveCell.Value)
End If
' positionnement sur la cellule où doit être la photo
' Range(CELLULE_PHOTOS).Select
' insertion de la photo
ActiveSheet.Pictures.Insert(DOSSIER_PHOTOS + temp + EXTENSION_PHOTOS).Select
Exit Sub
NonTrouve:
MsgBox ("Aucune photo n'a été trouvée")
' Fin du programme
End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
17 juin 2015 à 11:08
17 juin 2015 à 11:08
Bonjour,
Je viens d'esayer chez moi XL2007 sur classeur fait à l'époque avec XL2000
et ca marche
Attention: il faut dézipper et ouvrir le zip car en ouvrant directement, les macros ne fonctionnent pas
Je viens d'esayer chez moi XL2007 sur classeur fait à l'époque avec XL2000
et ca marche
Attention: il faut dézipper et ouvrir le zip car en ouvrant directement, les macros ne fonctionnent pas
17 juin 2015 à 09:41
Désolée mais je crois que je n'arrive pas à m'en servir. Pouvez-vous s'il vous plait me l'expliquer pas à pas?
Je peux vous envoyer le type de fichier dans lequel j'ai besoin d'insérer mon image?
17 juin 2015 à 10:51
http://www.cjoint.com/c/EFriX7Po6HQ