Résultats pour "enregistrer image"

1'251 résultats pour cette recherche

Bonjour à tous,

J'ai une macro qui m'enregistre automatiquement ma feuille en format pdf avec le nom exacte que je veux, c'est à dire la valeur d'une cellule_Valeur d'une autre cellule. Tout ceci est parfait pour mon application (c'est a dire un appareil unique). voici le code:

Sub enregistrerRU227()
Dim nompdf As String

On Error GoTo erreur

    nompdf = "\\server2016\QUALITE\1 - METROLOGIE\CERTIFICATS\RUGOSIMETRE\RU 227\Certificat\" & Range("A9").Value & "_" & Format([I9], "dd_mm_yy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
End Sub

Cependant, cette fois j'aimerai une macro bouton, ou lorsque j'appuie sur le bouton, il commence l'étape d'enregistrer sans la finir, c'est à dire qu'il va sur le chemin prédéfini \\server2016\QUALITE\1 - METROLOGIE\CERTIFICATS\TAMPON LISSE\ il choisie le fomat .pdf et j'aurai juste à rentrer/taper le nom que je désire pour le fichier.

Je ne sais pas si c'est réalisable. Si non, ben je me démerderai .

Je vous joins la feuille excel en question. Merci d'avance!

Je pense que sa peu bloqué sur le fait qu'on prédéfinisse le .pdf, si sa bloque sur ce sujet on peut passer outre le .pdf et "juste" prédéfinir le chemin pour enregistrer.

Bonjour à tous

Lorsque l'on ferme un classeur, Excel ouvre une msgbox et propose 3 options :

1 Enregistrer

2 Ne pas enregistrer

3 Annuler

Je voudrais savoir s'il est possible de la modifier et avoir seulement l'option ENREGISTRER et comment faire.

Merci pour votre aide, bonne journée

Bonjour le forum,

dans mon projet, j'arrive à insérer l'image que je veux mais je n'arrive pas redimensionner l'image et à trouver le code qui va me permettre d'enregistrer l'image dans un dossier que j'ai créé.

Par exemple, en cliquant sur ENREGISTRER, les infos partent dans la feuille Excel et je souhaiterais que l'image soit enregistrer dans mon fichier:" C:\Nouveau dossier."

Je joint mon fichier

118badge.zip (12.06 Ko)

Hello à tous,

Tout d'abord, merci @Steelson pour son aide concernant ma demande sur la création de QRCode.

Pour résumer, voici ce qu'il en est:

Le but est de réaliser un publipostage via Word avec les infos de la feuille Excel.

FIchier Excel créant un QRCode via des infos sur la Feuil1.

Le QRCode n'est pas lié a une cellule.

Le QRCode est enregistré via une Macro dans le fichier où est placé le fichier Excel.

PB: L'image enregistré en .jpg est "vide" enfin il n'y a que le cadre et pas le QRCode.

Je vous joins un fichier en exemple et encore un grnad merci à Steelson pour son aide et à vous tous qui aurez une idée.

PS: Je suis sur Excel 2016 EN. (Peut-être est-ce là le souci...)

Merci.

Bonjour à toutes et à tous,

j'ai un onglet excel qui me sert de menu le classeur s'appelle "borne logistique"

j'ai plusieurs logo qui me renvoit tous vers des fichiers excel

j'ai ajouté un lien hypertexte sur les images de mon menu

j'aurais souhaité soit fermer le fichier que je viens d'ouvrir après un certain temps ou en cliquant sur une image.

en fouillant un peu partout j'ai trouvé cela pour la fermeture après délai

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:01:00"), "FermerClasseur"
End Sub

par contre cela me demande si je veux enregistrer les modifications et je ne veux surtout pas.

pour la fermeture sans enregistrer en cliquant sur une image je n'ai rien trouvé

pourriez vous m'aider svp

Bonjour, j'ai un problème. J'aimerais prendre un graphique Excel et le mettre en mode image jpeg sur un PowerPoint

Le code que j'utilise est

Sheets("TRDPC & TROLA IT").Activate
chemin = ThisWorkbook.Path & "\graph1.jpg"
ActiveSheet.ChartObjects(1).Chart.Export Filename:=chemin, filtername:="JPG"
Set objImageBox = .Slides(1).Shapes.AddPicture(chemin, msoCTrue, msoCTrue, 20, 189, 410, 190)

