Problème d'affichage power point dans feuille excel avec ActiveSheet.OLEObjects

[templar]

Bonjour,

j'ai enregistré une macro me permettant d'afficher un powerpoint dans une feuille excel. Mon problème est que la premiere fois que je fais appel à ma macro, le tableau n'est pas dimensionné correctement. La deuxieme fois que e click sur le bouton, j'obtiens mon powerpoint correctement dimensioné.

ais je oublié des parametres?

merci

Sub Choix_diapo()
'
' Choix_diapo Macro
' Macro enregistrée le 02/02/2010 par astab
'
Dim zone As Variant
Dim etage As Variant

' Test de la cellule concernant la zone
Call masquer
DoEvents

etage = Cells(3, 4).Value
zone = Cells(3, 3).Value

'recherche des plans dans les dossiers

Dim oFS As Office.FileSearch
Set oFS = Application.FileSearch
With oFS
.NewSearch
.FileType = msoFileTypeAllFiles
.MatchTextExactly = True
.SearchSubFolders = True
.Filename = zone & " " & etage
.LookIn = ThisWorkbook.Path & "\plan de signaletique finaux"
.Execute

File = .FoundFiles(1)

End With

' on reprend les parametre définis précédemment pour faire afficher la carte correspondante à la recherche
Range("B5").Select
ActiveSheet.OLEObjects.Add(Filename:=File _
, Link:=True, DisplayAsIcon:=False).Select
Selection.ShapeRange.ScaleWidth 2.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.41, msoFalse, msoScaleFromTopLeft
' on affiche le tableau correspondant avec la recherche
Call filtre_tableau
DoEvents
Call tablistes
DoEvents


End Sub