objet calendrier introuvable sous office 365 VBA

[Tophe2]

Bonjour Le forum et mes meilleurs vœux

J'utilise un fichier que Ce lien n'existe plus

merci par avance
Christophe

 

[Tophe2]

Bonjour Jean Marie,
Bonjour le forum,

Pour info
Je n'arrive pas à ne plus avoir le message d'erreur je cherche toujours je vais sur le net mais là rien ne me permet de résoudre mon problème.

bonne Journée
christophe.

 

[JOL]

Bonsoir le forum,
Je reprends ce fil, car cela ne fonctionne visiblement pas avec l'objet Multipage.
Pouvez vous confirmer ?
Merci par avance.

 

[ChTi160]

Bonsoir JOL
Bienvenue
il faut aussi créer une feuille "Interventions_2022"
(J'ai fait une copie de la feuille 2020 et fait recherche 2020 puis remplacer pas 2022)
Pourrais-tu m'expliquer ceux ci :

Je reprends ce fil, car cela ne fonctionne visiblement pas avec l'objet Multipage.

Voir vidéo
Bonne fin de Soirée
Jean marie

 

[JOL]

B

Bonsoir JOL
Bienvenue
il faut aussi créer une feuille "Interventions_2022"
(J'ai fait une copie de la feuille 2020 et fait recherche 2020 puis remplacer pas 2022)
Pourrais-tu m'expliquer ceux ci :

Voir vidéo
Bonne fin de Soirée
Jean marie

Bonjour,
J'ai repris le fichier initial et j'ai voulu intégrer ce calendrier dans un Multipage, mais, cela généré une erreur 438 de type propriété ou méthode non géré pas l'objet, j'en déduit qu'il ne trouve pas la position de la Textbox présent dans ce multi page.
Je n'ai pas assez de connaissance VBA, est il possible d'adapter ce code ?, ou il serait préférable que je cherche un autre calendrier. Merci

 

[ChTi160]

Bonjour JOL
Arff , la je peux rien pour toi !
ce calendrier :
c'est une production de Dranreb !
je ne touche pas à ça ! Lol
Bonne journée
jean marie

 

[JOL]

Bonjour ChTi160, merci pour ce retour, je vais tacher de l'afficher en haut avec saisie, et de récupérer le retour pour le placer ds une textbox.
Bon dimanche

 

[Dranreb]

Bonjour.
Remplacez votre ancienne version du calendrier par celle ci. Il y a eu une révision, en effet, de la méthode Posit, d'ailleurs un peu commentée :

      Lft = Obj.Left: Top = Obj.Top: Set U = Obj.Parent ' Normalement UserForm, Frame ou Page.
      Do: UInsWidth = U.InsideWidth: UInsHeight = U.InsideHeight ' Le Multipage n'aura plus les dimensions
         If TypeOf U Is MSForms.Page Then Set U = U.Parent '       intérieures, mais le Page n'avait que ça.

 

[JOL]

Bonjour Dranreb,
Super, merci pour cette mis à jour.
Bon dimanche