Discussion :

[Qwazerty]

J'ai corrigé le bug VBA, je n'avais pas modifier le code suite au changement de place du tableaux.

J'ai basculé le tableau "Tab_Personnel" dans Data_Cantine et j'ai raccrocher les listes déroulantes.

Il reste

• Ajouter les formules dans le tableau lors du changement de date dans traca T°C'est fait
• Faire évoluer Traca Recep
  
  • Tu veux un fonctionnement particulier dans les colonnes? Des liste déroulantes (j'ai mis la liste du personnel dans la dernière colonne), des formatages (j'ai mis au format °C la colonne Temp.), des formules pour Accord/Refus?(Pourquoi pas une seule colonne avec comme contenu Accord/Refus et une coloration rouge/vert ?)
  
  
• passer le fichier en modèle xlmt
• regarder plus finement les tableaux qui doivent ou non être mis à jour lors d'un "Actualiser tout" Par exemple dans Traca T°, si on actualise le tableau à la main, ça ne sera pas vu par le code VBA et les formules ne seront pas remise en place.... jusqu'à un changement de date) J'ai fait un configuration des mises à jour tableau en arrière plan et au chargement du fichier. Si c'est trop contraignant, il est possible de seulement mettre à jour avec Actualiser tout mais vu qu'on va s'orienter sur un fichier modèle, il vaudrait mieux que les données se mettent à jour lors de l'ouverture d'un nouveau document.
• faire les extractions en pdf
  
  • D'ailleurs ici, tu veux un xlsx avec 2 onglets (traca recep et traca temp) ou 2 fichiers, un pour chaque traca
  • Plus globalement, réfléchi à comment tu veux organiser tout ça pour éviter des aller-retours.

++
Qwaz

[montgesoye]

Faire évoluer Traca Recep

• Tu veux un fonctionnement particulier dans les colonnes? Des liste déroulantes (j'ai mis la liste du personnel dans la dernière colonne), des formatages (j'ai mis au format °C la colonne Temp.), des formules pour Accord/Refus?(Pourquoi pas une seule colonne avec comme contenu Accord/Refus et une coloration rouge/vert ?)

Je suis d'accord avec l'idée d'associer vert et rouge.
Placez une X dans la case genre, qui doit être cochée.
J'ai tenté de mettre une case cocher mes dans la cellule. C'est trop petit, c'est ridicule.

Il est préférable de ne pas utiliser une formule qui dépend de la température, car certains produits, tels que le steak haché, peuvent être commandés frais à 3°C ou surgelés à -20°C.

La case qui prend la livraison est général " accord ou refus" , pas spécialement le produit. On peut refuser la livraison pour livraison non conforme, température, propreté du camion, cartons ouverts, c'est une généralité de la livraison.

faire les extractions en pdf

• D'ailleurs ici, tu veux un xlsx avec 2 onglets (traca recep et traca temp) ou 2 fichiers, un pour chaque traca

Extraction hebdomadaire d'un fichier de la Fiche Traca Réception.
Un fichier Fiche T°C Journalier est tracé quotidiennement.

En ce moment, nous choisissons la journée, la date et la liste déroulante pour l'afficher. Peut-on ajouter la liste déroulante pour valider la journée à extraire?

• Plus globalement, réfléchi à comment tu veux organiser tout ça pour éviter des aller-retours.

Une fois que j'ai rempli le fichier extrait en.xlsx sur la tablette, je l'imprime en PDF.

Chaque 5 semaines, le plan alimentaire sera imprimé.
Le menu pour 5 semaines (nouveau) est identique.
Les commandes sont effectuées chaque semaine

Comment veux-tu procéder? Pour cela, insérer un onglet intitulé "Gestion Imprimer".

Chaque 5 semaines, le plan alimentaire sera imprimé en PDF.
Le menu 5 semaines (nouveau) est identique au PDF.
Les commandes hebdomadaires au format PDF

Pourquoi ne pas intégrer le système d'extraction sur le même onglet?
En gros, on gère les données en utilisant l'onglet comme menu principal.

C'est à toi de décider ce qui pourrait être bien et facile.

Merci pour ton aide

Montgesoye

[Qwazerty]

Salut

Voila ce que je te propose.

Dans la feuille Menu, j'ai ajouté des boutons (tu pourras adapter comme tu veux, ce qui compte c'est le code VBa qu'ils appellent).
Au niveau de chaque colonne (Lundi, Mardi,...), tu as un bouton température qui permet de créer la fiche de traca temp correspondante.
Ensuite tu as les 5 autres boutons à droite pour le reste des feuilles

J'ai corrigé la liste des dates proposées dans le menu déroulant de a feuille Menu général pour quelle corresponde bien aux dates séléctionnées dans Configuration. Idem pour les dates affiché dans Menu 5 semaines qui n'étaient pas bonnes.

