explication dans le fichier "Fichier vierge

[TEMAGOULTFARID]

Bonjour , je viens d'integrer une entreprise et je dois mettre une sorte de GMAO en place , j'essai de me debroullier,
jaurai voulu savoir s'il y a possiblité:
- Dans le fichier "Tableau 2019" cliqué sur l'icon ou bouton "Nouvelle intervention" que cela puisse m'ouvrir le ficheir "Fiche Vierge"
- sur le fichier vierge ,y a t-il possibilité dans la cellule A5 q'un numero de suivie puisse se mettre automatique et chaque fois qu'on ouvre ce fichier, que la numérotation se fasse automatique (19001, 19002,19003 et ainsi de suite),
- Toujour sur le fichier vierge, lorsque l'intervenant a fini de completer le fichier, il clique sur le bouton "Engistrement" et que ce dernier s'engistre dans un dossier qui s'appellera "Fiche intervention" et nommé automatiquement au numéro de la celle A5
- Toujours sur le meme fichier, je souhaiterai que les inetrevenants ne puissent pas clotuer l'intervention par le bouton "Clôtuer" et que cette action puisse se faire par un mot de passe et une fois cloturer , qu'on ne puisse plus modifier le fichier pour des raisons de sécurité
- ensuite sur la ligne "A5 a M5 " de cette meme fiche ,s'incrémente automatquement sur la ligne 2 du fichier "Tableau 2019" et a chaque fois , le meme senario.
- Et pour finir mes emplettes je souhaiterai lorsque je clique sur le numero OI du "'Tableau 2019" , ouvrir le fichier qui a été engister sous ce meme numéro,
Je suis persuadé que pour certaine personne , c'est une formalité,
Par avance , merci beaucoup

 

[CHALET53]

Ok, je n'avais pas traité le menu Clôturer

Dans le fichier Vierge, tu remplaces le programme : Sub Cloturer par celui-ci. Ensuite repars à zéro (supprime les fichier OIxxxx, supprime les lignes dans le fichier Tableau 2019 et remets 19000 en P1
Tu recrées un environnement de test

Sub cloturer()

If ActiveSheet.Name = "Fiche vierge" Then
MsgBox ("Vous ne pouvez pas clôturer Fiche vierge.xlsm"): Exit Sub
End If
question = InputBox("Merci de saisir le mot de passe", , , 1000, 3000)

If question <> "chalet53" Then MsgBox "Fermeture non autorisée": Exit Sub
a = Range("H5")
If Range("H5").Value <> "Résolu" Then
MsgBox ("Clôture impossible, la cellule H5 n'est pas à jour"): Exit Sub
End If
rep2 = Workbooks("Tableau 2019.xlsm").Path & "\"
Workbooks.Open rep2 & "LOG.xlsm"

Windows("LOG.xlsm").Activate
Set celluletrouvee = Workbooks("LOG.xlsm").Sheets("Feuil1").Range("A1:A150").Find(Left(nom, 5), lookat:=xlWhole)

If celluletrouvee Is Nothing Then GoTo suite

derligne = celluletrouvee.Offset(0, 1)
Sheets("Feuil1").Range("A" & derligne & ":B" & derligne).Delete
ActiveWorkbook.Save

suite:
Application.DisplayAlerts = False
ActiveWorkbook.Close
a = ligne
If Range("A1:N200").Locked = True Then GoTo suite Else Range("A1:N200").Locked = True
Selection.Locked = True
Selection.FormulaHidden = False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ligne = Workbooks("TABLEAU 2019.xlsm").Worksheets("Synthèse").Cells(1, 27)
' ActiveWorksheet.Protect userinterfaceonly:=True, Password:="chalet53"

Workbooks("TABLEAU 2019.xlsm").Worksheets("Synthèse").Cells(ligne, 9) = Range("H5").Value
ActiveWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub