Problème avec mon code je n'arrive plus a incrémenter ma base de donnée

Bonjour à tous,

Voici le projet:

Je voudrais pouvoir récupérer le login des personnes me faisant les demandes "Login Windows" mais je n'y arrive pas surement mal placé.

Userlogin = Environ("USERNAME")

Suite à une modification de code je n'arrive plus à incrémenter ma base de donnée dans la feuille BDD.

Dans la feuille demande d'intervention je n'arrive plus à éditer les demandes d'intervention qui viennent de la BDD

Je vous joints le fichier en pièce jointe

MDP 123 pour avoir l'accès aux feuilles

Bonjour,

Pour moi c'est bien placé dans l'USF

Private Sub UserForm_Initialize()
    Dim Userlogin As String
    Userlogin = Environ("USERNAME")

Pour

Suite à une modification de code je n'arrive plus à incrémenter ma base de donnée dans la feuille BDD.

Qu'aviez-vous comme code sur la version précédente de votre fichier ?
Comment cela doit fonctionner ?

Pour

Dans la feuille demande d'intervention je n'arrive plus à éditer les demandes

d'intervention qui viennent de la BDD

Vous avez bien un message d'erreur qui s'affiche, cela ne vous parle pas, il est pourtant explicite

Je n'ai pas ce message d'erreur moi

projet initiale

mdp 940606

Re,

Pour avoir le message, il faut bien entendu avoir déverrouillé le code avant

Ensuite dans l'enregistrement et envoi des données, je ne vois que l'envoi par mail !?

Private Sub CommandButton3_Click()
  If CheckingFormField.CheckingField = False Then
    Call SendMailData
  End If
End Sub

Et la procédure actuelle

Sub SendMailData()
  Dim Fichier As String
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim MyBench As String

  Fichier = "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance"
  ThisWorkbook.SaveAs Fichier

  MyBench = Sheets("Fiche d'intervention").Range("I10").Value

  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.To = "romain.dehan@poclain.com"
  MonMessage.cc = ""
  MonMessage.Attachments.Add "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance.xlsm"
  MonMessage.Subject = "Demande d'intervention maintenance"
  ' Le corps du message est divisé en 2 lignes :
  Corps = "Bonjour Christophe,"
  ' Chr(13) & Chr(10) = Touche ENTER
  Corps = Corps & Chr(13) & Chr(10)
  Corps = Corps & Chr(13) & Chr(10)
  Corps = Corps & "Ci-joint la demande d'intervention pour le banc : " & MyBench & "."
  MonMessage.body = Corps
  MonMessage.send

  Set MonOutlook = Nothing
  Workbooks("Archivage fiche d'intervention maintenance").Close False
End Sub

Aucune ligne pour l'enregistrement dans la BDD

Tout est partie du problème de 64 bits et de l'enregistrement PDF et depuis plus rien :)

Quand on bidouille et que l'on connait pas trop voilà ce qui arrive. la prochaine fois. C'est touche pas à ca petit con :)

Je ne comprends plus rien pourtant avant sa fonctionnait en 2016 dans mon ancienne entreprise.

Il y a le module save BDD

Re,

Ce n'est pas un souci de version 32 ou 64 bits pour moi, quel est le mode de fonctionnement

1) Tu saisi les informations dans la feuille "fiche d'intervention"

2) Tu cliques sur enregistrer la demande

C'est ça !?

Je regarde ce que je peux faire

J'ouvre le fichier excel.

Je rempli l'UF

Je clique sur envoi je reçois un mail.

En // j'incrémente la base de donnée BDD.

Sur la feuille fiche d'intervention je clic sur le bouton sauvegarder pour compléter les informations dans la base de donnée. et je crée un dossier par numéro de machine et j'enregistre la fiche d'intervention en pdf

J'appuis sur le bouton éditée pour réaliser le remplissage des autre demande une par une

pas simple d'expliquer un fonctionnement claire.

Re,

Et tout cela vous parait logique dans le fonctionnement

Vous vous envoyez un fichier par mail pour finir de le remplir

Le fichier par mail permettait de pouvoir se connecter dessus directement, mais il n'y a plus nécessité

Je suis entre la limite de excel ou passé sur une base Access

Logique pour moi, mais pas logique pour un programmeur ou développeur certainement

Quand un mécanicien se lance dans l'informatique. dans ma tête c'est un écrou + une vis sa fait un boulon.

Re,

Vous êtes plusieurs à utiliser ce fichier ?

A quoi sert l'accès maintenance à part afficher les feuilles nécessaires ?

Désolé de poser toutes ces questions, mais si je ne comprends pas a logique, je ne peux pas avancer

A+

Oui le fichier sera en libre accès à tous le monde pour la partie déclarative UF number one

Pour la partie accès maintenance il y aura moi en disons responsable avec les droit pour avoir accès à la liste et BDD et fiche

Les autres à la BDD unique et à la fiche