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