Bonjour au forum
Je coince sur une macro qui doit me permettre d'effacer la derniere ligne dans un fichier qui doit rester fermé, apres l'effacement le fichier doit etre sauvegardé
j'ai une macro qui ne veut pas fonctionner mais je ne comprends pas pourquoi
Sub efface()
Dim DerniereLigne As Long
Dim fichier As String
repertoire = "C:\Documents and Settings\bibilolo\Mes documents\test.xls"
Set appexcel = New Excel.Application
appexcel.Workbooks.Open fichier
appexcel.Visible = False
DerniereLigne = Range("A1").End(xlDown).Row
Range("A10" & DerniereLigne).ClearContents
appexcel.ActiveWorkbook.Save
appexcel.Application.Quit
Set appexcel = Nothing
End Sub
Merci de me dire ce qui ne va pas
bonne journée à tous
Je coince sur une macro qui doit me permettre d'effacer la derniere ligne dans un fichier qui doit rester fermé, apres l'effacement le fichier doit etre sauvegardé
j'ai une macro qui ne veut pas fonctionner mais je ne comprends pas pourquoi
Sub efface()
Dim DerniereLigne As Long
Dim fichier As String
repertoire = "C:\Documents and Settings\bibilolo\Mes documents\test.xls"
Set appexcel = New Excel.Application
appexcel.Workbooks.Open fichier
appexcel.Visible = False
DerniereLigne = Range("A1").End(xlDown).Row
Range("A10" & DerniereLigne).ClearContents
appexcel.ActiveWorkbook.Save
appexcel.Application.Quit
Set appexcel = Nothing
End Sub
Merci de me dire ce qui ne va pas
bonne journée à tous