Bonjour,
J'ai vb4. Pouquoi ma 2e ligne est sans effet? car lorsque mon
CommonDialog1 ouvre la case à côché pour lecture seul est toujours visible
dans la fenêtre CommonDialog.
CommonDialog1.F lags = cdlOFNCreatePro mpt 'And cdlOFNPathMustE xist And
cdlOFNLongFileN ames And cdlOFNExplorer 'cdlOFNFileMust Exist
CommonDialog1.F lags = cdlOFNHideReadO nly ' équivaut à &H4& 'Cache la
case à cocher pour l'option "lecture seul" d'un fichier.
J'ai au moins deux boutons pour ouvrir le même CommonDialog1, un dans un
dossier par défaut et l'autre dans un autre dossier par défaut. Et pourtant
dans mes deux procédures j'ai bien la ligne CommonDialog1.I nitDir =... pour
indiquer si on ouvre soit dans le dossier 'Vos listes' ou 'Personnel'. Car
en cliquant sur le même bouton tantôt il ouvre avec 'Vos listes' et tantôt
dans le dossier 'Personnel', et pourtant c'est le même bouton, la même
procédure qui est exécuté.
Dans une procédure j'ai
CommonDialog1.I nitDir = App.Path & "\Vos listes"
et dans l'autre j'ai
CommonDialog1.I nitDir = App.Path & "\Personnel "
a+
Raymond H.
divers_rh@hotma il.com
J'ai vb4. Pouquoi ma 2e ligne est sans effet? car lorsque mon
CommonDialog1 ouvre la case à côché pour lecture seul est toujours visible
dans la fenêtre CommonDialog.
CommonDialog1.F lags = cdlOFNCreatePro mpt 'And cdlOFNPathMustE xist And
cdlOFNLongFileN ames And cdlOFNExplorer 'cdlOFNFileMust Exist
CommonDialog1.F lags = cdlOFNHideReadO nly ' équivaut à &H4& 'Cache la
case à cocher pour l'option "lecture seul" d'un fichier.
J'ai au moins deux boutons pour ouvrir le même CommonDialog1, un dans un
dossier par défaut et l'autre dans un autre dossier par défaut. Et pourtant
dans mes deux procédures j'ai bien la ligne CommonDialog1.I nitDir =... pour
indiquer si on ouvre soit dans le dossier 'Vos listes' ou 'Personnel'. Car
en cliquant sur le même bouton tantôt il ouvre avec 'Vos listes' et tantôt
dans le dossier 'Personnel', et pourtant c'est le même bouton, la même
procédure qui est exécuté.
Dans une procédure j'ai
CommonDialog1.I nitDir = App.Path & "\Vos listes"
et dans l'autre j'ai
CommonDialog1.I nitDir = App.Path & "\Personnel "
a+
Raymond H.
divers_rh@hotma il.com