Le problème en fait est que le fichier Excel est sur un SharePoint. Du coup, ce qui coince, c'est que le chemin n'existe pas ! Existe t-il un autre moyen de copier un graphique en mode jpeg sans utiliser un chemin ? Ou alors, existe t-il un chemin qui est accessible pour tous les membres de mon équipe ? C'est à dire on pourrait utiliser un chemin de la forme C: ... et qui pourrait marcher pour toutes les personnes utilisant ce fichier ?

Merci pour votre aide

Bonjour,

Je cherche à enregistrer au format image une plage de cellule (contenant des graphiques) via un code VBA. Après avoir cherché un peu sur les divers forum j'ai cru comprendre qu'une des solutions serait de stocker temporairement la plage dans un chartobject puis de l'exporter en image. J'ai ce code pour le moment :

Sub test1()
'inspiré en grande partie de http://excel-malin.com/vba-astuces/excel-vers-jpg/
Application.ScreenUpdating = False
On Error GoTo ExportErreur

Dim Plage As Range
Dim FichierImage As String

Set Plage = Range("D4:I10").Cells
Plage.CopyPicture Appearance:=xlScreen, Format:=xlPicture

With ActiveSheet.ChartObjects.Add(Left:=Plage.Left, Top:=Plage.Top, Width:=Plage.Width, Height:=Plage.Height)
    .Name = "ExportImage"
    .Activate
End With
ActiveChart.Paste
FichierImage = Application.GetSaveAsFilename(InitialFileName:="*.jpg", FileFilter:="Image file (*.jpg), *.jpg")
ActiveSheet.ChartObjects("ExportImage").Chart.Export FichierImage
ActiveSheet.ChartObjects("ExportImage").Delete

Application.ScreenUpdating = True
Exit Sub
ExportErreur:
    MsgBox "Une erreur est survenue..."
Application.ScreenUpdating = True
End Sub

Quand on rentre un nom de fichier et qu'on clique sur ok : tout va bien, ça fonctionne au poil.

Cependant si on clique sur annuler dans la boite de dialogue "save as", ça merdouille un peu :

  • ça met le message d'erreur de "ExportErreur", mais en quoi est-ce une erreur ?
  • ça crée un fichier "faux" sans extension et pesant 0 octet dans le chemin par défaut
  • ça laisse le chartobject par dessus la plage de cellule.

Est-ce que quelqu'un aurait une idée de comment éviter ces 3 désagréments ?

Et dans le code que j'ai utilisé je ne comprends pas comment c'est possible que la variable string FichierImage puisse prendre la valeur Application.GetSaveAsFilename(...), je trouve ça bizarre pour une string...

En vous remerciant par avance pour vos réponses.

Bonjour à tous,

Je suis totalement novice en VBA et je vous remerci d'avance de vos aides !

Je souhaiterais créer une formule vba permettant d'enregistrer les images de mon fichier Excel en cliquant dessus.

Je m'explique par un exemple :

  • J'ai un fichier Excel comportant par exemple 100 images que j'ai implanter dans une colonne.
  • Je possède le dossier source des images comportant au total 1000 images

Je voudrais pouvoir rien qu'en cliquant retrouver l'image dans le dossier source ou directement pouvoir l'enregistrer dans un nouveau dossier.

Je répondrais à toutes vos questions.

Merci

Bonjour à tous,

Je suis totalement novice en VBA et je vous remerci d'avance de vos aides !

Je souhaiterais créer une formule vba permettant d'enregistrer les images de mon fichier Excel en cliquant dessus.

Je m'explique par un exemple :

  • J'ai un fichier Excel comportant par exemple 100 images que j'ai implanter dans une colonne.
  • Je possède le dossier source des images comportant au total 1000 images

Je voudrais pouvoir rien qu'en cliquant retrouver l'image dans le dossier source ou directement pouvoir l'enregistrer dans un nouveau dossier.

Je répondrais à toutes vos questions.

Mer

Bonjour à tous

