Insertion image dans un onglet

Bonjour à tous,

On me demande d'insérer un avatar aprés connection.

Avec ce code, çà m'ouvre le dossier de la photo mais n'insère pas l'image.

Dim PHOTO As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single

PHOTO = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
Gauche = Range("Fanny").Left
Sommet = Range("Fanny").Top
Largeur = Range("Fanny").Width
Hauteur = Range("Fanny").Height

chemin = "C:\Users\Pairaud\OneDrive\Documents\EXCEL\JOB\Fanny-assurance\" & TextBox_utilisateur & ".jpg"
If PHOTO <> False And Dir(chemin) <> "" Then
Sheets("Page d'acceuil").Range("L13").Shapes.AddPicture PHOTO, True, True, Gauche, Sommet, Largeur, Hauteur
End If

Merci de votre aide.

Cdt

Bonjour,

Range("Fanny")?????

Où se situe la cellule (ou la plage) nommée "Fanny"?

Si dans l'onglet "gestion accès", tu as bien 2 cellules (A22 et B22) contenant cette information, elles s'appellent toujours A22 et B22, et non "Fanny"

Bon appétit

Même résultat

Dim PHOTO As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single

PHOTO = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
Gauche = Sheets("Gestion des accès").Range("A22").Left 'nom Gestion des accès pour moi
Sommet = Sheets("Gestion des accès").Range("A22").Top
Largeur = Sheets("Gestion des accès").Range("A22").Width
Hauteur = Sheets("Gestion des accès").Range("A22").Height

'PHOTO = "C:\Users\Pairaud\OneDrive\...assurance\" & TextBox_utilisateur & ".jpg"
If PHOTO <> False Then 'And Dir(chemin) <> "" Then
Sheets("Page d'acceuil").Range("L13").Shapes.AddPicture PHOTO, True, True, Gauche, Sommet, Largeur, Hauteur
End If

Bon appétit.

Re-,

Non, pas le même!!!!

Tout d'abord, l'onglet "Page d'acceuil" (oupssss)n'existe pas

Et ensuite, l'instruction AddPicture s'emploie au niveau de l'onglet, et non d'une cellule..

Si j'ai bien compris...

Sub ins_photo()
Dim PHOTO As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single
'PHOTO = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
PHOTO = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
With Sheets("acceuil")
    Gauche = .Range("L13").Left
    Sommet = .Range("L13").Top
    Largeur = .Range("L13").Width
    Hauteur = .Range("L13").Height
    'PHOTO = "C:\Users\Pairaud\OneDrive\...assurance\" & TextBox_utilisateur & ".jpg"
    If PHOTO <> False Then 'And Dir(chemin) <> "" Then
        .Shapes.AddPicture PHOTO, True, True, Gauche, Sommet, Largeur, Hauteur
    End If
End With
End Sub

Ce code va insérer ta photo dans la cellule L13 de l'onglet "acceuil" (re-oupssss!!!)

Cà fonctionne sans le dir, enfin il faut quand même cliquer sur la photo à chaque fois pour la charger.

mais c'est minuscule.

L13 en acceuil (page d'accueil pour moi), c'est l'emplacement.

Mais comme çà détermine la largeur et hauteur, je vois pas comment agrandir la photo.

fronck a écrit :

Cà fonctionne sans le dir, enfin il faut quand même cliquer sur la photo à chaque fois pour la charger.

mais c'est minuscule.

L13 en acceuil (page d'accueil pour moi), c'est l'emplacement.

Mais comme çà détermine la largeur et hauteur, je vois pas comment agrandir la photo.

Re-,

Si tu connais le chemin, tu peux (comme tu l'as déjà marqué dans ton code), charger la photo en fonction de la valeur de A22..

Et pour la taille, tu peux la fixer directement en entrant les valeurs Largeur et Hauteur en dur dans le code...