Gmao Maintenance
Pour l'instant, je cherche pour chaque texbox de la fiche fournisseur à insérer un menu copier coller.
La je sèche.
merçi
Jean
Le lien pour la GMAO VB
https://www.dropbox.com/s/6qv6x5q25jgxktk/GMAOVB%20v5-7.xlsb?dl=0
Bonjour Jean,
Encore bravo à vous pour ce travail et cette mentalité collaborative et open source !!
Je pourrait collaborer je le ferai mais je n'ai aucune compétence dans le domaine de la programmation.
En tout cas votre programme m'est utile et suffit amplement à me besoin.
Je t'encourage à poursuivre ce travail et à continuer d'inciter d'autres à te rejoindre dans ce projet. Si vous arriviez à former une équipe pour ca et cherchiez à peaufiner, je vous proposerai bien d'écrire une numéro de compte quelque par dans le programme pour des don. Ca maintiendrai votre motivation tout en gardant l'esprit open source.
J'aurai une question concernant les graphiques de la page menu principale, je n'arrive pas à les utiliser car je n'arrive pas à appliquer ce qui est écrit dans le Dashboard. Est-ce que quelqu'un peut détailler la chose svp?
Bonjour, bravo Jean 35. bon travail. seulement que je reçois un message d'erreur quand je clique sur ajouter une action préventive
C'est pas encore finalisé.
Jean
Bonjour Jean 35.
je tiens particulièrement a vous remercier pour votre travail effectué.
par contre j'ai un soucis.
y a une erreur qui apparaît lorsque je Click sur l'icone calendrier.
Option Explicit
Option Base 1
#If VBA7 Then
Dim hWnd As LongPtr, Style As LongPtr
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long
#Else
Dim hWnd As Long, Style As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
#End If
Dim Charge As Boolean
Dim OldAn As Integer, OldMois As Integer, Décalage As Integer
Dim OldDate As String
Dim EvitSub As Boolean
Public Function Chargement(Optional Mydate As String = "", Optional Pose As String = "0;0") As String
Dim t
OldDate = Mydate
t = Split(Pose, ";")
Me.Top = t(0): Me.Left = t(1)
hWnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd
Me.Height = Me.Height - 17
If Mydate <> "" And Mydate <> "?" Then Me.Tag = Mydate Else Me.Tag = Date
EvitSub = True
CBox_Mois.ListIndex = Mid$(Me.Tag, 4, 2) - 1: OldMois = CBox_Mois.ListIndex
CBox_An.ListIndex = Right$(Me.Tag, 4) - 1950: OldAn = CBox_An.ListIndex
EvitSub = False
MajControle
Me.Show vbModal
On Error Resume Next
Chargement = Me.Tag
Unload Me
End Function
Sub MajControle()
Dim laDate As Date
Dim j As Integer
Dim m As Integer
Dim trouve As Boolean
Dim I As Integer
Charge = False
laDate = CDate("01/" & Format(Me.Tag, "mm/yyyy"))
j = Weekday(laDate)
For I = 1 To 42
m = I Mod 7
Me.Controls("D" & I).Caption = ""
Me.Controls("D" & I).Tag = ""
Me.Controls("D" & I).SpecialEffect = fmSpecialEffectFlat
Me.Controls("D" & I).ForeColor = &H800000
Me.Controls("D" & I).BorderStyle = fmBorderStyleNone
Me.Controls("D" & I).BackColor = &HFFFFFF
If j = m + 1 And Not trouve Then
trouve = True
Me.Controls("D" & I).Enabled = True
Me.Controls("D" & I).Caption = Format(laDate, "dd")
Me.Controls("D" & I).Tag = laDate
Else
If I > 1 Then
If Me.Controls("D" & I - 1).Tag = "" Then
Me.Controls("D" & I).Enabled = False
Else
Me.Controls("D" & I).Caption = Format(CDate(Me.Controls("D" & I - 1).Tag) + 1, "dd")
Me.Controls("D" & I).Tag = CDate(Me.Controls("D" & I - 1).Tag) + 1
Me.Controls("D" & I).Enabled = True
End If
Else
Me.Controls("D" & I).Enabled = False
End If
End If
If Me.Controls("D" & I).Tag <> "" Then
If Month(CDate(Me.Controls("D" & I).Tag)) <> Month(Me.Tag) Then
Me.Controls("D" & I).Caption = ""
Me.Controls("D" & I).Tag = ""
Me.Controls("D" & I).Enabled = False
End If
End If
If Me.Controls("D" & I).Tag <> "" Then
If OldDate <> "" Then
If CDate(Me.Controls("D" & I).Tag) = CDate(OldDate) Then
'Me.Controls("D" & I).SpecialEffect = fmSpecialEffectSunken
'Me.Controls("D" & I).BackColor = &H8000000F
Me.Controls("D" & I).BackColor = &H8000000A
Else
Me.Controls("D" & I).SpecialEffect = fmSpecialEffectFlat
End If
End If
End If
If Me.Controls("D" & I).Tag <> "" Then
If CDate(Me.Controls("D" & I).Tag) = Date Then
Me.Controls("D" & I).BorderStyle = fmBorderStyleSingle
Me.Controls("D" & I).BorderColor = &HFF&
End If
End If
Next
Charge = True
End Sub
Private Sub Cmd_CeJour_Click()
Me.Tag = Date: Me.Hide
End Sub
Private Sub Cmd_Echap_Click()
Me.Tag = OldDate: Me.Hide
End Sub
Private Sub Cmd_NonDate_Click()
Me.Tag = "?": Me.Hide
End Sub
Private Sub Cmd_Suppr_Click()
Me.Tag = "": Me.Hide
End Sub
Private Sub Label1_Click()
Me.Tag = Date: Me.Hide
End Sub
Private Sub UserForm_Initialize()
Dim I
CBox_Mois.AddItem "Janvier"
CBox_Mois.AddItem "Février"
CBox_Mois.AddItem "Mars"
CBox_Mois.AddItem "Avril"
CBox_Mois.AddItem "Mai"
CBox_Mois.AddItem "Juin"
CBox_Mois.AddItem "Juillet"
CBox_Mois.AddItem "Août"
CBox_Mois.AddItem "Septembre"
CBox_Mois.AddItem "Octobre"
CBox_Mois.AddItem "Novembre"
CBox_Mois.AddItem "Décembre"
For I = 1950 To 2050: CBox_An.AddItem I: Next
Me.Cmd_CeJour.Caption = "Today: " & Date
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton de fermeture." & Chr(13) & Chr(13) & "Veuillez clicker sur la commande ou sur la touche Echap"
Cancel = True
End If
End Sub
Private Sub CBox_An_Change()
If EvitSub Then Exit Sub
Décalage = CBox_An.ListIndex - OldAn
OldAn = CBox_An.ListIndex
ModifierDate Décalage * 12
End Sub
Private Sub CBox_Mois_Change()
If EvitSub Then Exit Sub
Décalage = CBox_Mois.ListIndex - OldMois
OldMois = CBox_Mois.ListIndex
ModifierDate Décalage
End Sub
Sub ModifierDate(I As Integer)
Dim j As Byte: Dim m As Byte: Dim y As Integer
j = Day(Me.Tag): m = Month(Me.Tag): y = Year(Me.Tag)
If I > 11 Or I < -11 Then y = y + I / 12 Else m = m + I
If Charge Then Me.Tag = j & "/" & m & "/" & y
Do Until IsDate(Me.Tag)
j = j - 1
If Charge Then Me.Tag = j & "/" & m & "/" & y
Loop
MajControle
End Sub
Private Sub D1_Click()
If Charge Then Me.Tag = D1.Tag: Me.Hide
End Sub
Private Sub D2_Click()
If Charge Then Me.Tag = D2.Tag: Me.Hide
End Sub
Private Sub D3_Click()
If Charge Then Me.Tag = D3.Tag: Me.Hide
End Sub
Private Sub D4_Click()
If Charge Then Me.Tag = D4.Tag: Me.Hide
End Sub
Private Sub D5_Click()
If Charge Then Me.Tag = D5.Tag: Me.Hide
End Sub
Private Sub d6_Click()
If Charge Then Me.Tag = D6.Tag: Me.Hide
End Sub
Private Sub D7_Click()
If Charge Then Me.Tag = D7.Tag: Me.Hide
End Sub
Private Sub D8_Click()
If Charge Then Me.Tag = D8.Tag: Me.Hide
End Sub
Private Sub D9_Click()
If Charge Then Me.Tag = D9.Tag: Me.Hide
End Sub
Private Sub D10_Click()
If Charge Then Me.Tag = D10.Tag: Me.Hide
End Sub
Private Sub D11_Click()
If Charge Then Me.Tag = D11.Tag: Me.Hide
End Sub
Private Sub D12_Click()
If Charge Then Me.Tag = D12.Tag: Me.Hide
End Sub
Private Sub D13_Click()
If Charge Then Me.Tag = D13.Tag: Me.Hide
End Sub
Private Sub D14_Click()
If Charge Then Me.Tag = D14.Tag: Me.Hide
End Sub
Private Sub D15_Click()
If Charge Then Me.Tag = D15.Tag: Me.Hide
End Sub
Private Sub D16_Click()
If Charge Then Me.Tag = D16.Tag: Me.Hide
End Sub
Private Sub D17_Click()
If Charge Then Me.Tag = D17.Tag: Me.Hide
End Sub
Private Sub D18_Click()
If Charge Then Me.Tag = D18.Tag: Me.Hide
End Sub
Private Sub D19_Click()
If Charge Then Me.Tag = D19.Tag: Me.Hide
End Sub
Private Sub D20_Click()
If Charge Then Me.Tag = D20.Tag: Me.Hide
End Sub
Private Sub D21_Click()
If Charge Then Me.Tag = D21.Tag: Me.Hide
End Sub
Private Sub D22_Click()
If Charge Then Me.Tag = D22.Tag: Me.Hide
End Sub
Private Sub D23_Click()
If Charge Then Me.Tag = D23.Tag: Me.Hide
End Sub
Private Sub D24_Click()
If Charge Then Me.Tag = D24.Tag: Me.Hide
End Sub
Private Sub D25_Click()
If Charge Then Me.Tag = D25.Tag: Me.Hide
End Sub
Private Sub D26_Click()
If Charge Then Me.Tag = D26.Tag: Me.Hide
End Sub
Private Sub D27_Click()
If Charge Then Me.Tag = D27.Tag: Me.Hide
End Sub
Private Sub D28_Click()
If Charge Then Me.Tag = D28.Tag: Me.Hide
End Sub
Private Sub D29_Click()
If Charge Then Me.Tag = D29.Tag: Me.Hide
End Sub
Private Sub D30_Click()
If Charge Then Me.Tag = D30.Tag: Me.Hide
End Sub
Private Sub D31_Click()
If Charge Then Me.Tag = D31.Tag: Me.Hide
End Sub
Private Sub D32_Click()
If Charge Then Me.Tag = D32.Tag: Me.Hide
End Sub
Private Sub D33_Click()
If Charge Then Me.Tag = D33.Tag: Me.Hide
End Sub
Private Sub D34_Click()
If Charge Then Me.Tag = D34.Tag: Me.Hide
End Sub
Private Sub D35_Click()
If Charge Then Me.Tag = D35.Tag: Me.Hide
End Sub
Private Sub D36_Click()
If Charge Then Me.Tag = D36.Tag: Me.Hide
End Sub
Private Sub D37_Click()
If Charge Then Me.Tag = D37.Tag: Me.Hide
End Sub
Private Sub D38_Click()
If Charge Then Me.Tag = D38.Tag: Me.Hide
End Sub
Private Sub D39_Click()
If Charge Then Me.Tag = D39.Tag: Me.Hide
End Sub
Private Sub D40_Click()
If Charge Then Me.Tag = D40.Tag: Me.Hide
End Sub
Private Sub D41_Click()
If Charge Then Me.Tag = D41.Tag: Me.Hide
End Sub
Private Sub D42_Click()
If Charge Then Me.Tag = D42.Tag: Me.Hide
End Sub
Merci de m'apporter votre aide.
bonjour, avez-vous me le mot de passe administrateur , merci
sinon j'ai trouve le code VBA qui est 13081988PINOTMIKHAIL
C'est normal je suis repartis de son fichier.
Jean