Je suis sous Excel 2003. Je souhaite enregistrer mes graphiques dans un format image, afin de les coller dans un logiciel de DAO pour un collègue.

Est-ce que quelqu'un à une idée de la méthode?

j'ai trouvé sur google un code, mais il bug, je vous le montre tout de même :

Dim NomGraph As String                                      'On récupére le nom graphique
Fich As String                                                       ' Adresse de reception du graphique

NomGraph = ActiveChart.Name
Fich = c:/......       ' l'endroit où vous voulez mettre votre graphique
ActiveChart.Export ActiveChart.Export Filename:= Fich & NomGraph & ".jpg", FilterName:="JPEG"
end sub

Merci pour votre aide!

EDIT : Nous avons PDF Créator au boulot, je vais passer par là.

Merci et désolé pour ceux qui seraient en train de plancher.

Bonjour,

je souhaite insérer une image dans un vba pour ensuite pouvoir l'exporter vers un ppt. J'ai à peu près réussi à tout faire mais j'ai un dernier soucis, lorsque que je charge un image dans mon fichier excel via ce code:

Fichier = "C:\Documents\image.jpg"

ActiveSheet.Pictures.Insert(Fichier).Select

A chaque fois que je charge l'image prend le nom "image X" où X s'incrémente à chaque fois. De fait c'est compliquer pour ensuite derrière pouvoir gérer l'image si le nom n'est pas fixe ou choisis. Car même si je supprimer l'image manuellement ou la renomme, l'incrémentation continue.

Ma question donc la suivante: "Comment choisir le nom de l'image excel lors de l'importation?"

Bonjour à vous tous,

Je viens voir dans ce forum si qqun aurait une solution à mon problème.

Voilà, j'ai un tableau excel avec des données de contact, dans ce fichier, j'ai un userform pour faire une recherche qui indique les données principales du contact. Après, sur ce userform, j'ai un bouton qui ouvre un 2ème userform pour voir les détails en profondeur.

Dans l'ensemble j'arrive a trouver mon bonheur avec 1 ou 2 bouquins et aussi beaucoup sur des forums, mais maintenant, j'ai un souci avec des images.

Je aimerais bien que dans ce 2ème userform s'affiche des images qui se trouvent dans une autre feuille du fichier excel toujours en se référant au tableau de la feuille 1. Dans la colonne "AY"

D'avance, je vous remercie.

P.S. Dans le fichier, j'ai mis 4 images, 2 tout simplement importée et 2 autres dans des contrôles images... je ne sais pas quelle est la meilleures possibilité.

Jess

24test.xlsm (819.13 Ko)

Bonjour,

J'ai un fichier Excel "source" dont je souhaite exporter le contenu vers un fichier word "rapport".

Le fichier word "rapport" (modele_word.dotm) contient 3 signets : "titre_du_rapport", "tableau_resultats" et "graphique".

Avec le code ci-dessous je parviens à récupérer le nom du rapport depuis Excel, l'écrire dans word et l'utiliser pour le nom du fichier Word sauvegardé.

Le code permet de copier le tableau depuis Excel et le colle dans Word en tant que tableau et non en tant qu'image du tableau copié. Je n'ai pas trouvé le bon attribut pouvez vous m'aider ?

Pour la récupération du graphique, qui est dans un onglet "Graph1" j'ai essayé plusieurs pistes mais sans succès, je n'arrive pas à le sélectionner puis le copier, en tant qu'image à nouveau, au niveau du signet Word "graphique"... Est ce que quelqu'un aurait une idée ?

Les autres posts du forum m'ont donné des pistes mais je ne parviens pas à tout relier ensemble. Merci pour votre aide.

Mon code est le suivant :

Sub Export_Word()

Dim Doc_origine As String, Doc_save As String

Dim WordApp As Object

Dim WordDoc As Object

Doc_origine = ActiveWorkbook.Path & "\modele_word.dotm"

Doc_save = ActiveWorkbook.Path & "\" & Sheets("Feuil1").Range("A1").Text & ".docx"

Set WordApp = CreateObject("word.application")

Set WordDoc = WordApp.Documents.Open(Doc_origine, ReadOnly:=False)

WordApp.Visible = False

WordDoc.Bookmarks("titre_du_rapport").Range.Text = Cells(1, 1)

