Calendrier marche sur 2007, pas sur 2003 ??

Re : Calendrier marche sur 2007, pas sur 2003 ??

Bonjour Cumulare
Bonjour Pierrejean(content de pouvoir te saluer)
Bonjour le Fil,Le Forum
En ouvrant le fichier dans xl2010 , j'ai moi aussi eu un problème avec les ActiveCell.Top et ActiveCell.Left
j'ai mis ceci dans la procédure(Remplacement de ActiveCell par Target)

Puis dans Classe1

Bonne journée
Amicalement
Jean Marie

Re : Calendrier marche sur 2007, pas sur 2003 ??

Bonjour Pierre-Jean
L'ancien code est le suivant:

1. Initialisation de la fenêtre
Private Sub UserForm_Initialize()

If FlagIniExe = False Then
If Hour(Now) >= 4 And Hour(Now) <= 11 Then
DateDeb = Now() - 1
I = 3
UF_DatePoste.Opt_P3.Value = 1
ElseIf Hour(Now) >= 12 And Hour(Now) <= 20 Then
DateDeb = Now
I = 1
UF_DatePoste.Opt_P1.Value = 1
Else
DateDeb = Now
I = 2
UF_DatePoste.Opt_P2.Value = 1
End If

UF_DatePoste.Calendar1.Value = Left(DateDeb, 10)
End If
End Sub

2. Ecriture sur un fichier temporaire de données récupérées de ma BD

Private Sub B_DatePoste_Click()
DéclarVar
Application.ScreenUpdating = False
Application.GoTo "z_clear_Tmp"
Set ZoneEnCours_1 = Selection
ZoneEnCours_1.Clear

Application.GoTo "Z_ClearTmp_Q"
Set ZoneEnCours_1 = Selection
ZoneEnCours_1.Clear

DateRech = Calendar1.Value
If Opt_P1 = True Then PosteRechTxt = "P1"
If Opt_P2 = True Then PosteRechTxt = "P2"
If Opt_P3 = True Then PosteRechTxt = "P3"

Application.GoTo "CritDatePosteFours"
ActiveCell.Offset(1, 0) = DateRech
ActiveCell.Offset(1, 1) = PosteRechTxt

FiltreDatePosteTmp "CritDatePosteFours"

Application.GoTo "CritDatePosteQ"
ActiveCell.Offset(1, 0) = ">" & DateRech - 8
ActiveCell.Offset(1, 1) = "<=" & DateRech

FiltreDatePosteTmpQ "CritDatePosteQ"


FiltreDatePosteTmp30 "CritDatePosteFours"


UF_DatePoste.Hide
F_Cal.Calculate
F_F34x0.Calculate
F_Prod.Calculate
F_F34x0.Select

End Sub


Cela fait partie d'une série de macro dont je ne suis pas le géniteur

Tu penses que je peux utiliser la méthode calendrier d'Excel 2010 pour faire la même chose?
Merci de ton avis

Re : Calendrier marche sur 2007, pas sur 2003 ??

Bonjour Jean Marie
Merci de ta réponse
En fait, le message d'erreur que me renvoie VBA est :
Erreur de compilation
membre de méthode ou de donnée introuvable

Il me semblait que c'était plutôt un problème de calendrier?
Je comprends le code dans les grandes lignes mais je ne suis pas comme toi et Pierre Jean des pros de la programmation VBA
Merci à tous les deux

Re : Calendrier marche sur 2007, pas sur 2003 ??

Pierre Jean, Jean Marie
C'est sur l'instruction:
UF_DatePoste.Calendar1.Value = Left(DateDeb, 10)
que VBA boghe su l'instruction calendar1

Re : Calendrier marche sur 2007, pas sur 2003 ??

Bonjour à tous,

pour chikkibamby,
ci-joint ton classeur "suivi" dans lequel j'ai mis mon calendrier autonome qui fonctionnera partout sans problème
à essayer et dire quoi !?

EDIT:

horreur, malheur, je ne suis pas réveillé ce matin !
je viens seulement de m'apercevoir que pour chikkibamby son post#1 date de 2009 😕😱😡

Re : Calendrier marche sur 2007, pas sur 2003 ??

Bonjour Roland
ta macro boghe sur l'instruction
Dim CaseJR As Control,
du programme de décalration des variables
LE motif est Projet ou bibliothèque introuvable
Même si cela date de 2009 , cela m'intéresse pour mon propre code

Re : Calendrier marche sur 2007, pas sur 2003 ??

Merci Chti160

Cela m'a aidé par ailleurs d'utiliser l'instruction target plutôt que activcell
Par contre, j'ai toujours le mêm b avec mon calendrier.
Je vais coder celui de Pierre Jean pour voir si je peux l'insérer dans ma macro.
a l'heure actuelle, j'ai réglémon problème en passant la date par une cellule: c'est moins PRO mais cela marche!
Autre question est-ce que qqun sait que quel complement, bibliothéque il faut activer sur EXCEL 2010 pour faire fonctionner l'instruction Left("chaine de caractère"; nb)?
Merci d'avance

Re : Calendrier marche sur 2007, pas sur 2003 ??

Bonjour,

Cumulare à dit:

Bonjour Roland
ta macro boghe sur l'instruction
Dim CaseJR As Control,
du programme de décalration des variables
LE motif est Projet ou bibliothèque introuvable
Même si cela date de 2009 , cela m'intéresse pour mon propre code

Cliquez pour agrandir...

attention avant toute chose il faut bien vérifier d'où vient le problème !!!

mon calendrier est toujours d'actualité.
2009 c'est la date du post# d'un forumeur.

ensuite il ne bug pas, il n'y a aucun souci à ce niveau.
c'est certainement une référence manquante du classeur même de l'auteur.

comme tu dis:
"LE motif est Projet ou bibliothèque introuvable"

es-tu allé voir dans l'éditeur vb et regarder dans outils références...
tu y verras certainement la référence MANQUANT: Microsoft Calendar Control 9.0
ce calendrier est présent sur la feuille mais invisible ! je l'ai vu depuis le code feuille !
il n'est pas d'origine de mon code calendrier car je ne me sert pas de référence !
en tout cas si ce n'est pas cette référence tu dois avoir un autre problème dans ce genre !

EDIT:
refais un essai avec ce même classeur de chikkibamby mais nettoyé.
et bien entendu toujours avec mon calendrier.

Re : Calendrier marche sur 2007, pas sur 2003 ??

Bonjour Roland
Merci de ton message privé qui me remet sur mon pb de calendrier
Oui, en effet c'était bien la bibliothèsque introuvable car manquante!J'ai décoché et tout est rentré dans l'ordre!
Oublier mon problème d'instruction left (x,y) car j'avais un pb de déclaration de variable; rien de plus!
Pour régler temporairement mon pb, j'avais pris le calendrier de Microsoft avec le contrôle Date& Time picker!
Mais, je vais greffer ton calendrier dans mon code pour y ajouter d'autres boutons et avoir un contrôle plus personnalisé!
Merci à tous pour votre aide!