Gestion Planning v2006-24.03a

VincentB74

XLDnaute Occasionnel

• 4 Avril 2023

• #1

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...

Cliquez pour agrandir...

En savoir plus sur cette ressource...

 

VincentB74

XLDnaute Occasionnel

• 11 Avril 2023

• #2

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

Gestion Planning Annuel 2023

Correction de bugs mineurs

Cliquez pour agrandir...

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

 

VincentB74

XLDnaute Occasionnel

• 11 Avril 2023

• #3

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

Cliquez pour agrandir...

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

 

A

australopitheque

XLDnaute Nouveau

• 13 Avril 2023

• #4

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

VB:

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

VB:

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

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

 

VincentB74

XLDnaute Occasionnel

• 14 Avril 2023

• #5

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.

 

A

australopitheque

XLDnaute Nouveau

• 18 Avril 2023

• #6

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

 

Pièces jointes

• vbe excel.jpg

  52 KB · Affichages: 32

Dernière édition: 18 Avril 2023

VincentB74

XLDnaute Occasionnel

• 19 Avril 2023

• #7

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

 

A

abouakouame

XLDnaute Nouveau

• 30 Mai 2023

• #8

bONJOUR MONSIEUR I YA ENCORE UNE ERREUR

 

Pièces jointes

• ERREUR PLANNING.PNG

  42.1 KB · Affichages: 27

D

dagjan

XLDnaute Nouveau

• 1 Juin 2023

• #9

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

 

VincentB74

XLDnaute Occasionnel

• 1 Juin 2023

• #10

Bonjour,

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

 

D

dagjan

XLDnaute Nouveau

• 1 Juin 2023

• #11

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

XLDnaute Occasionnel

• 1 Juin 2023

• #12

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

 

D

dagjan

XLDnaute Nouveau

• 1 Juin 2023

• #13

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

 

D

dagjan

XLDnaute Nouveau

• 1 Juin 2023

• #14

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

 

VincentB74

XLDnaute Occasionnel

• 2 Juin 2023

• #15

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