Images
Fermé
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
-
22 janv. 2017 à 18:33
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 19 févr. 2017 à 08:09
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 19 févr. 2017 à 08:09
A voir également:
- Images
- Images gratuites - Guide
- Google images - Guide
- Visualisez cette image avec un logiciel d'édition d'images. combien y a-t-il de pixels noirs sur le camion ? - Forum Photoshop
- Superposez les images à télécharger avec le logiciel de votre choix. quel animal apparaît ? ✓ - Forum Photo numérique
- Mes images ✓ - Forum Windows
9 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
22 janv. 2017 à 18:46
22 janv. 2017 à 18:46
Bonjour,
voici un exemple:
http://www.cjoint.com/c/GAwrTLxjH7Q
voici un exemple:
http://www.cjoint.com/c/GAwrTLxjH7Q
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
23 janv. 2017 à 07:57
23 janv. 2017 à 07:57
C'est du vba
Voir ceci pour activer les macros
https://support.microsoft.com/en-us/office/enable-or-disable-macros-in-office-files-12b036fd-d140-4e74-b45e-16fed1a7e5c6?redirectsourcepath=%252ffr-fr%252farticle%252factiver-ou-d%2525c3%2525a9sactiver-les-macros-dans-les-documents-office-7b4fdd2e-174f-47e2-9611-9efe4f860b12&ui=en-us&rs=en-us&ad=us
Voir ceci pour activer les macros
https://support.microsoft.com/en-us/office/enable-or-disable-macros-in-office-files-12b036fd-d140-4e74-b45e-16fed1a7e5c6?redirectsourcepath=%252ffr-fr%252farticle%252factiver-ou-d%2525c3%2525a9sactiver-les-macros-dans-les-documents-office-7b4fdd2e-174f-47e2-9611-9efe4f860b12&ui=en-us&rs=en-us&ad=us
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
24 janv. 2017 à 13:16
24 janv. 2017 à 13:16
je ne vois pas le rapport entre activer le macros et ma demande est t-il possible de me renvoyer quelque code pour faire cela
?
?
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
24 janv. 2017 à 13:44
24 janv. 2017 à 13:44
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
24 janv. 2017 à 19:29
24 janv. 2017 à 19:29
désolé cs_lepivert avec toutes les publicité qu'il y a sur le liens que tu m'as envoyé j'ai pensé que c'était pour me faire installé quelque chose que je ne souhaite pas en effet il y a bien une feuille avec des macro je n'ai pas réussi à activer les macros sur open office mais j'ai tout copier sur excel
tout ce que j'arrive à faire fonctionner c'est la macro Sub AfficheFichiersEtChemins() le reste Nada ça ne fonctionne pas je crois que je n'ai pas les compétences pour faire fonctionner le reste à croire que je dois cliquer sur exécuter pour que tout fonctionne or à chaque fois il y a différent message d'erreurs que je n'arrive pas à résoudre
tout ce que j'arrive à faire fonctionner c'est la macro Sub AfficheFichiersEtChemins() le reste Nada ça ne fonctionne pas je crois que je n'ai pas les compétences pour faire fonctionner le reste à croire que je dois cliquer sur exécuter pour que tout fonctionne or à chaque fois il y a différent message d'erreurs que je n'arrive pas à résoudre
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
24 janv. 2017 à 19:53
24 janv. 2017 à 19:53
Je ne comprends pas, c'est un classeur Excel que j'ai mis. Tu n'as pas besoin de l'ouvrir avec Open pour ensuite le copier sur Excel.
Il suffit de l'ouvrir avec Excel; Je l'ai enregistré, en Excel 2003 pour que tout le monde puisse s'en servir.
@+
Il suffit de l'ouvrir avec Excel; Je l'ai enregistré, en Excel 2003 pour que tout le monde puisse s'en servir.
@+
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
>
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
24 janv. 2017 à 20:58
24 janv. 2017 à 20:58
désolé cs_ le pivert es ce que cette macro fonctionne chez toi, moi j'ai un problème avec la liste index elle ne passe pas
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
>
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
24 janv. 2017 à 21:55
24 janv. 2017 à 21:55
voici une version différente:
http://www.cjoint.com/c/GAyu2HbfMkQ
Essaie la
http://www.cjoint.com/c/GAyu2HbfMkQ
Essaie la
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
>
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
25 janv. 2017 à 15:03
25 janv. 2017 à 15:03
je t'en remercie cs_le pivert il ne sert à rien de m'envoyer plus d'exemples il faut que je suivent une paire de tuto avant de comprendre les codes que tu m'envoie, de plus il y a des sub et end sub à la suite dans ce code difficile de comprendre pour l'instant de quoi il s'agit je reviendrais dessus dans quelque semaine
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
14 févr. 2017 à 00:46
14 févr. 2017 à 00:46
j'ai finalement trouvé comment insérer les images dans une boucle voici le code:
Sub inserer_image()
rep = "C:\Users\Desktop\Fichier\ "
Fichier = Dir(rep & "*.jpg")
i = 2
Do While Fichier <> ""
Cells(i, 3).Value = Fichier
Cells(i, 3).Select
Set Image = ActiveSheet.Pictures.Insert(re p & Fichier)
Image.Name = Fichier
i = i + 1
Fichier = Dir
Loop
End Sub
Seulement je ne sais pas mettre les images avec une dimensions forcé genre 70*70 et centrer sur la cellule (horizontalement et verticalement)
Pouvez vous m'aider?
Sub inserer_image()
rep = "C:\Users\Desktop\Fichier\ "
Fichier = Dir(rep & "*.jpg")
i = 2
Do While Fichier <> ""
Cells(i, 3).Value = Fichier
Cells(i, 3).Select
Set Image = ActiveSheet.Pictures.Insert(re p & Fichier)
Image.Name = Fichier
i = i + 1
Fichier = Dir
Loop
End Sub
Seulement je ne sais pas mettre les images avec une dimensions forcé genre 70*70 et centrer sur la cellule (horizontalement et verticalement)
Pouvez vous m'aider?
yg_be
Messages postés
22707
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 avril 2024
1 471
14 févr. 2017 à 07:38
14 févr. 2017 à 07:38
bonjour, as-tu essayé d'enregistrer une macro pendant que tu changeais les dimensions? cela va sans doute t'aider à comprendre comment le faire en VBA.
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
14 févr. 2017 à 11:00
14 févr. 2017 à 11:00
Je ne sais pas où tu as trouvé ce code, mais il n'est pas approprié à ce que tu veux faire. Il met toutes les images dans la même cellule.
Voici le code qu'il te faut (le même que je t'avais adressé a ma 1ère intervention). A toi de l'adapter à ta convenance. Si sur ce code tu as des questions, je suis là pour t'aider:
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ImportImages
Voici le code qu'il te faut (le même que je t'avais adressé a ma 1ère intervention). A toi de l'adapter à ta convenance. Si sur ce code tu as des questions, je suis là pour t'aider:
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ImportImages
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
18 févr. 2017 à 16:22
18 févr. 2017 à 16:22
Finalement j’y suis arrivée avec votre aide seulement il me manque un dernier éléments pour finaliser mon projet
Voila le propos : j’ai nommé toutes mes images que je souhaite importer.
Toute les référence de mes images sont en colonne B et je souhaite que les images importés se place en face des des référence en colonne C plus précisément j’ai en B2 la référence 123 il faut que l’image nommé 123 se place en cellule C2 et ainsi de suite
Est t-il possible de faire cela ?
Voila le propos : j’ai nommé toutes mes images que je souhaite importer.
Toute les référence de mes images sont en colonne B et je souhaite que les images importés se place en face des des référence en colonne C plus précisément j’ai en B2 la référence 123 il faut que l’image nommé 123 se place en cellule C2 et ainsi de suite
Est t-il possible de faire cela ?
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
18 févr. 2017 à 16:22
18 févr. 2017 à 16:22
Finalement j’y suis arrivée avec votre aide seulement il me manque un dernier éléments pour finaliser mon projet
Voila le propos : j’ai nommé toutes mes images que je souhaite importer.
Toute les référence de mes images sont en colonne B et je souhaite que les images importés se place en face des des référence en colonne C plus précisément j’ai en B2 la référence 123 il faut que l’image nommé 123 se place en cellule C2 et ainsi de suite
Est t-il possible de faire cela. ?
Voila le propos : j’ai nommé toutes mes images que je souhaite importer.
Toute les référence de mes images sont en colonne B et je souhaite que les images importés se place en face des des référence en colonne C plus précisément j’ai en B2 la référence 123 il faut que l’image nommé 123 se place en cellule C2 et ainsi de suite
Est t-il possible de faire cela. ?
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
18 févr. 2017 à 16:39
18 févr. 2017 à 16:39
Voilà un exemple:
http://www.cjoint.com/c/GBspMtT6PBQ
http://www.cjoint.com/c/GBspMtT6PBQ
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
>
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
18 févr. 2017 à 22:59
18 févr. 2017 à 22:59
il y a des sub l'un a la suite est ce que c'est un piège?
ton exemple ne fonctionne pas ou alors il faut le sacrément le modifier afin de l'adapter a ce que je veux faire ce qui dépasse mes capacité comment je peux le faire à partir du code que j'ai créer voici le code:
Sub inserer_image()
rep = "C:\Users\erdogan\Pictures\branchement provisoire de goutiere\"
'rep = "C:\Users\erdogan\Pictures\photo matiere premiere accessoire outillage\matiere premiere\raccords cuivre\photo decoupe et retouche pour catalogue excel\"
'Fichier = Dir(rep & "*.jpg")
Fichier = Dir(rep & Cells(i, 2).Value & "*.jpg")
i = 2
Do While Fichier <> ""
Cells(i, 3).Value = Fichier
Cells(i, 3).Select
Set Image = ActiveSheet.Pictures.Insert(rep & Fichier)
Image.Name = Fichier
ActiveSheet.Shapes(Fichier).LockAspectRatio = msoFalse
ActiveSheet.Shapes(Fichier).Height = 70
ActiveSheet.Shapes(Fichier).Width = 70
'Rows(i & ":" & i).RowHeight = 100
Columns("C:C").ColumnWidth = 14
Rows.RowHeight = 100
'ActiveSheet.Shapes(Fichier).AutoShapeType = msoShapeRoundedRectangle
ActiveSheet.Shapes(Fichier).IncrementLeft 15.5
ActiveSheet.Shapes(Fichier).IncrementTop 15.5
i = i + 1
Fichier = Dir
Loop
End Sub
j’ai en B2 la référence 123 il faut que l’image nommé 123 se place en cellule C2 et ainsi de suite
ton exemple ne fonctionne pas ou alors il faut le sacrément le modifier afin de l'adapter a ce que je veux faire ce qui dépasse mes capacité comment je peux le faire à partir du code que j'ai créer voici le code:
Sub inserer_image()
rep = "C:\Users\erdogan\Pictures\branchement provisoire de goutiere\"
'rep = "C:\Users\erdogan\Pictures\photo matiere premiere accessoire outillage\matiere premiere\raccords cuivre\photo decoupe et retouche pour catalogue excel\"
'Fichier = Dir(rep & "*.jpg")
Fichier = Dir(rep & Cells(i, 2).Value & "*.jpg")
i = 2
Do While Fichier <> ""
Cells(i, 3).Value = Fichier
Cells(i, 3).Select
Set Image = ActiveSheet.Pictures.Insert(rep & Fichier)
Image.Name = Fichier
ActiveSheet.Shapes(Fichier).LockAspectRatio = msoFalse
ActiveSheet.Shapes(Fichier).Height = 70
ActiveSheet.Shapes(Fichier).Width = 70
'Rows(i & ":" & i).RowHeight = 100
Columns("C:C").ColumnWidth = 14
Rows.RowHeight = 100
'ActiveSheet.Shapes(Fichier).AutoShapeType = msoShapeRoundedRectangle
ActiveSheet.Shapes(Fichier).IncrementLeft 15.5
ActiveSheet.Shapes(Fichier).IncrementTop 15.5
i = i + 1
Fichier = Dir
Loop
End Sub
j’ai en B2 la référence 123 il faut que l’image nommé 123 se place en cellule C2 et ainsi de suite
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié par cs_Le Pivert le 19/02/2017 à 08:10
Modifié par cs_Le Pivert le 19/02/2017 à 08:10
Mon code fonctionne très très bien. il suffit de chercher ton dossier images!
il y a des sub l'un a la suite est ce que c'est un piège?
Tu ne serais pas un peu parano. Il y a une sub pour chercher le dossier image et une sub pour importer ces images. Le reste sert à réinitialiser la feuille si on le désire. Quand on fait du vba il faut savoir lire les macros, c'est la moindre des choses. C'est ma dernière intervention, voici une seule sub, comme cela tu ne pourras pas te tromper:
Ps dans le code que tu as montré, il n'y a aucune variable déclarée. Apprends toi à mettre Option Explicit au début de ton module.
il y a des sub l'un a la suite est ce que c'est un piège?
Tu ne serais pas un peu parano. Il y a une sub pour chercher le dossier image et une sub pour importer ces images. Le reste sert à réinitialiser la feuille si on le désire. Quand on fait du vba il faut savoir lire les macros, c'est la moindre des choses. C'est ma dernière intervention, voici une seule sub, comme cela tu ne pourras pas te tromper:
Sub ImportImages()
Dim start As Single
Dim répertoirePhoto, nf As Variant
Dim img As Object
Dim Derlig As Integer
ActiveSheet.DrawingObjects.Delete
répertoirePhoto = "C:\Users\erdogan\Pictures\branchement provisoire de goutiere\"
nf = Dir(répertoirePhoto & "*.jpg") ' premier fichier
Range("C1").Select
start = Timer
Do While nf <> ""
Set img = ActiveSheet.Pictures.Insert(répertoirePhoto & nf)
img.Top = ActiveCell.Top
img.Left = ActiveCell.Left
img.Height = 70
img.Width = 70
img.Name = Left(nf, Len(nf) - 4) ' Donne un nom à l'image
ActiveCell.Offset(0, -1) = Application.Proper(Left(nf, Len(nf) - 4))
ActiveCell.EntireRow.RowHeight = img.Height
ActiveCell.EntireColumn.ColumnWidth = (img.Width / 5.5) - 0.2
nf = Dir ' suivant
ActiveCell.Offset(1, 0).Select
Loop
Worksheets("Feuil1").Columns("B:B").AutoFit
Derlig = Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
MsgBox "Importation de " & Derlig & " images en " & Round(Timer - start, 2) & " sec", vbDefaultButton1, "Importer images"
End Sub
Ps dans le code que tu as montré, il n'y a aucune variable déclarée. Apprends toi à mettre Option Explicit au début de ton module.
KARPUZ
Messages postés
15
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
18 février 2017
23 janv. 2017 à 16:29
23 janv. 2017 à 16:29
Vous ne m'aider pas du tout
merci
merci
yg_be
Messages postés
22707
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 avril 2024
1 471
23 janv. 2017 à 20:50
23 janv. 2017 à 20:50
bonsoir, c'est probablement parce que tu ne cherches pas un petit coup de pouce.
nous demandes-tu si c'est possible de faire cela, ou nous demandes-tu de le faire pour toi?
cs_Le Pivert t'a très gentiment donné un exemple qui montre que c'est possible, et que tu peux adapter pour réaliser ce que tu souhaites. Je suis surpris que cela ne t'aide pas du tout.
nous demandes-tu si c'est possible de faire cela, ou nous demandes-tu de le faire pour toi?
cs_Le Pivert t'a très gentiment donné un exemple qui montre que c'est possible, et que tu peux adapter pour réaliser ce que tu souhaites. Je suis surpris que cela ne t'aide pas du tout.
23 janv. 2017 à 00:59