Bonjour,

Je vous voudrais de l'aide svp. Je ne suis pas un expert en macro pour me présenter.

J'ai réçu de l'aide à créer un macro pour glissade d'un tableau (ie ajout automatique des jours sur un tableau excel) sur une feuille cela marche sans probème.

Voici le macro:
Dans module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Tableau_Ajout(Tableau As String)
 
Dim y As Long, objListRows As Object, derdate As Date, Jour As Integer
 
    With ActiveSheet.ListObjects(Tableau)
        y = .ListRows.Count
        derdate = .ListRows(y).Range.Cells(1, 1).Value
        If derdate <> Date - 1 Then
            For Jour = 1 To Date - 1 - derdate
                Set objListRows = .ListRows.Add
                .ListRows(y + Jour).Range.Cells(1, 1).Value = derdate + Jour
            Next Jour
        End If
    End With
 
End Sub
Et dans workbook
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Workbook_Open()
    For Each Tableau In Worksheets("Donnée").ListObjects
        Call Tableau_Ajout(Tableau.Name)
    Next Tableau
End Sub

Je voudrais maintenant l'exécuter sur quelques feuilles mais j'ai n'y arrive pas. Je voudrais quelqu'un m'aide svp.

Voici comment j'essaye d'écrire sur workbook mais toujours bug

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
 
Application.ScreenUpdating = False
 
Dim kWh As Worksheet
For Each kWh In Worksheets
 
  If kWh.Name <> "kW ER1" And kWh.Name <> "kW ER2" And kWh.Name <> "kW ER3" And kWh.Name <> "Graph" And kWh.Name <> "Main Menu" And kWh.Name <> "Explanation" Then
     Call Tableau_Ajout(Tableau.Name)
  End If
Next
Merci