Sub Macro1()
'nom de la feuille à créer si besoin
strNomFeuille = "Test"
'test de son existance
FeuilleInexistante = IsError(Evaluate("='" & strNomFeuille & "'!A1"))
' si elle n'existe pas. il faut la créer. c'est comme pantashop.. :-)
If (FeuilleInexistante = True) Then
Sheets.Add
ActiveSheet.Name = strNomFeuille
End If
End Sub
FeuilleInexistante = IsError(Evaluate("='" & strNomFeuille & "'!A1"))
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
Workbooks.Open "chemin" & robot & " fichier"
'nom de la feuille à créer si besoin
'strnomfeuille = semaine
'test de son existance
FeuilleInexistante = IsError(Evaluate("='" & semaine & "'!A1"))
' si elle n'existe pas. il faut la créer.
If (FeuilleInexistante = True) Then
'Call CreerFeuille_Clic
MsgBox ("Feuille Inexistante")
ElseIf (FeuilleInexistante = False) Then
Worksheets(semaine).Select
End If
End Sub
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 = "chemin" & robot & " fichier"
Workbooks.Open NomFichier
If Not FeuilleExiste(semaine, NomFichier) Then
Call CreerFeuille_Clic
MsgBox ("Feuille Inexistante")
Else
Workbooks(NomFichier).Worksheets(semaine).Select
End If
End Sub
Function FeuilleExiste(NomFeuille, NomFichier)
On Error Resume Next
Set F = Workbooks(NomFichier).Sheets(NomFeuille)
If Err.Number = 0 Then
FeuilleExiste = True
Else
FeuilleExiste = False
End If
On Error GoTo 0
End Function
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
'Call CreerFeuille_Clic
MsgBox ("Feuille Inexistante")
Else
Workbooks(NomFichier).Worksheets(semaine).Select
End If
End Sub
Function FeuilleExiste(NomFeuille, NomFichier)
On Error Resume Next
Set F = Workbooks(NomFichier).Sheets(NomFeuille)
If Err.Number = 0 Then
FeuilleExiste = True
Else
FeuilleExiste = False
End If
On Error GoTo 0
End Function