retrouver dossier

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #18701831
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



srogeau
Le #18702021
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... "
isabelle
Le #18702501
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... "



Publicité
Poster une réponse
Anonyme