'pour copier le tableau dans word

ThisWorkbook.Worksheets("Feuil1").Range("C3:H22").Copy

WordDoc.Bookmarks("tableau_resultats").Range.PasteSpecial

Application.CutCopyMode = False

WordApp.Visible = True

WordDoc.Application.ActiveDocument.SaveAs Doc_save

End Sub

bonjour,

afin d’améliorer un QCM en VBA, j aurais souhaitez insérer une image d' une cellule dans un cadre image en fonction d une question qui elle se situe dans un textBox.

Si quelqu'un à une idée je suis preneur

Merci par avance

et bonne fêtes de fin d'année

Bonjour à tous,

à nouveau besoin d'un petit coup de main svp

Dans mon fichier Excel, j'ai une colonne contenant des gencods (1 gencod par ligne et par cellule).

Je souhaite que dans la colonne d'à côté, les images d'un dossier choisi et dont le nom correspond au gencod de chaque cellule s'importent automatiquement.

Exemple :

Colonne A; cellule 1 : J'ai mon gencod 1234567891234

Dans un dossier de mon PC, j'ai un fichier image nommé 1234567891234.jpg

Je souhaite que dans B1, l'image s'importe automatiquement.

A savoir que je peux avoir beaucoup de ligne.

Est-ce possible svp ?

Version d'Excel : Famille et petite entreprise 2016 WINDOWS

Bonjour le forum

Je pose mon problème

Un tableau de A à E

A = Nom (TextBox1)

B = Numéro de ligne (TextBox2)

C = Chemin de l'image (Lbl_Image)

D= Image du Nom (Image1)

E = Si Pas Image

Je souhaiterai intégré ceci dans le code di*dessous

si TextBox1 en colonne A2:A n'a pas d'images dans la feuille "Images" de son emplacement attribué de la colonne D2:D

alors charge le logo dans "Image1" de l'userform1 dans la feuille "Images" l'emplacement E2:E5 soit le nom "Pas_Images"

Private Sub CmdB_Ouvrir_Image_Click()
    ' Utiliser la propriété LoadPicture avec GetOpenFilename Méthode pour charger l'image à un contrôle d'image.
    Dim strFltr As String, strTtl As String, strFileName As String
    Dim iFltrIndx As Integer, derlign As Integer
    Dim bMltiSlct As Boolean
    Set Wsi = Sheets("Images")
    ' Valeur de consigne pour les variables à utiliser dans GetOpenFilename Méthode
    strFltr = "Tiff (*.tif;*.tiff),*.tif;*.tiff,JPEG (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap (*.bmp),*.bmp"
    iFltrIndx = 2
    strTtl = "Sélectionnez l'image du contact"
    bMltiSlct = False

    ' Déclaration ChDrive définit le lecteur en cours à C
    ChDrive "C"
    ' Déclaration ChDir définit le répertoire courant C:\Users\Public\Pictures\
    ChDir "C:\Users\Public\Pictures\"        '

    ' Utiliser GetOpenFilename Méthode pour sélectionner l'image: Logo
    strFileName = Application.GetOpenFilename(strFltr, iFltrIndx, strTtl, , bMltiSlct)
    On Error Resume Next
    If strFileName <> "False" Then
        ' Charge image pour le contrôle de l'image, en utilisant la propriété LoadPicture
        Me.Image1.Picture = LoadPicture(strFileName)
        ' Après tout changement vba doit être dit pour rafraîchir la UserForm pour que le changement semble
        Me.Repaint
        ' Etiquette légende change après l'image est chargée
        Me.Lbl_Image.Caption = strFileName
    Else
        MsgBox "Pas d'image sélectionnez!"
    End If
    ' gestionnaire d'erreurs reset
    On Error GoTo 0

End Sub

Cordialement

Bonjour,

Comme vous pourrez le voir dans le fichier joint,

Je remplis un tableau avec une "validation des données liste) et je j'affiche le résultat de la colonne suivante dans mon tableau avec en VBA

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([C4:H7], Target) Is Nothing Then
     Application.EnableEvents = False
     On Error Resume Next
     [Liste].Find(Target, LookAt:=xlWhole).Offset(, 1).Copy Target
     Application.EnableEvents = True
  End If