Pour les PDF et XLSX, il est possible de mettre plusieurs feuilles, il faut modifier un peu l'appel à la function qui crée les fichiers mais la function gère ce cas de figure.
Il est aussi possible d'afficher le PDF et/ou le XLSX à la fin de sa création. Faut juste mettre ShowDoc à true dans les appels à PrintFeuil. Par contre je n'ai pas fait de tests.

Je te laisse regarder et organiser graphiquement. Si besoin je t'aiderais si tu veux organiser différemment la création des fichiers.
Une fois que ça sera fait, il ne restera plus qu'à bien tout nettoyer le contenu du tableaux et à l'enregistrer en fichier modèle

Pour le traca recep, j'ai mis une liste déroulante. La case à coché sera trop problématique à gérer au passage sur la tablette.

++
Qwaz

[Qwazerty]

Salut

Un bout de code à placer dans le module mod_Code par exemple et qui permet d'avoir un exemple multi feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub testMultiFeuillePdF()
    PrintFeuil "Plan alimentaire,Menu 5 Semaines", te_PDF, ";,;", "Plan Alim & Menu_" & strPeriode5Sem, strCheminEnr, True
 
End Sub

Le plus simple pour le tester, une fois copier dans le module, tu clique à l’intérieur du code (n'importe ou dans cette procédure), puis tu appuies sur la touche F5 de ton clavier.

++
Qwaz

[montgesoye]

Bonjour, je te remercie pour ce travail
Je suis rentré à 1h du matin cette nuit.
J'étais vraiment impatient de voir le résultat.

Dans la feuille Menu, j'ai ajouté des boutons (tu pourras adapter comme tu veux, ce qui compte c'est le code VBA qu'ils appellent).
Au niveau de chaque colonne (Lundi, Mardi,...), tu as un bouton température qui permet de créer la fiche de traçage temp correspondante.
Ensuite, tu as les 5 autres boutons à droite pour le reste des feuilles

Tout est en ordre sauf
La traça température
Je te transmets le bug en image.

Pour le traçage réception, j'ai mis une liste déroulante. La case à cocher sera trop problématique à gérer au passage sur la tablette.

Pour l'accord, au lieu de dresser une liste de noms, je mettrais.

Valider ou refuser en utilisant la liste déroulante, pour la signature de l'opérateur. Il est nécessaire de faire signer le livreur de la marchandise avec la tablette stylée.
Cela fonctionne.

Après, est-ce possible d'agrandir la cellule sélectionnée pour la signature de l'opérateur? Je clique sur la cellule s'agrandit pour avoir plus de place à signer. Une fois validée, la cellule est réduite avec la signature.
Le test que j'ai effectué : je clique sur la cellule, puis je l'agrandis avec le doigt et nous apposons notre signature.

Encore un grand merci pour le travail fourni.

Montgesoye

[Qwazerty]

Salut

Sans l'intitulé de l'erreur, je ne vois pas quoi il s'agit, chez moi le code ne provoque pas d'erreur. Est-ce que tu as renommé le tableau?

Pour alléger le fonctionnement, j'ai modifié un peu le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Etat As Variant
Dim memoEV As Boolean
 
    memoEV = Application.EnableEvents
    'Active la ligne suivante une fois le problème d'erreur résolu
    'On error goto fin
 
    If Not Intersect(Target, Me.Range("Cell_Temp_Jour")) Is Nothing Then
        'On met à jour les données
        Me.ListObjects("Tab_Menu_Jx_TracaT").Refresh
        'On remt en place le formules des colonnes
        For Each Etat In Array("Ass", "Cond", "Serv")
            Me.Range("Tab_Menu_Jx_TracaT[s/a/ns" & Chr(10) & Etat & ".]").Formula = "=[@[OK_" & Etat & "]]"
        Next
    End If
 
fin:
If Err.Number <> 0 Then MsgBox "L'erreur suivante est apparue:" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbCritical, "Erreur", Err.HelpFile, Err.HelpContext
 
Application.EnableEvents = memoEV
 
End Sub

Ça évite qu'a chaque modification le code se rappelle lui-même (OnChange se déclenche lors d'une modification d'une cellule...)

Pour l'agrandissement de cellule, je ne vois pas de solution puisqu'on ne peut pas utiliser les macro sur ce fichier. La seule idée qui me vient et d'augmenter la hauteur des lignes.

++
Qwaz

[montgesoye]

Avant le débogage, il m'envoie cette fenêtre en image.



Je n'ai rien touché d'autre.

Le code que tu m'as mis, je le mets où ?

La signature, pourquoi pas? Oui, augmenter la hauteur. Je me doutais et vu qu'il n'est pas possible de faire une macro difficile.

Un grand merci

Montgesoye

[Qwazerty]

Le code que tu m'as mis, je le mets où ?

Il faut copier ce code en lieu et place de celui dont tu as mis un screenshot juste au dessus. C'est à dire dans le code de la feuille F_Temperature dans VBE (tu remplace tout ce qui s'y trouve par ce code.

Avant le débogage, il m'envoie cette fenêtre en image.

C'est probablement le code PowerQuery qui but sur une cellule contenant une formule en erreur.
Il fauat que tu ouvre PowerQuery (Données, Obtenir les données, PowerQuery).
Tu double cliques sur Menu_Jx_TracaT, puis dans la partie à droite, tu cliques sur les étapes les une après les autre jusqu'à trouver l'erreur. Je ne peux rien faire de mon coté, je n'ai pas l'erreur...

++
Qwaz

[montgesoye]

Bonjour

J'ai repéré des bugs dans les requêtes.

J'ai 2 images, je te les envoie.





Je te remercie encore

Montgesoye

[Qwazerty]

Étrange.

Cst_Traca_Pos_Jour fait référence au contenu de la cellule S5 dans Fiche T°C Journalier traca.

Pour qu'elle soit en défaut, ça veut dire que la date saisie dans la cellule F4 de cette même feuille, n'est pas trouvé dans la liste de date qui se trouve dans l'onglet Configuration. Essai de modifier la date en F4 et de regarder si les date proposées dans la liste déroulante se trouve bien dans la liste de la feuille Configuration en I5:I23 (c'est le tableau Liste Jours en gris).

