PETIT YANNICK
XLDnaute Occasionnel
Bonjour
Je cherche a rendre visible un bouton de commande dans mon cas commandbutton5 lorsque TextBox4 TextBox5 seront renseigné.
Ce bouton de commande sert a renseigner le fichier de BDD liste_plan_z .
J'ai le message d'erreur 424
avez vous une idée de comment procéder?
voici le code
merci d'avance
Sub CommandButton5_Click()
If TextBox4 <> "" And TextBox5 <> "" Then
CommandButton2.Visible = False
Else
CommandButton2.Visible = True
End If
With Workbooks.Open(filename:=ThisWorkbook.Path & "\LISTE_PLAN_Z.xlsx")
Dim ligne As String
ligne = .Worksheets("Feuil1").Range("F" & Rows.Count).End(xlUp).Row + 1
With .Worksheets("Feuil1")
.Range("A" & ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("I21").Value
.Range("E" & ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("H21").Value
.Range("F" & ligne).Value = Format(Val(Right(Range("F" & ligne - 1).Value, 4)) + 1, "Z0000") 'ThisWorkbook.Sheets("Feuil1").Range("F" & ligne - 1).Value + 1
Dim DerniereCelluleColonneF As String
DerniereCelluleColonneF = .Cells(.Rows.Count, "F").End(xlUp).Value
'copie nouveau N°plan dans G28
ThisWorkbook.Sheets("Feuil1").Range("G28").Value = DerniereCelluleColonneF
End With
End With
Workbooks("LISTE_PLAN_Z").Save
Workbooks("LISTE_PLAN_Z").Close False 'ferme
Dim filename As String
filename = Range("G28")
ActiveWorkbook.SaveAs filename:="C:\Users\yap\Desktop\plan catalogue\" & filename & ".xls"
'ThisWorkbook.Close False 'ferme
End Sub
Je cherche a rendre visible un bouton de commande dans mon cas commandbutton5 lorsque TextBox4 TextBox5 seront renseigné.
Ce bouton de commande sert a renseigner le fichier de BDD liste_plan_z .
J'ai le message d'erreur 424
avez vous une idée de comment procéder?
voici le code
merci d'avance
Sub CommandButton5_Click()
If TextBox4 <> "" And TextBox5 <> "" Then
CommandButton2.Visible = False
Else
CommandButton2.Visible = True
End If
With Workbooks.Open(filename:=ThisWorkbook.Path & "\LISTE_PLAN_Z.xlsx")
Dim ligne As String
ligne = .Worksheets("Feuil1").Range("F" & Rows.Count).End(xlUp).Row + 1
With .Worksheets("Feuil1")
.Range("A" & ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("I21").Value
.Range("E" & ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("H21").Value
.Range("F" & ligne).Value = Format(Val(Right(Range("F" & ligne - 1).Value, 4)) + 1, "Z0000") 'ThisWorkbook.Sheets("Feuil1").Range("F" & ligne - 1).Value + 1
Dim DerniereCelluleColonneF As String
DerniereCelluleColonneF = .Cells(.Rows.Count, "F").End(xlUp).Value
'copie nouveau N°plan dans G28
ThisWorkbook.Sheets("Feuil1").Range("G28").Value = DerniereCelluleColonneF
End With
End With
Workbooks("LISTE_PLAN_Z").Save
Workbooks("LISTE_PLAN_Z").Close False 'ferme
Dim filename As String
filename = Range("G28")
ActiveWorkbook.SaveAs filename:="C:\Users\yap\Desktop\plan catalogue\" & filename & ".xls"
'ThisWorkbook.Close False 'ferme
End Sub