Macro permettant une sélection conditionnelle et collage en tant qu'image

[sellig 29]

Bonjour à tous,

J'aimerai créé une macro qui puisse sélectionner des données sous conditions et les coller ensuite dans un dossier annexe en tant qu'image. Est-ce possible?😕
J'ai apporté des explications plus fines dans le fichier joint.
Merci par avance pour votre aide.

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Je double clic sur le fichier! Si je l'ouvre avec paint, le cadre est idem. C'est toutefois un cadre relativement minime (1 à 2 mm) donc ce n'est pas trop "grave"!
Pour la fusion, c'est OK
Reste l'utilisation de la macro via un bouton dans la barre de tâche. Je ne sais pas si c'est envisageable?

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

ce n'est pas dans la barre des taches que je vous propose mais peut-être que ça vous plaira

😎

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

C'est impeccable Gilbert! Merci beaucoup.🙂
Pour le nomage du fichier GIX au nom de la cellule A1 correspondant à la feuille sélectionnée, j'ai fait quelques essais de code 🙁. Pour l'instant je n'ai pas trouvé la solution, mais je ne désespère pas... Ce qui bloque c'est que la feuille sélectionnée n'est pas toujours la même!
Cordialement, encore merci.
Gilles

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonjour

pas compliqué pourtant....... attention ce n'est pas une extension .gix 😉

varFullPath = Application.GetSaveAsFilename("C:\Temp\" & ActiveSheet.[a1].Value & ".gif", "Fichiers GIF (*.gif), *.gif")

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonsoir,
J'ai essayé le code mais la cellule A1 n'est pas prise en compte? Le fichier se nome: .GIF

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

faire un essai en ecrivant juste avant l'enregistrement

Msgbox(ActiveSheet.[a1].Value)

là il devrait y avoir le contenu de la cellule A1 de la page active d'inscrit dans la boite de message sinon il y a un problème dans le chemin 😎

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

J'ai essayé, la Msgbox apparait mais le fichier ne prend pas pour autant le nom de la cellule A1!😕

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

il y a quoi d'inscrit dans la msgbox

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Autre solution
declarer nomfich as string

en dessous de la selection de feuille mettre
nomfich = Sheets(rep).[a1].Value

ensuite remplacer la ligne

varFullPath = Application.GetSaveAsFilename("C:\Temp\export-" & Format(Now, "yyyymmddhhnn") & ".gif", "Fichiers GIF (*.gif), *.gif")

par

varFullPath = Application.GetSaveAsFilename("C:\Temp\" & nomfich & ".gif", "Fichiers GIF (*.gif), *.gif")

et là ça doit fonctionner

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

OK merci Gilbert c'est impec!🙂

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonjour,
Je reviens sur le sujet que je pensais abouti... Merci Gilbert🙂
En adaptant la macro à un autre fichier, il apparait parfois un bug lors de l'édition de l'image GIF (l'image est une sorte de cube?) et exel cesse de fonctionner🙁
J'aurai à nouveau besoin de votre aide pour sollutionner ce problème

 

[gilbert_RGI]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

bonjour

sur quelle page il y a t il le bug
car je viens d'essayer sur la page 6 et ça fonctionne correctement

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Je viens d'essayer sur la feuille 6 , le bug apparait! Tu travailles sur excel 2007, je pense que la différence vient de la! la bordure blanche qui n'apparait pas non plus chez toi... Difficile effectivement de corriger une anomalie que tu ne peux pas constater!
Gilles

 

[sellig 29]

Re : Macro permettant une sélection conditionnelle et collage en tant qu'image

Bonjour à tous,
Je fais appel à un utilisateur de excel 2003, qui puisse constater le "bug" (post "26), et surtout, m'aider à le résoudre!! Pour activer la macro; clic droit "Selection image" + OK.
Merci d'avance