Sub ENREGISTRER()
Dim nomcle As String
rep_racine = Workbooks(ActiveWorkbook.Name).Path 'cherche le repertoire du programme
If (verif = Dir(rep_racine & "\" & "archives_factures" & "\", vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire "archives_factures"
rep_dossier = Workbooks(ActiveWorkbook.Name).Path & "\" & "archives_factures"
Else
MkDir Workbooks(ActiveWorkbook.Name).Path & "\" + rep_dossier 'on le crée s'il n'existe pas
rep_dossier = Workbooks(ActiveWorkbook.Name).Path & "\" & "archives_factures"
End If
trouver_nb_fact 'module pour compter mes fichiers en archive
'variable du dossier "annee"
rep_annee = Format(Now(), "yyyy") 'classement dans le rep "année"
If (verif = Dir(rep_dossier & "\" & rep_annee, vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire "année"
rep_dossier = rep_dossier & "\" & rep_annee
Else 'on le crée s'il n'existe pas
MkDir rep_dossier & "\" & rep_annee
rep_dossier = rep_dossier & "\" & rep_annee
End If
'variable du dossier "mois"
rep_mois = Format(Now(), "mm") 'classement dans le rep "mois"
If (verif = Dir(rep_dossier & "\" & rep_mois, vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire...
rep_dossier = rep_dossier & "\" & rep_mois
Else 'on le crée s'il n'existe pas
MkDir rep_dossier & "\" & rep_mois
rep_dossier = rep_dossier & "\" & rep_mois
End If
'variable du dossier "jour"
rep_jour = Format(Now(), "yyyy mm dd") 'classement dans le rep "jour"
'vérifie si le dossier "jour" existe, sinon le crée
If (verif = Dir(rep_dossier & "\" & rep_jour, vbDirectory)) = vbEmpty Then
rep_dossier = rep_dossier & "\" & rep_jour
Else
MkDir rep_dossier & "\" & rep_jour
rep_dossier = rep_dossier & "\" & rep_jour
End If
'ensuite c'est ma tambouille
'vérifie si le nom et adresse du client a bien été précisé
If Sheets("facture").Range("e2") = "" Then
MsgBox "le nom du destinataire n'a pas été précisé"
Sheets("facture").Range("e2").Select
FACTURE.Show
Exit Sub
End If
dateref = Now
nomcle = Sheets("facture").Range("e5")
Sheets("facture").Range("f1") = Format(dateref, "yy mm dd") & " " & nomcle & Format(inombre + 1, "0000")
nomfichier = Replace(Sheets("facture").Range("f1"), " ", "")
Range("A1:H43").Select
Sheets("facture").Select
Application.CutCopyMode = False
Sheets("facture").Copy
Selection.ClearContents
Set bouton = Sheets("facture")
bouton.Shapes(6).Select
Selection.Delete
bouton.Shapes(5).Select
Selection.Delete
bouton.Shapes(4).Select
Selection.Delete
ActiveWorkbook.SaveAs Filename:=rep_dossier & "\" & nomfichier & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Windows("devis facture.xls").Activate
Selection.Copy
Windows(nomfichier).Activate
Range("A1:H43").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
imprfiche = MsgBox("Voulez-vous imprimer et quitter l'archive ? " & Chr(10) & " si vous annulez, la facture ne sera pas imprimée", vbOKCancel, "IMPRESSION")
If imprfiche = vbOK Then
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True 'on imprime
ActiveWindow.Close
Else
ActiveWindow.Close
Exit Sub
End If
End Sub
