Dim CheminDossier As String
Dim derniereLigne As String
Dim numDossier As String
Dim nomClient As String
Dim prenomClient As String
Dim acompteClient As Long
Dim prixSeance As Double
Dim soldeClient As Single
Dim seanceClient As String
Dim nomFournisseur As String
Dim nomAchat As String
Dim tarifAchat As Single
Dim paiementAchat As String
Dim Dateshooting As Date
Dim Heureshooting As String
Dim tailleTableau As String
Dim PrixTableauFournisseur As Single
'Dim genreClient As String
'Dim reponseAcompte As String
'Dim reponseCarteCadeau As String
Dim numderniereCarte As String

Sub Nouveau_Client()

DossierType = MsgBox("Est-ce une formation ?", vbYesNo)

If DossierType = vbNo Then

Worksheets("listes des factures").Select
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row
numDossier = Range("B" & derniereLigne).Value
numDossier = Right(numDossier, 3)
numDossier = numDossier + 1
numDossier = "C" & numDossier
derniereLigne = derniereLigne + 1



Dateshooting = InputBox("Quel est la date du shooting ?", "Date")



genreClient = MsgBox("Le client est-il une femme ?", vbYesNo)
If genreClient = vbYes Then
genreClient = "Madame"
Else
genreClient = "Monsieur"
End If


nomClient = InputBox("Quel est le nom du client ?", "Nom Client")
prenomClient = InputBox("Quel est le nom du Prénom ?", "Nom Client")

seanceClient = InputBox("Quel est le type de séance ?", "Séance")
prixSeance = InputBox("Quel est le Prix de la séance ?", "Tarif")




reponseAcompte = MsgBox("Y-a-til un acompte ?", vbYesNo)


If reponseAcompte = vbYes Then
acompteClient = prixSeance * (30 / 100)
Range("AB" & derniereLigne).Value = acompteClient
soldeClient = prixSeance - acompteClient
Range("AF" & derniereLigne).Value = soldeClient
Else
acompteClient = 0
Range("AB" & derniereLigne).Value = acompteClient
soldeClient = prixSeance
Range("AF" & derniereLigne).Value = soldeClient
End If

reponseCarteCadeau = MsgBox("Est-ce une Carte Cadeau ?", vbYesNo)
If reponseCarteCadeau = vbYes Then
dernierecarte = Range("M" & Rows.Count).End(xlUp).Row
numderniereCarte = Range("M" & dernierecarte).Value
numderniereCarte = Right(numderniereCarte, 2)
numderniereCarte = numderniereCarte + 1
numderniereCarte = "2025#" & numderniereCarte
seanceClient = seanceClient & " - Carte Cadeau - " & numderniereCarte
Range("M" & derniereLigne).Value = numderniereCarte
End If


Range("B" & derniereLigne).Value = numDossier
Range("C" & derniereLigne).Value = Dateshooting
Range("E" & derniereLigne).Value = genreClient
Range("F" & derniereLigne).Value = nomClient
Range("g" & derniereLigne).Value = prenomClient
Range("O" & derniereLigne).Value = seanceClient
Range("P" & derniereLigne).Value = prixSeance
Range("Y" & derniereLigne).Value = prixSeance
Range("AA" & derniereLigne).Value = prixSeance
Range("AF" & derniereLigne).Value = soldeClient



CheminDossier = "/Users/delphine/Desktop/Del Clic Studio/CLIENTS 2025/" & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient

MkDir CheminDossier





Worksheets("Compte Bancaire").Select
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row

If reponseAcompte = vbYes Then
derniereLigne = derniereLigne + 1
Range("A" & derniereLigne).Value = Dateshooting
Range("A" & derniereLigne).Font.Color = RGB(226, 107, 10)
Range("B" & derniereLigne).Value = "Le Compte"
Range("B" & derniereLigne).Font.Color = RGB(226, 107, 10)
Range("C" & derniereLigne).Value = "Acompte - " & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient
Range("C" & derniereLigne).Font.Color = RGB(226, 107, 10)
Range("G" & derniereLigne).Value = acompteClient
Range("G" & derniereLigne).Font.Color = RGB(226, 107, 10)
Range("J" & derniereLigne).Value = "Fotostudio"
Range("J" & derniereLigne).Font.Color = RGB(226, 107, 10)
End If