++
Qwaz

[montgesoye]

Pour ma part, tout est parfait.

En scrutant un peu partout, j'ai établi un lien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Chemin data	C:\dossier logiciel commande\Data_Cantine.xlsx
Chemin d'enregistrement	C:\dossier logiciel commande\

Ce sont les noms des chemins pour moi.

Néanmoins, il a conservé ton lien à toi dans le Cst_Traca_Pos_Jour, qui concerne le contenu de la cellule S5 dans la Fiche T°C Journalier Traça "E:\MesDocProvisoir"

Je ne sais pas si cela est dû à cela, mais bon.

Serait-il possible d'avoir les chemins avec mes noms a moi, pour que je puisse vérifier si ta version fonctionnera avec la base de ton fichier ?

Pour ma part, tous les liens fonctionnent en fonction des dates, comme tu me l'as demandé.

Merci beaucoup

Montgesoye

[Qwazerty]

Si j'ai bien compris, tu as bien mis à jour les deux chemin dans l'onglet Configuration, je ne comprends pas ce que tu veux dire par

Néanmoins, il a conservé ton lien à toi dans le Cst_Traca_Pos_Jour, qui concerne le contenu de la cellule S5 dans la Fiche T°C Journalier Traça "E:\MesDocProvisoir"

Tu veux dire dans PowerQuery?
Peux tu faire un screenshot stp

++
Qwaz

[montgesoye]

Je ne parviens pas à localiser l'endroit où j'ai repéré "E:\MesDocProvisoir". En réalité, je suis tellement absorbé par mes recherches que je ne sais même plus où me rendre.

J'ai repris les images, il y a eu des bugs sur différentes choses.

Je suis désolé, je tente de comprendre. C'est encore pire...

Montgesoye



Merci

[Qwazerty]

Regarde la cellule S5 (qui est dans une colonne masquée sur la feuille taca temp

Cette formule semble renvoyer #N/A, si c'est le cas, c'est que le Equiv() qu'elle contient ne trouve pas la date présente dans la cellule F4
Regarde ce coté là

[montgesoye]

voila ce que sa donne



pour la cellule F4





Pour moi tout semble bon !!

Merci
montgesoye

[Qwazerty]

Sur cette image, il semble que la cellule nommée Cell_TracaT_Pos_Jour, contiennent la valeu #N/A qui représente une erreur de résolution de la formule contenu dans la cellule.

Donc quelle est la valeur de la cellule Cell_TracaT_Pos_Jour (qui correspond à la cellule S5 de la feuille Traca Temp)?

[montgesoye]

si je comprends bien
ça serait

Cell_Temp_Jour, le nom de la cellule F4



Sinon, on fait une extraction à partir de l'onglet Fiche T°C Journalier en Excel au lieu du menu!!

Cell_TracaT_Pos_Jour le nom de la cellule S5

[Qwazerty]

Mince, S5 contient la valeur 1, donc la formule fonctionne correctement (la date en F4 est bien trouvée dans la liste)....
Là, j'avoue que je ne comprends pas ce qui se passe.

Tu as essayé de modifier la date (en F4) dans Traca Temp?

[montgesoye]

Oui, tout marche correctement. Changement de date et le tableau des dates correspond.

Je ne sais quoi dire !!

[Qwazerty]

Alors a quel moment as tu des erreurs de chargement?

Est-ce que si tu enregistre le fichier avec la date modifiée et que tu réouvre le fichier, tu as de nouveau des erreurs au chargement?