Discussion :

[zoom61]

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.

[Invité]

Bonjour

Comment est déclarée ta variable xlSheet ? Et où y affectes-tu ta feuille ?

Starec

[zoom61]

Mais que dois-je faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set xlSheet ???