derniereLigne = derniereLigne + 1
Range("A" & derniereLigne).Value = Dateshooting
Range("A" & derniereLigne).Font.Color = RGB(0, 112, 192)
Range("B" & derniereLigne).Value = "Le Compte"
Range("B" & derniereLigne).Font.Color = RGB(0, 112, 192)
Range("C" & derniereLigne).Value = "Solde - " & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient
Range("C" & derniereLigne).Font.Color = RGB(0, 112, 192)
Range("G" & derniereLigne).Value = soldeClient
Range("G" & derniereLigne).Font.Color = RGB(0, 112, 192)
Range("J" & derniereLigne).Value = "Fotostudio"
Range("J" & derniereLigne).Font.Color = RGB(0, 112, 192)


Worksheets("livre recette dépense").Select
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row

If reponseAcompte = vbYes Then
derniereLigne = derniereLigne + 1
Range("A" & derniereLigne).Interior.Color = RGB(255, 192, 0)
Range("A" & derniereLigne).Value = Dateshooting
Range("B" & derniereLigne).Value = "Acompte"
Range("C" & derniereLigne).Value = "Client"
Range("C" & derniereLigne).Interior.Color = RGB(198, 239, 206)
Range("C" & derniereLigne).Font.Color = RGB(0, 97, 0)
Range("D" & derniereLigne).Value = nomClient & " " & prenomClient
Range("E" & derniereLigne).Value = "Acompte - " & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient
Range("G" & derniereLigne).Value = acompteClient
Range("G" & derniereLigne).Interior.Color = RGB(198, 239, 206)
Range("G" & derniereLigne).Font.Color = RGB(0, 97, 0)
End If

derniereLigne = derniereLigne + 1
Range("B" & derniereLigne).Value = "Solde"
Range("C" & derniereLigne).Value = "Client"
Range("C" & derniereLigne).Interior.Color = RGB(198, 239, 206)
Range("C" & derniereLigne).Font.Color = RGB(0, 97, 0)
Range("D" & derniereLigne).Value = nomClient & " " & prenomClient
Range("E" & derniereLigne).Value = "Solde - " & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient
Range("G" & derniereLigne).Value = soldeClient
Range("G" & derniereLigne).Interior.Color = RGB(198, 239, 206)
Range("G" & derniereLigne).Font.Color = RGB(0, 97, 0)

MsgBox (" Le Client " & numDossier & " - " & nomClient & " " & prenomClient & " a bien été créé ")

Worksheets("listes des factures").Select

reponse = MsgBox("Est-ce une séance iris ?", vbYesNo)

If reponse = vbYes Then

UserForm1.Show

Worksheets("Compte Bancaire").Select
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row
tailleTableau = Range("C" & derniereLigne).Value
Range("C" & derniereLigne).Value = "Tableau iris" & " - " & nomClient & " " & prenomClient & " - " & tailleTableau

Worksheets("livre recette dépense").Select
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row
tailleTableau = Range("E" & derniereLigne).Value
Range("E" & derniereLigne).Value = "Tableau iris" & " - " & nomClient & " " & prenomClient & " - " & tailleTableau
Range("A" & derniereLigne).Value = Dateshooting



'reponseKrys = MsgBox("Est-ce une séance chez KRYS ?", vbYesNo)

' If reponseKrys = vbYes Then

' Worksheets("KRYS").Select
' derniereLigne = Range("B" & Rows.Count).End(xlUp).Row
' derniereLigne = derniereLigne + 1
' tailleTableau = Range("C" & derniereLigne).Value
' Range("A" & derniereLigne).Value = Dateshooting
' Range("B" & derniereLigne).Value = Heureshooting
' Range("C" & derniereLigne).Value = nomClient & " " & prenomClient
' Range("D" & derniereLigne).Value = seanceClient
' Range("E" & derniereLigne).Value = PrixSeance

' End If

End If

Else

Worksheets("listes des factures").Select
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row
numDossier = Range("B" & derniereLigne).Value
numDossier = Right(numDossier, 3)
numDossier = numDossier + 1
numDossier = "C" & numDossier
derniereLigne = derniereLigne + 1



Dateshooting = InputBox("Quel est la date de la formation ?", "Date")
Heureshooting = InputBox("Quel est l'heure de la formation ?", "Heure")




genreClient = MsgBox("Le client est-il une femme ?", vbYesNo)
If genreClient = vbYes Then
genreClient = "Madame"
Else
genreClient = "Monsieur"
End If


nomClient = InputBox("Quel est le nom du client ?", "Nom Client")
prenomClient = InputBox("Quel est le nom du Prénom ?", "Nom Client")

seanceClient = InputBox("Quel est le type de séance ?", "Séance", "Formation à la photographie de ")
prixSeance = InputBox("Quel est le Prix de la séance ?", "Tarif")

