Bonjour, je recois ce message d'erreur lorsque je lance mon programme, mais seulement quand certaines feuilles sont présentes.
 
le début de la partie "ecriture du resultat" de mon code  
 
 
 
j'ouvre un nouveau classeur
Set Betriebskosten_Mappe = Workbooks.Add
   
Application.DisplayAlerts = False
Sheets(Array("Tabelle2", "Tabelle3" )).Delete
 
 
je lui dis que BK_Tabelle est la première feuille de ce classeur
Set BK_Tabelle = Betriebskosten_Mappe.Worksheets("Tabelle1" )
 
'Schriftstil und Schriftgröße
BK_Tabelle.Cells.Select
With Selection
        .Font.Name = "Arial"
        .Font.Size = 8
End With
 
si une certaine case est cochée, il est censé récupérer des feuilles préformatées et les copier derrière la première feuille du classeur
 
If BB_Gebaut = True Or SBR_Gebaut = True Then
    Z_AbwAb.Show
    Workbooks("Berechner.xls" ).Sheets("Abwasserabgabe" ).Copy After:=Betriebskosten_Mappe.Sheets(Betriebskosten_Mappe.Sheets.Count)
    Workbooks("Berechner.xls" ).Sheets("CSB" ).Copy After:=Betriebskosten_Mappe.Sheets(Betriebskosten_Mappe.Sheets.Count)
    Workbooks("Berechner.xls" ).Sheets("Phosphor" ).Copy After:=Betriebskosten_Mappe.Sheets(Betriebskosten_Mappe.Sheets.Count)
    Workbooks("Berechner.xls" ).Sheets("Stickstoff" ).Copy After:=Betriebskosten_Mappe.Sheets(Betriebskosten_Mappe.Sheets.Count)
    Workbooks("Berechner.xls" ).Sheets("Kosten_Abwasserabgabe" ).Copy After:=Betriebskosten_Mappe.Sheets(Betriebskosten_Mappe.Sheets.Count)
End If
 
 
'Umbenennung Tabelle
BK_Tabelle.Name = "BK " & Anlagename_Box.Value
 
'Formatierung
'Spalten Breite
BK_Tabelle.Columns(1).ColumnWidth = 18.86
BK_Tabelle.Columns(2).ColumnWidth = 9.86
BK_Tabelle.Columns(3).ColumnWidth = 12.86
BK_Tabelle.Columns(4).ColumnWidth = 12.86
BK_Tabelle.Columns(5).ColumnWidth = 12.14
BK_Tabelle.Columns(6).ColumnWidth = 13.43
BK_Tabelle.Columns(7).ColumnWidth = 11
BK_Tabelle.Columns(8).ColumnWidth = 12.86
 
 
et je commence à formater ma première feuille (taille de colonnes, police etc)
 
'Oberen Rahmen
BK_Tabelle.Range(Cells(1, 1), Cells(4, 8)).Select
With Selection
.BLABLABLA...
End With
 
 
et le problème que j'ai, c'est que dans le cas ou il n'a pas besoin de récupérer ces feuilles préexistantes, mon programme fonctionne très bien.
Mais lorsqu'il rajoute ces feuilles préexistantes, cette fois à la première apparition de
 
BK_Tabelle.Range
 
il me sort que la méthode range de l'objet worksheets a échoué
 
et  
 
Si quelqu'un a une idée pour résoudre ce problème, je vous en serai très reconnaissant

Salut, placer un  

aux endroits idoines