Bonjour,

J'ai un tout petit problème... alors je viens de trouver cette discussion et j'ai un peu le même soucis.
Mon soucis en gros ce trouve dans la partie en gras ^^
Je ne sais comment sélectionner une range sous excel que j'ai collé

Voici mon soucis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub le_bon_pps2()

Set wdapp = CreateObject("powerpoint.application")
wdapp.Visible = True
Set doc = wdapp.Presentations.Add


Sheets("Scorecard_BU").Activate
ActiveSheet.Range("A1:P32").Select
Selection.Copy

wdapp.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutText).Select
wdapp.ActiveWindow.Selection.SlideRange.Layout = ppLayoutLargeObject
wdapp.ActiveWindow.Selection.SlideRange.Shapes.SelectAll
wdapp.ActiveWindow.Selection.ShapeRange.Delete
'je colle une range sous format bitmap et sa fonctionne :lol:
wdapp.ActiveWindow.View.PasteSpecial DataType:=ppPasteBitmap, DisplayAsIcon:=msoTrue, IconLabel:="BSC"

'mais horreur je trouve pas comment selectionné mon image... j'ai tenté Image, Picture etc au niveau de la ligne qui suis et plus particulièrement du ce qui est en gras... mais je trouve pas :(
'Si quelqu'un pouvait me dire comment le selectionner car sa fait 2h que je lis les aides Microsoft... mais ils doivent croire qu'on comprend tout et n'explique pas tjrs ... grrrrrrr
wdapp.ActiveWindow.Selection.Slide.OLEObject.SelectAll
    With ActiveWindow.Selection
        .Fill.Transparency = 0#
        .LockAspectRatio = msoFalse
        .Height = 510.12
        .Width = 702.75
        .Left = 8.5
        .Top = 8.5
    End With

end sub
Je vous remercie par avance pour vos aides