Prendre un cliché de la selection de celules(vba)
Description
ce petit fichier prend un cliché de la selection actuelle vous montre un apercu dans un usf en plein ecran ou pas
vous demande le nom de l'image qui sera sauvegarder sur votre bureau
tres pratique quand on veux expliquer une erreur ou une action ou tout simplement pour garder un cliché d'une feuille avec des données importantes
utilisation de la user32.dll et gdi32.dll
l'item " prendre un cliché de la selection" a été ajouté au menu contextuel des celules
le principe :
copy de la selection dans le clipboard(presse papier)
recuperation de l'element dans le clipboard et transformation en BITMAP
remplissage du control image dans l'userform(apercu)
sauvegarde du BITMAP au format "jpeg" sur le bureau de l'utilisateur actuel
edit le 06 03 20011
j'ai modifier le menu contextuel
un item a été ajouté
"ouvrir avec paint" pour d'eventuelles modifications
je n'utilise plus le input box pour nommer le fichier de sortie
j'ai opter pour le "Application.GetSaveAsFilename" le nom devra etre inscrit sur cette fenetre de dialog
le menu affichage a été retouché l'item mode reduit a été ajouté
09.03.2001 munucontextuel completement revu
bonjour a tous
voila la version 6 de mon application "prendre un cliché de la sélection"
nouveauté:
menu contextuel de l'userform complètement revu
item 1 popup affichage
sous item 1=plein écran
sous item 2=mode fenêtre
sous item 3=mode réduit
item 2 popup impression
sous item 1 ="impression"
sous item 2= "aperçu avant impression"
sous item 3="impression en noir et blanc"
item 3 ="Annuler"
item 4 = "enregistrer"
item 5 =popup "modifier avec"
sous item1 = "ouvrir avec paint"
sous item 2 = "ouvrir avec " cet item propose la fenêtre dialogue pour choisir le programme avec le quel vous voulez ouvrir le cliché
je le pose au format "xls" mais ça fait toujours un excellent et utile addins(xla)
c'est un tout petit truc mais pour ce qui partagent beaucoup dans les forums c'est un bon outils
sans pretentions j'espere qu'il vous sera utile
voila pour la 4 eme version il grandi le bébé
au plaisir
09.03.20011 voila la 6 eme version
vous demande le nom de l'image qui sera sauvegarder sur votre bureau
tres pratique quand on veux expliquer une erreur ou une action ou tout simplement pour garder un cliché d'une feuille avec des données importantes
utilisation de la user32.dll et gdi32.dll
l'item " prendre un cliché de la selection" a été ajouté au menu contextuel des celules
le principe :
copy de la selection dans le clipboard(presse papier)
recuperation de l'element dans le clipboard et transformation en BITMAP
remplissage du control image dans l'userform(apercu)
sauvegarde du BITMAP au format "jpeg" sur le bureau de l'utilisateur actuel
edit le 06 03 20011
j'ai modifier le menu contextuel
un item a été ajouté
"ouvrir avec paint" pour d'eventuelles modifications
je n'utilise plus le input box pour nommer le fichier de sortie
j'ai opter pour le "Application.GetSaveAsFilename" le nom devra etre inscrit sur cette fenetre de dialog
le menu affichage a été retouché l'item mode reduit a été ajouté
09.03.2001 munucontextuel completement revu
bonjour a tous
voila la version 6 de mon application "prendre un cliché de la sélection"
nouveauté:
menu contextuel de l'userform complètement revu
item 1 popup affichage
sous item 1=plein écran
sous item 2=mode fenêtre
sous item 3=mode réduit
item 2 popup impression
sous item 1 ="impression"
sous item 2= "aperçu avant impression"
sous item 3="impression en noir et blanc"
item 3 ="Annuler"
item 4 = "enregistrer"
item 5 =popup "modifier avec"
sous item1 = "ouvrir avec paint"
sous item 2 = "ouvrir avec " cet item propose la fenêtre dialogue pour choisir le programme avec le quel vous voulez ouvrir le cliché
je le pose au format "xls" mais ça fait toujours un excellent et utile addins(xla)
Conclusion :
c'est un tout petit truc mais pour ce qui partagent beaucoup dans les forums c'est un bon outils
sans pretentions j'espere qu'il vous sera utile
voila pour la 4 eme version il grandi le bébé
au plaisir
09.03.20011 voila la 6 eme version
Codes Sources
A voir également
- Prendre un cliché de la selection de celules(vba)
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Byval vba - Conseils pratiques -Visual Basic / VB.NET
- Vba formular1c1 - Forum Visual Basic
- Vba modulo - Forum Visual Basic
- Vba dernière ligne ✓ - Forum Visual Basic 6
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.