Gmao Maintenance

Bonjour à tous je suis désolé mais ce programme est libre et ouvert à tous et je n'ai plus le temps nécessaire à son maintien.

Donc à vous de voir ce que vous souhaitez en faire.

Cordialement Jean.

Je met les photos et le fichier.

Cordialement Jean.

page 1 fournisseur fiche article entree sortie

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

Rechercher des sujets similaires à "gmao maintenance"