Créer nouvelle feuil avec macro

[Temjeh]

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

 

[Pascal76]

Bonjour

tu peux rajouter

for each ws in worksheets
if ws.name=Nom_Fichier then
Msgbox "facture déjà existante"
goto debut
end if
next

ce qui donne


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
for each ws in worksheets
if ws.name=Nom_Fichier then
Msgbox "facture déjà existante"
goto Debut
end if
next
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

Pascal

 

[Temjeh]

Merci beaucoup Pascal 5 min plus tard rapide en plus

Tout fonctionne a merveille

Temjeh