Salut,

J'ai repris le code et adapter mais cela ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    MsgBox get_chemin() & get_var()
    Set xlBook = xlApp.Workbooks.Open(get_chemin() & get_var())
 
    'Supprimer une ligne
    xlSheet.Range("A1:P10").Delete
 
    'Code de fermeture
    xlBook.Save
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
Cela m'arrête tout le temps à la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
xlSheet.Range("A1:P10").Delete
Merci.