Gestion Planning v2006-25.03a

[VincentB74]

VincentB74 a soumis une nouvelle ressource:

Gestion Planning Annuel 2023 - Créer votre planning pour 2 à 15 employés sur 7 jours ou 5 jours+samedi.

Je vous propose une version revisitée du Planning 2023. Je l'ai adapté, a la demande d'un membre, pour gérer le planning pour l'année complète.
De plus, vous pouvez gérer le planning de 1 à 15 personnes à travers 3 équipes (1-2-3 ou Matin-Jour-Nuit), c'est vous qui décidez.

A chaque création du planning, vous indiquez les employés concernés par équipe.
Les équipes peuvent être identiques chaque semaine ou différentes.
L'agenda personnel peut-être imprimé par mois et par employé.

Vous...

En savoir plus sur cette ressource...

 

[VincentB74]

VincentB74 a mis à jour Gestion Planning Annuel 2023 avec une nouvelle entrée de mise à jour:

Gestion Planning Annuel 2023

Correction de bugs mineurs

Lire le reste de cette entrée de mise à jour...

 

[VincentB74]

VincentB74 a mis à jour Gestion Planning Annuel 2023 avec une nouvelle entrée de mise à jour:

Gestion Planning Annuel 2023

Erreur de fichier dans le zip

Lire le reste de cette entrée de mise à jour...

 

[australopitheque]

bonjour, je viens d'essayer votre dernière version et j'ai un plantage qui m'amène directement sur le debogger.

Private Sub Workbook_Open()
   Dim ps_Path  As String
Wnd_Apropos.CmdBtn.Visible = False
Wnd_Apropos.FrmLancePbar.Visible = True
Wnd_Apropos.Lab_Infos.Caption = "Bienvenue sur votre planning " & vs_Ver & " ...Patientez"
Wnd_Apropos.Repaint
vs_Timer = 2000
Wnd_Apropos.Show 0
Call LancePbarAp(vs_Timer)
'Affichage des feuilles et on cache la feuille "démarrage"
vs_Name = Left$(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
If Sheets("Démarrage").Visible = -1 Then
    Voir_Feuilles (2)
End If

juste sur la commande

Left$(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)

pour etre précis sur ma version ,je suis en excel 2021

 

[VincentB74]

Bonjour,

Je pense que cela vient de bibliothèques manquantes, côté VBE.
Pour vérifier, aller dans le VBE (ALT+F11) puis Menu => Outils => Références
Vérifier qu'aucune ligne n'apparaisse manquante !

Si c'est le cas, il faut installer ces bibliothèques en allant les chercher dans le dossier sytème de Windows.

Voici un lien de téléchargement d'un ensemble d'OCX à installer dans les dossiers:
C:\Windows\System32 et C:\Windows\SysWOW64

Ensuite, suivre la prcoédure depuis cette fenêtre sur les lignes manquantes en cliquant sur Parcourir.
En principe, après avoir copié les OCX dans les dossiers et relancer Excel, tout devrait rentrer dans l'ordre.

Bonne découverte.
Vincent.

 

[australopitheque]

bonjour
désoler pour délai de réponse.
je viens de regarder dans mon vbe si une bibliothèque aurai un message d'erreur ,mais rien.
quel bibliothèque est elle manquante a part celle de calendar 2007 MSCAL.OCX et MSCOMCT2.OCX ont en effet disparu avec Windows 10, ils me semble. Ils ne fonctionnent qu'avec les versions 32 bits d'Office et j'ai un Windows 11 64 donc installer un excel 2021 64?
voici ce que j'ai d'activer

edit: apres installation de MSCAL.OCX que vous m'avez fournis j'obtiens de temps en temps des erreurs pendant l'utilisation

 

[VincentB74]

Bonjour,

Donc, vous ne derviez plus avoir de problèmes désormais.
Voici comment doit être la fenêtre des Bibliothèques:

Bonne journée.

Cordialement,
Vincent

 

[abouakouame]

bONJOUR MONSIEUR I YA ENCORE UNE ERREUR

 

[dagjan]

Bonjour,
J'aimerais avoir une petite précision
est-ce que les fichiers ocx doivent avoir la même version pour fonctionner ?

 

[VincentB74]

Bonjour,

Je ne sais pas, j'utilise toujours ces bibliothèques pour me dépanner.

 

[dagjan]

D'accord et merci de m'avoir répondu aussi vite

Pour ma part j'aimerais faire une liste de deroulante d'images
Y a un tuto et je l'ai suivi indiquant qu'il faut utiliser une imagelist et une image combo

Mais quand j'initialise les photos dans personnalisé de l'imagelist il apparaît cette erreur
La classe n'est pas enregistrée
Recherche d'un objet avec CLSID
:{7EBDAAE1-8120-11CF-899F-00AA00688B10}

Est-ce que ma méthode n'est tout simplement pas bonne pour créer une liste déroulante d'images ? 🤔

 

[VincentB74]

Bonjoir,

Après quelques recherches, il semble que cela puisse venir d'une bibliothèque mal enregistrée.

Quand le classeur est ouvert, allez dans l'éditeur VB. Cliquez sur les menus Outils => Références.
Est-ce que la référence Microsoft Forms 2.0 Object Library est bien cochée ?

Si vous êtes l'administrateur du PC, dans la boîte de recherche Windows, entrez:

"cmd" (sans les guillemets).
Sur la ligne "Invite de commandes", faire un clic droit et cliquer sur "exécuter en tant qu'administrateur".
Entrez la commande (pour les versions Windows 64 bits) :

regsvr32 C:\Windows\SysWOW64\fm20.dll

Validez. Un message doit indiquer que l'opération s'est déroulée avec succès.

Je vous laisse tester cette opération.
Cordialement,
Vincent

 

[dagjan]

Alors la case est bien cochée et l'opération s'est déroulée sans accroche réussie avec succès.
cependant je ne peux toujours pas enregistrer d'images dans l'imagelist
Est-ce bien en cliquant sur personnaliser qu'on peut ajouter des images dans ce contrôle ? 🤔
Cordialement
Dagjan

 

[dagjan]

En revanche j'ai vu que je n'avais pas
Ref edit control et microsoft windows common controls-2 6.0 (SP6)

 

[VincentB74]

Bonjour,

Là, je sèche, je ne sias pas comment gérer les imagelist. Essayer de poser la question sur le forum.
Désolé.

Pour les 2 bibliothèques manquantes, je vous invite à les installer à partir du ZIP que je vous ai encoyé plus tôt.
Bonne découverte.

Vincent