T
Temjeh
Guest
Bonjour le Forum
Moi aussi je suis dans la facturation et j'aimerais si possible avec ce code si no de facture existe MsgBox "Déjà existante" car il bug si fact existe:
Sub NouvelleFeuille()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le nom de la nouvelle facture*")
If Nom_Fichier = "Faux" Then Exit Sub
If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut
Else
Sheets("Model").Copy Before:=Sheets(1)
ActiveSheet.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom_Fichier
Range("G9") = ActiveSheet.Name
Range("B6").Select
End If
End Sub
Merci beaucoup
Temjeh
Moi aussi je suis dans la facturation et j'aimerais si possible avec ce code si no de facture existe MsgBox "Déjà existante" car il bug si fact existe:
Sub NouvelleFeuille()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le nom de la nouvelle facture*")
If Nom_Fichier = "Faux" Then Exit Sub
If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut
Else
Sheets("Model").Copy Before:=Sheets(1)
ActiveSheet.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom_Fichier
Range("G9") = ActiveSheet.Name
Range("B6").Select
End If
End Sub
Merci beaucoup
Temjeh