XL 2010 Executer code si onglet introuvable

[Niouf]

Bonjour,

J'ai une ligne de code qui fait référence à un onglet Excel, et lorsque l'onglet est introuvable, la macro bug.

Est-ce donc possible d'exécuter un code (Pour créer l'onglet manquant par exemple) au lieu de bugger la macro ?

Merci d'avance pour votre aide !

 

[pierrejean]

Re

Non pas vraiment
Quelle ligne provoque le bug ????

 

[Niouf]

Je reviens vers toi !

J'ai un code qui fonctionne quasiment ^^

Private Sub CommandButton1_Click()
Dim robot As Integer
Dim semaine As String
Dim jour As String
robot = ActiveSheet.Range("AV1").Value
semaine = ActiveSheet.Range("BK1").Value
jour = ActiveSheet.Range("CK1").Value
NomFichier = "\\aerolia.corp\import\ME\PROJETS\Lean.Chantiers_Et_Projets\Manufacturing_ME\00-dossiers stagiaires\Apprenti Lean Assemblage - Clément MARGAT - Oct 2015 - Oct 2016\TRG\Essai Automatisation\TRG Erebus " & robot & " T11 SA.xlsm"
Workbooks.Open NomFichier
   If Not FeuilleExiste(semaine, NomFichier) Then
       'Création d'une feuille, copie de MODELE
    Worksheets("MODELE").Visible = True 'Rendre visible la Feuille MODELE
   
    Sheets("MODELE").Copy After:=Sheets("Base Temps")  'Création d'une nouvelle feuille Modèle
   
    Worksheets("MODELE (2)").Visible = True 'Rendre visible la nouvelle Feuille
   
    Worksheets("MODELE (2)").Cells(3, 3) = semaine 'Remplie le N° de MSN sur la Feuille
     
    Worksheets("MODELE (2)").Name = semaine 'Renomme la Feuille avec le N° de MSN
   
    Worksheets("MODELE").Visible = False 'Cacher la Feuille MODELE
  
    'CreationFeuille.Hide
    
   Else
      Workbooks(NomFichier).Worksheets(semaine).Select
   End If
End Sub

Function FeuilleExiste(semaine, NomFichier)
On Error Resume Next
Set F = Workbooks(NomFichier).Sheets(semaine)
    If Err.Number = 0 Then
      FeuilleExiste = True
    Else
       FeuilleExiste = False
    End If
On Error GoTo 0
End Function

Le seul hic : Lorsque la feuille existe déjà, elle n'est pas détectée, et le code passe donc par la boucle créer une nouvelle feuille, en la renommant par mon "semaine" et la bim, le nom existe déjà donc bug.

T'as une idée du problème ?

 

[pierrejean]

Re

Teste cette modif:

......
Workbooks.Open NomFichier
NomFich = ActiveWorkbook.Name
   If Not FeuilleExiste(semaine, NomFich) Then
..........