OVH Cloud OVH Cloud

Pb Macro

21 réponses
Avatar
rs
Jai un souci sur un fichier contenant des macros, j'ai fait un débog et elle
bloque sur le DTPICKER avec msg objet requiq mais je ne comprned pas du tout
Merci pour votre aide, ci joint la macro

Private Sub UserForm_Initialize()

Dim nom_utilisateur As String
Dim start_plage As Variant
Dim i As Integer
Dim j As Integer
Dim jour_en_cours As Date
ActiveSheet.Unprotect Password:=admin_psw
ActiveWorkbook.Unprotect Password:=admin_psw

jour_en_cours = FormatDateTime(Now, vbShortDate)
DTPicker1.Value = jour_en_cours
DTPicker2.Value = jour_en_cours

j = liste_utilsateur
nom_utilsateur = Range(Cells(j, 1), Cells(j, 1)).Address
start_plage = Range("A228").Address
'Cbliste_nom.RowSource = "B2:" & nom_utilsateur
Cbliste_nom.RowSource = start_plage & ":" & nom_utilsateur
'Call mef_fichier
ActiveSheet.Protect Password:=admin_psw, DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Password:=admin_psw, structure:=True, Windows:=True

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveWorkbook.Protect Password:=admin_psw, structure:=True, Windows:=True
ActiveSheet.Protect Password:=admin_psw, DrawingObjects:=True,
Contents:=True, Scenarios:=True

End Sub

Private Sub UserForm_Activate()
j = liste_utilsateur
nom_utilsateur = Range(Cells(j, 1), Cells(j, 1)).Address
start_plage = Range("A228").Address
'Cbliste_nom.RowSource = "B2:" & nom_utilsateur
UserForm6.Cbliste_nom.RowSource = start_plage & ":" & nom_utilsateur
End Sub

10 réponses

1 2 3
Avatar
JLuc
*Bonjour rs*,
Je n'ai aucun DTPicker sur le userform1, peut etre qu'il faut que je le
charge, mais ou est il ?

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
Avatar
Daniel
J'ai pas trouvé de DTPicker ?
Daniel
"rs" a écrit dans le message de news:

Oups désolé mdp= mce

"Daniel" wrote:

Ca serait bien d'avoir le mot de passe du code.
Daniel
"rs" a écrit dans le message de news:

C'est fait le fichier a été compressé son nom réservation pc
portable.zip
http://cjoint.com/?eAlQm1suP1
Merci pour ton aide
Qaudn je le lance il m'indique une erreur 424, objet requis

"JLuc" wrote:

*Bonjour rs*,

Ci joint mon code ci jms tu connais bien le truc. Merci
Plutot que de mettre ton code (qui est relativement long) si tu

mettais
ton classeur en passant par www.cjoint.com ? On pourrait tester et
rencontrer le même probleme que toi, donc savoir ce qui coince et te
depanner plus facilement ;-)

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O















Avatar
JLuc
*Bonjour rs*,

C'est bon, je les ai trouver et inserer :oÞ .Par contre, une fois mis
je ne rencontre pas de problemes 8-o

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
Avatar
JLuc
*Bonjour Daniel*,

il faut le rajouter dans les controls
c'est "Microsoft Date and Time Picker...."
J'ai pas trouvé de DTPicker ?
Daniel


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
rs
Le fichier s'exécute bien????
CAr pour moi à l'ouverture j'ai directement l'erreur d'exécution avec objet
requis et impossible de savoir ce quil veut


"JLuc" wrote:

*Bonjour rs*,

C'est bon, je les ai trouver et inserer :oÞ .Par contre, une fois mis
je ne rencontre pas de problemes 8-o

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
JLuc
*Bonjour rs*,
Le fichier s'exécute bien????
Oui, sans probleme


CAr pour moi à l'ouverture j'ai directement l'erreur d'exécution avec objet
requis et impossible de savoir ce quil veut
Retourne dans ton formulaire pour voir si tes DTPicker n'ont pas

"sauter". Au depart j'avais ce probleme, puis je les ai rajouter et
tout fonctionne. Par contre, j'aurai aimer voir plus loin le
fonctionnement, ou as tu stocker les mbp ?

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Daniel
Précision : je n'ai pas trouvé de DTPicker dans UserForm1
Daniel
"JLuc" a écrit dans le message de news:

*Bonjour Daniel*,

il faut le rajouter dans les controls
c'est "Microsoft Date and Time Picker...."
J'ai pas trouvé de DTPicker ?
Daniel


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
JLuc
*Bonjour Daniel*,
Moi non plus, c'est pour ca que je les ai rajouter. Apres ca semble
bien fonctionner

Précision : je n'ai pas trouvé de DTPicker dans UserForm1
Daniel


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
JLuc
*Bonjour rs*,
Apparement tu va avoir des problemes sur tous les formulaires qui
utilisent un DTPicker, ils ont l'air d'avoir tous disparus 8-o

Le fichier s'exécute bien????
CAr pour moi à l'ouverture j'ai directement l'erreur d'exécution avec objet
requis et impossible de savoir ce quil veut


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
rs
Il n'y a pas un moyen pour m'en sortir
Instal???

"JLuc" wrote:

*Bonjour rs*,
Apparement tu va avoir des problemes sur tous les formulaires qui
utilisent un DTPicker, ils ont l'air d'avoir tous disparus 8-o

Le fichier s'exécute bien????
CAr pour moi à l'ouverture j'ai directement l'erreur d'exécution avec objet
requis et impossible de savoir ce quil veut


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






1 2 3