Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel retrouver dossier

retrouver dossier

3 réponses
Avatar
srogeau
bonjour a tous
pourriez vous m'aider
un morceau de code ne fonctionne plus
et me renvoie "erreur 438 propriete ou methode non gere par cet
objet la partie "activesheet.photo est surlignee
comment y remedier
le code
Private Sub cbxNiveau2_Change()
Sheets("RECHERCHE").[f2] = Me.cbxNiveau2
rep = ActiveWorkbook.Path
rep = "c:\photodepoisson"
With ActiveSheet.photo
If Dir(rep & "\" & Me.cbxNiveau1 & "_" & Me.cbxNiveau2 & ".jpg")
<> "" Then
.Picture = LoadPicture(rep & "\" & Me.cbxNiveau1 & "_" &
Me.cbxNiveau2 & ".jpg")

.Left = Range("f3").Left
.Top = Range("f3").Top
.PictureSizeMode = fmPictureSizeModeZoom
Else
On Error Resume Next
.Picture = LoadPicture(rep & "\transparent.gif")
End If
End With
End Sub
merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour srogeau,

vérifie que l'objet "Image" est toujours présent sur la feuille et que
son nom est "photo"

isabelle

a écrit :
bonjour a tous
pourriez vous m'aider
un morceau de code ne fonctionne plus
et me renvoie "erreur 438 propriete ou methode non gere par cet
objet la partie "activesheet.photo est surlignee
comment y remedier
le code
Private Sub cbxNiveau2_Change()
Sheets("RECHERCHE").[f2] = Me.cbxNiveau2
rep = ActiveWorkbook.Path
rep = "c:photodepoisson"
With ActiveSheet.photo
If Dir(rep & "" & Me.cbxNiveau1 & "_" & Me.cbxNiveau2 & ".jpg")
<> "" Then
.Picture = LoadPicture(rep & "" & Me.cbxNiveau1 & "_" &
Me.cbxNiveau2 & ".jpg")

.Left = Range("f3").Left
.Top = Range("f3").Top
.PictureSizeMode = fmPictureSizeModeZoom
Else
On Error Resume Next
.Picture = LoadPicture(rep & "transparent.gif")
End If
End With
End Sub
merci



Avatar
srogeau
On 18 fév, 15:02, isabelle wrote:
bonjour srogeau,

vérifie que l'objet "Image" est toujours présent sur la feuille et qu e
son nom est "photo"

isabelle

a écrit :

> bonjour a tous
> pourriez vous m'aider
> un morceau de code ne fonctionne plus
>  et me renvoie  "erreur 438 propriete ou methode non gere par cet
> objet la partie "activesheet.photo est surlignee
> comment y remedier
> le code
> Private Sub cbxNiveau2_Change()
>   Sheets("RECHERCHE").[f2] = Me.cbxNiveau2
>   rep = ActiveWorkbook.Path
>  rep = "c:photodepoisson"
>     With ActiveSheet.photo
>       If Dir(rep & "" & Me.cbxNiveau1 & "_" & Me.cbxNiveau2 & ". jpg")
> <> "" Then
>         .Picture = LoadPicture(rep & "" & Me.cbxNiveau1 & "_ " &
> Me.cbxNiveau2 & ".jpg")

>         .Left = Range("f3").Left
>         .Top = Range("f3").Top
>        .PictureSizeMode = fmPictureSizeModeZoom
>       Else
>         On Error Resume Next
>         .Picture = LoadPicture(rep & "transparent.gif")
>       End If
>     End With
> End Sub
> merci



BONJOUR
oui j'ai bien un controle image sur la feuille
j'ai cliquer droit et propriete,noter "photo"dans nom
mais toujours pas de photo qui s'affiche dedans,par contre maintenant
je n'ai plus la boite "erreur 438 etc... "
Avatar
isabelle
bonjour srogeau,

essaie comme ça :

Private Sub cbxNiveau2_Change()
Sheets("RECHERCHE").[f2] = Me.cbxNiveau2
'rep = ActiveWorkbook.Path
rep = "c:photodepoisson"
'On Error Resume Next
With ActiveSheet.photo
If Dir(rep & "" & Me.cbxNiveau1 & "_" & Me.cbxNiveau2 & ".jpg") <> "" Then
.Picture = LoadPicture(rep & "" & Me.cbxNiveau1 & "_" &
Me.cbxNiveau2 & ".jpg")
.Left = Range("f3").Left
.Top = Range("f3").Top
.PictureSizeMode = fmPictureSizeModeZoom
Else
.Picture = LoadPicture(rep & "transparent.gif")
End If
End With
End Sub

isabelle

a écrit :
On 18 fév, 15:02, isabelle wrote:

bonjour srogeau,

vérifie que l'objet "Image" est toujours présent sur la feuille et que
son nom est "photo"

isabelle

a écrit :


bonjour a tous
pourriez vous m'aider
un morceau de code ne fonctionne plus
et me renvoie "erreur 438 propriete ou methode non gere par cet
objet la partie "activesheet.photo est surlignee
comment y remedier
le code
Private Sub cbxNiveau2_Change()
Sheets("RECHERCHE").[f2] = Me.cbxNiveau2
rep = ActiveWorkbook.Path
rep = "c:photodepoisson"
With ActiveSheet.photo
If Dir(rep & "" & Me.cbxNiveau1 & "_" & Me.cbxNiveau2 & ".jpg")
<> "" Then
.Picture = LoadPicture(rep & "" & Me.cbxNiveau1 & "_" &
Me.cbxNiveau2 & ".jpg")

.Left = Range("f3").Left
.Top = Range("f3").Top
.PictureSizeMode = fmPictureSizeModeZoom
Else
On Error Resume Next
.Picture = LoadPicture(rep & "transparent.gif")
End If
End With
End Sub
merci






BONJOUR
oui j'ai bien un controle image sur la feuille
j'ai cliquer droit et propriete,noter "photo"dans nom
mais toujours pas de photo qui s'affiche dedans,par contre maintenant
je n'ai plus la boite "erreur 438 etc... "