XL 2010 erreur

[jean123]

bonjour,
j'ai une erreur Argument ou appel de procédure incorrect sur cette macro et je ne comprend pas pourquoi
une piste ?

Sub MENSUEL()
   
    Dim Name As String
        Sheets("FORME").Activate
            With ActiveSheet
                Name = .Name  
                    .Copy After:=Sheets(Sheets.Count)  
                        Sheets(Sheets.Count).Name = MonthName(Month(Date) - 1) & "_" & "BOB" 
                            Sheets("FORME").Select 
                                            End With
                                                For Each sh In ActiveWorkbook.Sheets
                                                    sh.Cells.EntireColumn.AutoFit
                                                        Next
                                                            End Sub

 

[DoubleZero]

Bonjour à toutes et à tous,

... une piste ?...

Qu'en est-il de celle-ci ?...

 

[jean123]

est ce que le faite que je renomme la feuille au mois précédent mais forcement sur l'année précédente ? (le bug de l'an 2017 lol)

 

[jean123]

après test si je passe au mois en cours ou mois + 1 ça marche mais comment régler ce problemme d'année

 

[DoubleZero]

Re-bonjour,

Obtenir des réponses au(x) problème(s) exposé(s) est vraiment appréciable.

Recevoir une réponse sur la (les) solution(s) proposée(s) l'est tout autant.

Bonne continuation...

 

[jean123]

helllppppp

 

[jean123]

yesss
problème résolu ça pourra éventuellement servir à d'autre voici la solution

j'ai remplacé

 Sheets(Sheets.Count).Name = MonthName(Month(Date) - 1) & "_" & "BOB"

par

Sheets(Sheets.Count).Name = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmmm") & "_" & "BOB"

je ne sais pas si c'est la meilleur méthode mais ça marche si plus simple je suis preneur