message d'erreur avec excel 2010

[zergo]

Bonjour le forum

Cette macro fonctionnait très bien sous excel 2003

depuis le passage en excel 2010 j'ai un message d'erreur sur cette ligne.

----> rap = Val(Split(taille, "x")(0)) / Val(Split(taille, "x")(1))

Quelque 'un a t'il une solution SVP



-------------------------------------------------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell <> "" Then
répertoireImage = "C:\images\" ' à adapter
NomImage = ActiveCell
If Dir(répertoireImage & "\" & NomImage & ".jpg") <> "" Then
With UserForm1
.StartUpPosition = 1
taille = TaillePixelsImage(répertoireImage, NomImage & ".jpg")
rap = Val(Split(taille, "x")(0)) / Val(Split(taille, "x")(1))
.Image1.Height = 300 ' on fixe la hauteur
.Image1.Width = .Image1.Height * rap
.Height = .Image1.Height + 20
.Width = .Image1.Width
.Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".jpg")
.Show
End With
End If
End If
End Sub

---------------------------------------------------------------------------------------------
Function TaillePixelsImage(repertoire, fichier)
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(repertoire)
Set myFile = myFolder.Items.Item(fichier)
TaillePixelsImage = myFolder.GetDetailsOf(myFile, 26)
End Function

---------------------------------------------------------------------------


Merci

 

[Pierrot93]

Re : message d'erreur avec excel 2010

Bonjour,

A tout hasard, regarde si tu n'as pas une référence topée MANQUANTE, dans l'éditeur vba => barre de menu => outils => références, si c'est le cas décoche là...

bonne journée
@+

 

[zergo]

Re : message d'erreur avec excel 2010

Bonjour Pierrot93

Dans les références disponibles je n'ai que ces 5 valeurs de cochées.

visual basic for applications
Microsoft Excel 14.0 object Library
OLE automation
Microsoft office 14.0 object Library
Microsoft forms 2.0 object Library

 

[Pierrot93]

Re : message d'erreur avec excel 2010

Re,

oui semble correct... en l'état pas d'autre idée, à voir ce que valent les variables....

 

[zergo]

Re : message d'erreur avec excel 2010

Re bonjour le forum

Je suis toujours coincé car mes images ne s affiche pas .

Quelqu'un peux t'il m aider.

Merci.

 

[zergo]

Re : message d'erreur avec excel 2010

bonjour

voici un fichier joint

 

[MJ13]

Re : message d'erreur avec excel 2010

Bonjour Zergo, Pierrot

Voir ce fichier si c'est adaptable.