Erreur d'execution 424

[carlos]

Bonjour

Je n'arrive pas à trouver la solution sur cette erreur d'execution 424.

Set Plage = Range("B1:X" & Range("b65000").End(xlUp).Row)
Plage.Copy
Set userform1.MultiPage1.Pages(6).Image5.Picture = PastePicture
Range("B3").Select

l'essreur est sur : Set Natation.MultiPage1.Pages(6).Image5.Picture = PastePicture
Merci

Carlos

 

[xhudi69]

Re : Erreur d'execution 424

Bonjour carlos, le Forum,

il serait bon d'avoir un bout de ton fichier pour vérifier la procédure (module) PastePicture.

@+

 

[job75]

Re : Erreur d'execution 424

Bonjour carlos, xhudi69,

PastePicture n'existe ni sur Excel 2003, ni sur Excel 2010.

C'est la fonction LoadPicture qu'on utilise pour charger une image (à partir d'un fichier image).

A+

 

[xhudi69]

Re : Erreur d'execution 424

Bonsoir carlos, le Forum,
Bonsoir job75

@ job75: Je pensais que carlos utilise un Module nommé PastePicture () que j'utilise courament pour coller mes Shapes dans des Objets Image, mais sans fichier exemple............

@+

 

[job75]

Re : Erreur d'execution 424

Bonjour carlos, xhudi69, le forum,

Voyez le fichier joint et cette macro dans l'USF :

Private Sub UserForm_Initialize()
Dim fichier$
MultiPage1.Value = 0 'par exemple la 1ère page
fichier = ThisWorkbook.Path & "\MonImage.jpg" 'chemin à adapter
With Range("B1:E" & Range("B65000").End(xlUp).Row)
  .CopyPicture
  'création du fichier JPEG
  With ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height).Chart
    .Paste
    .Export fichier, "JPG"
    .Parent.Delete
  End With
  'chargement de l'image et suppression du fichier
  Image1.Picture = LoadPicture(fichier)
  Kill fichier
End With
End Sub

Le fichier JPEG est créé en passant par un graphique, méthode classique.

A+

 

[job75]

Re : Erreur d'execution 424

Re,

Dans ce fichier (2) un Frame avec ScrollBars permet de faire défiler l'image :

Private Sub UserForm_Initialize()
Dim fichier$
MultiPage1.Value = 0 'par exemple la 1ère page
fichier = ThisWorkbook.Path & "\MonImage.jpg" 'chemin à adapter
With Range("B1:H" & Range("B65000").End(xlUp).Row)
  .CopyPicture
  'création du fichier JPEG
  With ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height).Chart
    .Paste
    .Export fichier, "JPG"
    .Parent.Delete
  End With
  'chargement de l'image et suppression du fichier
  Image1.Picture = LoadPicture(fichier)
  Kill fichier
  'dimensionnement
  Image1.Height = .Height
  Image1.Width = .Width
  Frame1.ScrollHeight = .Height
  Frame1.ScrollWidth = .Width
End With
End Sub

Nota : chez moi (Excel 2003) une bordure pleine apparaît après la 12ème ligne.

Je n'en vois pas la raison, quelqu'un sait-il comment l'éviter ?

A+

 

[job75]

Re : Erreur d'execution 424

Nota : chez moi (Excel 2003) une bordure pleine apparaît après la 12ème ligne.

Je n'en vois pas la raison, quelqu'un sait-il comment l'éviter ?

L'image JPEG créée (fichier joint) a cette bordure pleine, mais pourquoi

A+

 

[job75]

Re : Erreur d'execution 424

Re,

J'ai trouvé Plus de problème avec :

.CopyPicture Format:=xlBitmap

Fichier (3).

A+

 

[job75]

Re : Erreur d'execution 424

Re,

J'ai été voir sur mon portable avec Excel 2010.

Le fichier (2) n'a pas de bordure pleine...

Mais il apparaît des bandes blanches si l'on utilise les 2 ScrollBars...

A+

 

[job75]

Re : Erreur d'execution 424

Re,

Le problème venait du fait que l'image était légèrement tronquée.

J'ai donc ajouté + 5 aux dimensions de l'image.

Fichier (4).

A+

 

[xhudi69]

Re : Erreur d'execution 424

Bonsoir carlos, le Forum,
Bonsoir job75

En PJ une autre méthode, à voir..............

@+

 

[xhudi69]

Re : Erreur d'execution 424

Bonsoir carlos, le Forum,
Bonsoir job75

Désolé:

Frame1.PictureSizeMode = fmPictureSizeModeStretch (dans les propriétés de l'Object)

Pour éliminer la zone grise en bas

@+