Suppression d'un enregistrement dans base Excel

Question

Bonjour, j'ai réaliser une procédure afin de supprimer l'enregistrement situé à une certaine ligne d'une base Excel
Voici la procédure


'supprimer un enregistrement'
Private Sub Command7_Click()

    Dim AppExcel As Excel.Application 'Application Excel
    Dim ClasseurExcel As Excel.Workbook 'Classeur Excel
    Dim FeuilleExcel As Excel.Worksheet 'Feuille Excel

    'Ouverture de l'application
    Set AppExcel = CreateObject("Excel.Application")

    'Ouverture d'un fichier Excel
    Set ClasseurExcel = AppExcel.Workbooks.open("C:\Applications\Visual Basic\Stage Thales\interface graphique VB\MaterielProduction.xls")
    
    'FeuilleExcel correspond à la première feuille du fichier
    Set FeuilleExcel = ClasseurExcel.Sheets(Feuil1)
    
    FeuilleExcel.Select
    FeuilleExcel.Rows(Ligne).EntireRow.Delete

End Sub


Pk cela ne marche pas? La variable "Ligne" et l'emplacement du document sont bons

Le message d'erreur est le suivant : 
"Indice en dehors de la plage"

Merci d'avance.

cs_wape · Answer

Essaye avec :

Set FeuilleExcel = ClasseurExcel.Sheets("Feuil1")

@+

wape

cs_Nixo · Answer

Plus de message d'erreur, mais rien ne ce fait, la suppression ne s'effectue pas O_o :/

cs_Nixo · Answer

Hum je viens de me rendre comte que si j'effectue la suppression et enregistre le fichier Excel sous un autre nom que celui qui est ouvert ca marche.

Si je sauvegarde sous le meme nom, le fichier xls ne subit aucun modification. Il semblerai sagir d'un problème de fichier en lecture seule (pourtant mon fichier xls n'est pas en lecture seule :( )

Voici le message d'erreur :

Erreur d'exécution '1004' :
Impossible d'accéder au document en lecture seule 'MaterielProduction.xls'.

Merci d'avance, c'est urgent.

Suppression d'un enregistrement dans base Excel

3 réponses

Discussions similaires