Effacer toutes les données d'une feuille sans ouvrir le classeur

[SilkyRoad]

Ces exemples effacent le contenu d'une feuille nommée "Feuil1".


En utilisant la bibliothèque Microsoft ActiveX Data Objects 2.x Library:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub EffacerContenuFeuille_ClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
 
    Fichier = "C:\dossier\NomClasseur.xls"
 
    Set Cn = New ADODB.Connection
    With Cn
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Execute "DROP TABLE [Feuil1$]"
        .Close
    End With
 
    Set Cn = Nothing
End Sub

En utilisant la bibliothèque Microsoft ADO Ext. 2.x for DDL and Security:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EffacerContenuFeuille_ClasseurFerme_V02()
    Dim Cat As ADOX.Catalog
    Dim Fichier As String
 
    Fichier = "C:\dossier\NomClasseur.xls"
 
    Set Cat = New ADOX.Catalog
    Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
    Cat.Tables.Delete ("Feuil1$")
 
    Set Cat = Nothing
End Sub