End Sub

Cela vas très bien avec les symboles existant, mais j'ai besoin d'utiliser des logos personnalisés sous forme d'image (ou autre si vous connaissez d'autres possibilités)

Mais avec les images j'ai deux problèmes.

1 - Lors de mon choix, je voudrais que la macro efface l'image déjà présente quand il y en déjà une, mais je ne sais pas comment faire ?

2 - Dans mon mon tableau "bilan" je sais compter les symboles, mais je ne sais pas compter les images (en H15:I18), est-ce que vous auriez une astuce pour résoudre se problème ?

Merci d'avance pour votre aide

Patrick

Bonsoir tout le monde !

Alors voici mon souci. je suis en train de faire un petit fichier permettant de répertorier sa bibliothèque.

Et je bloque au niveau de la couverture.

En effet, je souhaite qu'en cliquant sur un bouton, cela m'ouvre une fenêtre où je peux aller chercher l'image et quand j'appuie sur ok, elle s'affiche dans le champs image et quand je valide l'userform, elle s'affiche dans une cellule.

Je sèche complètement sur le comment faire :/

Merci d'avance !

287bdd-livres.xlsm (24.07 Ko)

Bonjour

Je suis à la recherche d'un code pour effacer une image qui se trouve sur ma feuille excel dans un "image (contrôle activeX)"

Mon code pour insérer une image.

'Image
Private Sub cboRace_Change()
On Error Resume Next
ActiveSheet.Image1.PictureSizeMode = fmPictureSizeModeZoom
ActiveSheet.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\dossier_Image_Chien\" & Me.cboRace & ".jpg")
If Err <> 0 Then
B = True 'Pour éviter de lancer ma MsGbox
If Not B Then MsgBox Me.cboRace & "Photo introuvable (ou mal orthographié)"
B = False 'Pour éviter de lancer ma MsGbox

End If
End Sub

Je vous remercie de votre aide

Cordialement

Max

Bonjour à tous.

Petite précision pour commencer je suis sur excel 2013 et non 2010 mais le préfixe n'est pas disponible.

Besoin d'un petit peu d'aide avec grand espoir d'en trouver ici!

Voila je vous expose mon problème.

Je développe actuellement une application pour gérer un centre équestre.

Mon classeur est composer de plusieurs base qui sont gérer via une interface créée en userform.

Je me retrouve bloquer sur un point technique pour la partie gestion des planning et des cours.

ma base des cours est constitué. A partir de cette base j'ai développer une macro qui crée sur une autre feuille le planning hebdomadaire qui lui correspond. ce tableau est dimensionner et mis en page via la macro.

Je souhaite alors faire une image de ce planning et l'afficher dans le userform.

J'ai donc penser faire un copier du range contenant le planning, récupérer l'image ainsi copier dans le presse papier et remplir avec l'attribut image d'un contrôle image sur mon userform!

D’après mes recherches cela semble possible, cependant soit cela me fait passer par un enregistrement sur le disque dur ce que je ne souhaite pas puisque cette image sera mise à jour a chaque changement par l'utilisateur, soit cela donne des macro qui me colle tout simplement l'image dans une autre feuille ou dans un contrôle image mais sur la feuille et la complexité de ces codes est au dessus de mes compétences actuelles

Pour plus de compréhension je vous joint un exemplaire de mon travail en pièce jointe.

La base des cours est sur la feuille BaseCours

Le planning est sur la feuille PlanningCours. C'est le tableau (A1:G27) que je souhaite récupérer en image

Le contrôle image de destination souhaité se trouve sur le Userform "FormCoursetPlanning" et se nomme ImagePlanning

Il ne me reste plus qu'a espérer que l'un d'entre vous saura m'aider et à vous remercier par avance!

Recherches récentes

consolidation fichiersconsolidation fichiers power queryauto clickerrecherchev doublonsommeprod mois anneephotoonedrivecaisse enregistreuseouvrir tous fichierscopier derniers caracteres cellulrsredimextraire tableau structuresenregistrer donnees tableau vba boucle forrapportrecherche multicriteres userformvba remplacer textemacro ralentirlistview efface ligneprocedure trop longue vbarapprochement