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

Phillip

XLDnaute Occasionnel
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

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

XLDnaute Barbatruc
Essayez comme ça :
VB:
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

XLDnaute Occasionnel
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
 

Statistiques des forums

Discussions
312 810
Messages
2 092 304
Membres
105 346
dernier inscrit
yanikala