Salut tous,

je n'y connais rien en VBA et je voudrais juste utiliser le fichier excel d'un ami.

le soucis est que lorsque je lance ça macro ça ne marche pas sur mon PC (et sur le siens ça marche nickel).
=> code erreur '438' à la ligne : "Selection" pour l'action ".Delete"

j'ai une nouvelle version d'office et lui à une ancienne donc dans ce sens ça devrait aller normalement.... ?

ps: voici ci dessous le bout de code qui bloque (jusqu'à la ligne dont j'ai parlé plus haut) :

j'espère que vous pourrez m'aider à comprendre d'où vient le problème...
merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ouverture()
' raccourci clavier: Ctrl+f
'plein de variable que je n'ai pas affiché
    ProgName = ActiveWorkbook.Name  'Attribue le nom du fichier de travail à la variable ProgName
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    TypeGraph = 1
    Windows(ProgName).Activate
    Sheets("param").Select
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Selection.Delete