XL 2010 VBA Erreur de code sur vérification existence feuille

[Phillip]

Bonjour,

Je m'arrache les cheveux sur un bout de code depuis un certain temps.

Je voudrais ouvrir un fichier, vérifier que l'onglet du mois courant existe : s'il existe, je l'active, sinon je le crée avec le nom du mois courant.

Cette macro est placée dans mon personal.xlsb.

Voici le code

Workbooks.Open Filename:="C:\2017.xlsm"

With ThisWorkbook.Sheets(Format(Date, "mmmm"))
    On Error Resume Next
    Set VFeuille = Sheets(Format(Date, "mmmm")).Index
    If Not VFeuille Is Nothing Then
         Application.DisplayAlerts = False
         Worksheets(Format(Date, "mmmm")).Activate
    End If

End With
 

'Je copie la feuille derriere la derniere feuille
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)

Et cela ne marche pas....

Merci de vos lumières

Cordialement

Phillip

 

[Dranreb]

Bonjour.
Attention, ThisWorkbook c'est l'objet qui porte la macro en train de s'exécuter. Autrement dit celui qui représente votre personal.xlsb. Le classeur actif, lui, est représenté par ActiveWorkbook.

 

[Phillip]

Corrigé, mais il me met toujours subscript out of range....

 

[Dranreb]

Essayez comme ça :

Dim Wbk As Workbook, NomFeui As String, Feui As Worksheet
On Error Resume Next
Set Wbk = Workbooks.Open(Filename:="C:\2017.xlsm")
If Err Then MsgBox "Il n'existe pas de classeur ""C:\2017.xlsm"".", vbCritical, "Vérif": Exit Sub
Err.Clear
NomFeui = Format(Date, "mmmm")
Set Feui = Wbk.Worksheets(NomFeui)
On Error GoTo 0
If Feui Is Nothing Then
   Set Feui = Wbk.Worksheets.Add
   Feui.Name = NomFeui
   End If

 

[Phillip]

Bonjour Dranreb,

Merci ! ça marche parfaitement ! J'ai apporté une légère modification, car en fait, je voulais vérifier si la feuille du mois courant existait; si oui, ouvrir le classeur et ne rien faire d'autre, sinon, copier la feuille du mois précédent.

Enfin, je me suis aperçu d'un problème : Mes onglets avaient des noms de mois en français, et donc le code ne reconnaissait pas si la feuille du mois courant existait ou pas. Je me demande donc si ma première version de macro ne fonctionnait pas finalement hormis ce petit détail. Mais bon, je me suis tellement perdu dans les ajout/modifications de code, que je prends le tien !

merci encore

Cordialement

Phillip