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