Sub Test()
Dim i As Integer
For i = 2 To 3
If Cells(3, i).Value = "" Then
MsgBox ("Merci de remplir la case " & Cells(2, i).Value)
Exit Sub
End If
Next i
For i = 5 To 7
If Cells(i, 3).Value = "" Then
MsgBox ("Merci de remplir la case " & Cells(i - 1, 3).Value)
Exit Sub
End If
Next i
If Cells(9, 4).Value = "" Then
MsgBox ("Merci de remplir la case " & Cells(8, 4).Value)
Exit Sub
End If
NomModele = "ModeleTB41D39.xlsm"
NomFich = Range("C5").Value & "_" & Range("C7").Value & ".xlsm"
NomDossier = Range("C3").Value & "_" & Range("B3") & "_" & Year(Date)
CheminPrincipal = "C:\Users\Clément\Desktop\MACRO\" 'Racine du dossier MACRO
CheminModeles = CheminPrincipal & "Modeles\"
CheminResultats = CheminPrincipal & "Resultats\"
CheminFichier = CheminResultats & NomDossier & "\" & NomFich
If Len(Dir(CheminResultats & NomDossier, vbDirectory)) > 0 Then
Else
MkDir (CheminResultats & NomDossier)
End If
If Len(Dir(CheminFichier)) > 0 Then
MsgBox ("Le fichier existe")
Workbooks.Open (CheminFichier)
Else
Workbooks.Open CheminModeles & NomModele
Range("A3").Value = Workbooks("Main").Sheets("MacroMain").Range("B3").Value
Range("A5").Value = Workbooks("Main").Sheets("MacroMain").Range("B5").Value
Range("A7").Value = Workbooks("Main").Sheets("MacroMain").Range("B7").Value
Range("A9").Value = Workbooks("Main").Sheets("MacroMain").Range("B9").Value
Range("I3").Value = Workbooks("Main").Sheets("MacroMain").Range("C3").Value
Range("I5").Value = Workbooks("Main").Sheets("MacroMain").Range("C5").Value
Range("I7").Value = Workbooks("Main").Sheets("MacroMain").Range("C7").Value
Range("I9").Value = Workbooks("Main").Sheets("MacroMain").Range("C9").Value
Range("AA3").Value = Workbooks("Main").Sheets("MacroMain").Range("D3").Value
Range("AA4").Value = Workbooks("Main").Sheets("MacroMain").Range("D4").Value
Range("AA5").Value = Workbooks("Main").Sheets("MacroMain").Range("D5").Value
Range("AA7").Value = Workbooks("Main").Sheets("MacroMain").Range("D7").Value
Range("AA9").Value = Workbooks("Main").Sheets("MacroMain").Range("D9").Value
ActiveWorkbook.SaveAs Filename:=CheminFichier
End If
End Sub