Microsoft 365 Renseigner fiche et enregistrement en pdf

[pompaero]

Bonjour le forum,

Je suis en cours de construction d'une fiche que l'on doit renseigner 2 fois par jour et l'enregistrer en pdf.
J'ai terminé la mise en page et quelques codes, mais j'aimerai déjà à ce stade, si possible faire vérifier voir améliorer mes codes.
Le but est de
Mettre la date à l'aide du bouton aujourd'hui
Renseigner le nom du responsable
Renseigner pour la partie du matin, effectuée par (le bouton valider apparaît), heure
cocher si nécessaire la cases à cocher, les observations
Valider l'enregistrement en pdf dans 2 dossiers différents avec un historique des données (Nom responsable, date-heure, matin ou après-midi)
Enfin, enregistrer et fermer le classeur.
Voila pour le moment, pour la suite je verrai après (même principe que le matin, enregistrement de l'après-midi en pdf, remise à vierge la fiche, enregistre et fermer)
Merci par avance de votre aide.
Cdlt
pompaero

 

[pompaero]

Bonjour

C'est possible pour de l'aide...

 

[pompaero]

Bonjour,
Vraiment pour m'aider...

 

[GALOUGALOU]

bonsoir pompaero bonsoir le forum
pour un début de solution

je vais répondre à la dernière question, l'enregistrement en pdf dans deux dossiers
la procédure ci dessous exporte la feuille en pdf, mais l'exécution est longue
il vous faut déterminer les chemins
dans la macro chemin1 et chemin 2

Chemin1 = "C:\Dossier\NomClasseur1\"
Chemin2 = "C:\Dossier\NomClasseur2\"

ensuite dans la macro un compteur pour ne pas avoir de doublon (à moins que vous souhaitiez écraser les fichiers les plus anciens alors supprimer le compteur


attention l'exportation est longue, fonction de la puissance de votre ordinateur mais environ 30 secondes pour les deux fichiers
cordialement galougalou

 

[pompaero]

Bonjour Galougalou, le forum,

Merci de ton aide, c'est sympa.
Je regarde ta proposition et reviens te dire.
Cdlt
pompaero

 

[pompaero]

Re galougalou

Je viens de tester ton code, cela correspond bien à ma demande, ça marche et me reste qu'à l'adapter.
Reste à vérifier mes codes de manière à les améliorer, peut-être pour gagner en vitesse d'exécution.

Cdlt
pompaero

 

[cp4]

Bonjour,

J'ai constaté dans ton module de code de la feuille "Ficheairedemvt", un certain nombre de codes des checkboxs sont répétitifs, cependant pour quelques uns les indexes des checkboxs et textboxs ne sont pas identiques. Car s'ils l'étaient quelqu'un du forum pourrait te proposer un module de classe pour gérer le click des checkboxs (désolé de ne pouvoir t'aider sur ce coup, pas le niveau requis). Je ne fais qu'une suggestion.

Private Sub CheckBox7_Click() 'ici même index'
If CheckBox7.Value = False Then
TextBox7.Visible = False
Else
TextBox7.Visible = True
End If
End Sub

Private Sub CheckBox8_Click()' ici index différent'
If CheckBox8.Value = False Then
TextBox10.Visible = False
Else
TextBox10.Visible = True
End If
End Sub

Bon week-end.

 

[pompaero]

Bonjour cp4, le fil, le forum,

Merci t'intégrer le fil, sympa.
Effectivement plusieurs codes répétitifs concernant les ckeckbox et textbox mais il est possible de les rendre identique.
Merci de ton aide.
Cdlt
pompaero

 

[pompaero]

Bonjour le forum

Dans mon projet ce trouve des checkbox, textbox, leur présence est qu'a chaque checkbox correspond un textbox qui se rend visite sur une image.
J'ai fais des codes mais j'aimerai gagner en vitesse d'exécution en améliorant les codes , si possible, ou trouver une autre solution faisant le même principe.
Je viens vers vous pour de l'aide et savoir si cela est possible ?

Autre question, est il possible de faire une BD sur une autre feuille pour l'affiche des signatures automatique ,

Cdlt
pompaero

 

[cp4]

Bonjour Pompaero,

Je constate qu'il n'y a pas eu de retour pour un module de classe (à moins qu'il faille que tu ouvres une discussion dans ce sens).

J'ai ouvert ton fichier pour essayer de t'aider. Cependant, j'ai eu un bug dans ce module. Il semble que l'objet est manquant. Que veux-tu faire au juste? Il s'agit de boutons que tu as mal renommé.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Range("E16") = "Sélection" Then
        ButonValMat.Visible = False
    Else
        ButonValMat.Visible = True
    End If

    If Range("I16") = "Sélection" Then
        ButonValApr.Visible = False
    Else
        ButonValApr.Visible = True
    End If

End Sub

A+

 

[pompaero]

Bonjour Cp4

Oui effectivement pas de retour sur le module, j'ai ouvert une discussion sur le sujet.

Merci d'essayer de m'aider.
Le principe de fonctionnement de la fiche est d'effectuer une inspection le matin et une l'après-midi.
Pour le matin :
* On renseigne
- Date,
- Responsable,
- Effectuer par, (le bouton valider matin apparaît)
- Heure
on coche ou pas les cases à cocher pour l'état
- Aire de mouvement
- Surface piste
- Zone domaniale (peu s'effectuer plus tard dans la matinée)
si anomalie signalé (dessus) renseigner
- Partie observation/commentaire
- Coche les zones de repère sur plan
On valide (bouton matin), la signature du responsable tout en bas s'effectue automatiquement.
enregistrement en pdf.
Pour l'après-midi :
* On renseigne
- Effectuer par, (le bouton valider matin disparaît puis apparaît le bouton valider après-midi)
- Heure
on coche ou pas les cases à cocher pour l'état
- Aire de mouvement
- Surface piste
- Zone domaniale (peu s'effectuer plus tard dans l'après-midi)
si anomalie signalé (dessus) renseigner
- Partie observation/commentaire
- Coche les zones de repère sur plan
On valide (bouton après-midi), la signature du responsable tout en bas s'effectue automatiquement.
enregistrement en pdf.
Clôture de mise à zéro :
J'ai pensé la mise à zéro à l'ouverture de la feuille si la date est différente à aujourd'hui.

Cdlt
pompaero

 

[cp4]

Ok d'accord pour les explications de ton process d'utilisation de ton fichier.
Mais n'as-tu pas remarqué que la procédure Private Sub Worksheet_Change(ByVal Target As Range) plante?

Je crois que les boutons n'existent pas, c'est à dire que tu ne les as pas créés.

A+

 

[pompaero]

De mon côté cela fonctionne, les boutons sont créés mais sont non visible à l'ouverture.

A+

 

[cp4]

Bonjour Pompaero,

De mon côté ça plante d'où mon doute sur la non création des boutons.

C'est peut-être dû à nos versions d'Excel, moi c'est excel 2007.
J'étais sur 2010, j'ai eu un problème la réparation de 2010 a échouée.
J'ai réinstallé Excel 2007, en attendant de trouver une solution pour réinstaller la version 2010.
Désolé de ne pouvoir aller plus loin, tout en suivant la discussion.

Bonne journée.