reponseAcompte = MsgBox("Y-a-til un acompte ?", vbYesNo)
If reponseAcompte = vbYes Then
acompteClient = prixSeance * (30 / 100)
Range("AB" & derniereLigne).Value = acompteClient
soldeClient = prixSeance - acompteClient
Range("AF" & derniereLigne).Value = soldeClient
Else
acompteClient = 0
Range("AB" & derniereLigne).Value = acompteClient
soldeClient = prixSeance
Range("AF" & derniereLigne).Value = soldeClient
End If



Range("B" & derniereLigne).Value = numDossier
Range("C" & derniereLigne).Value = Dateshooting
Range("D" & derniereLigne).Value = Heureshooting
Range("E" & derniereLigne).Value = genreClient
Range("F" & derniereLigne).Value = nomClient
Range("g" & derniereLigne).Value = prenomClient
Range("O" & derniereLigne).Value = seanceClient
Range("P" & derniereLigne).Value = prixSeance
Range("Y" & derniereLigne).Value = prixSeance
Range("AA" & derniereLigne).Value = prixSeance
Range("AF" & derniereLigne).Value = soldeClient



CheminDossier = "/Users/delphine/Desktop/Del Clic Studio/FORMATIONS/STAGIAIRES/" & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient

MkDir CheminDossier





Worksheets("Compte Bancaire").Select
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row

If reponseAcompte = vbYes Then
derniereLigne = derniereLigne + 1
Range("A" & derniereLigne).Value = Dateshooting
Range("A" & derniereLigne).Font.Color = RGB(226, 107, 10)
Range("B" & derniereLigne).Value = "Le Compte"
Range("B" & derniereLigne).Font.Color = RGB(226, 107, 10)
Range("C" & derniereLigne).Value = "Acompte - " & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient
Range("C" & derniereLigne).Font.Color = RGB(226, 107, 10)
Range("G" & derniereLigne).Value = acompteClient
Range("G" & derniereLigne).Font.Color = RGB(226, 107, 10)
Range("J" & derniereLigne).Value = "Fotostudio"
Range("J" & derniereLigne).Font.Color = RGB(226, 107, 10)
End If

derniereLigne = derniereLigne + 1
Range("A" & derniereLigne).Value = Dateshooting
Range("A" & derniereLigne).Font.Color = RGB(0, 112, 192)
Range("B" & derniereLigne).Value = "Le Compte"
Range("B" & derniereLigne).Font.Color = RGB(0, 112, 192)
Range("C" & derniereLigne).Value = "Solde - " & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient
Range("C" & derniereLigne).Font.Color = RGB(0, 112, 192)
Range("G" & derniereLigne).Value = soldeClient
Range("G" & derniereLigne).Font.Color = RGB(0, 112, 192)
Range("J" & derniereLigne).Value = "Fotostudio"
Range("J" & derniereLigne).Font.Color = RGB(0, 112, 192)


Worksheets("livre recette dépense").Select
derniereLigne = Range("B" & Rows.Count).End(xlUp).Row

If reponseAcompte = vbYes Then
derniereLigne = derniereLigne + 1
Range("A" & derniereLigne).Interior.Color = RGB(255, 192, 0)
Range("A" & derniereLigne).Value = Dateshooting
Range("B" & derniereLigne).Value = "Acompte"
Range("C" & derniereLigne).Value = "Client"
Range("C" & derniereLigne).Interior.Color = RGB(198, 239, 206)
Range("C" & derniereLigne).Font.Color = RGB(0, 97, 0)
Range("D" & derniereLigne).Value = nomClient & " " & prenomClient
Range("E" & derniereLigne).Value = "Acompte - " & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient
Range("G" & derniereLigne).Value = acompteClient
Range("G" & derniereLigne).Interior.Color = RGB(198, 239, 206)
Range("G" & derniereLigne).Font.Color = RGB(0, 97, 0)
End If

derniereLigne = derniereLigne + 1
Range("B" & derniereLigne).Value = "Solde"
Range("C" & derniereLigne).Value = "Client"
Range("C" & derniereLigne).Interior.Color = RGB(198, 239, 206)
Range("C" & derniereLigne).Font.Color = RGB(0, 97, 0)
Range("D" & derniereLigne).Value = nomClient & " " & prenomClient
Range("E" & derniereLigne).Value = "Solde - " & numDossier & " - " & nomClient & " " & prenomClient & " - " & seanceClient
Range("G" & derniereLigne).Value = soldeClient
Range("G" & derniereLigne).Interior.Color = RGB(198, 239, 206)
Range("G" & derniereLigne).Font.Color = RGB(0, 97, 0)

MsgBox (" Le Client " & numDossier & " - " & nomClient & " " & prenomClient & " a bien été créé ")

Worksheets("listes des factures").Select



End If

End Sub