re

pardon il fallait comprendre :

Un objet "DtPicker" est disponible en VBA mais bon il faut bien se trouver des exercices...

A+

Salut,

Un objet DataPicker est disponible en VBA mais bon il faut bien se trouver des exercices...

je n'ai pas regardé le code dans le détail mais 2 remarques tout de même:

- le remplissage de tes combobox pourrait se faire via des boucles. Un exemple pour les mois:

Sub demo()
Dim i As Long, MaDate As String, mois As String
    For i = 1 To 12
        MaDate = i & "/" & i & "/2000" 'methode simple pour la compatibilité US/EU
        mois = Format(DateValue(MaDate), "MMMM")
        MsgBox mois 'à remplacer un additem
    Next
End Sub

- intéresse toi à l'utilisation de classe qui te permettrais d'éviter la série de lignes de code:

Private Sub lblJour03_Click()
'Executer la procédure.
Call SelectionJour("lblJour03")
End Sub

Private Sub lblJour04_Click()
'Executer la procédure.
Call SelectionJour("lblJour04")
End Sub

etc.


A+

Bonjour,

oui effectivement LUCHIXON, renseignement pris tu as raison. Par contre la propriété "Caption" est utilisable pour l'application excel  de la version XL2000 donc:

En haut du module1(mais après Option Explicit) tu ajoutes:

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

un peu plus bas dans ce même module tu déclares une nouvelle variable public :

Public ThisXlhWnd As Long

Puis dans la sub "Workbook_Open()" de "ThisWorkBook" tu remplace la ligne:

    SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime

par les 2 lignes suivantes:

    ThisXlhWnd = FindWindow(vbNullString, Application.Caption)
    SetTimer ThisXlhWnd, 0, 1000, AddressOf UpDateTime

enfin dans la Sub "Workbook_BeforeClose(Cancel As Boolean)" de ce même "ThisWorkBook" remplace la ligne

    KillTimer Application.hWnd, 0

Par les 2 lignes suivantes:

    ThisXlhWnd = FindWindow(vbNullString, Application.Caption)
    KillTimer ThisXlhWnd, 0

Essai et tien moi informé

A+

Salut,

comme suggeré plus haut, voici un exemple de l'utilisation des "CustomDocumentProperties"

Posté ici :
http://www.vbfrance.com/codes/UTILISER-PROPRIETES-PERSO-DOCUMENT-COMME-PARAMETRES-SETTINGS_53980.aspx

Pour rassurer l'ami MIMIZanZan, l'exemple inclus une méthode de protection des propriétés par combinaison de touche, qui associée à un mot de passe sur le code devrait freiner les ardeurs d'un utilisateur lambda.

A+

Salut,

j'ajouterai que l'avantage d'excel est que l'on peut avec la même méthode utiliser une feuille excel en lieu et place d'un fichier extérieur.

Quand à word il est possible d'utilisé la collection "CustomDocumentProperties" qui permet de conserver des paramètres.

En tout cas ta source à le mérite de montrer comment faire et l'avantage de  facilement permettre la personnalisation par chaque utilisateur.

A+

Salut RenFIELD,

Dans ton projet, ou trouve ton les constantes :

READYSTATE_INTERACTIVE
READYSTATE_COMPLETE

des 2 ligne qui suivent:

   Do Until WebBrowser1.readyState = READYSTATE_INTERACTIVE: DoEvents: Loop
   Do Until WebBrowser1.readyState = READYSTATE_COMPLETE: DoEvents: Loop

ne manquerait-il pas l'enumeration des valeurs de la propriété READYSTATE ?

telle que:

Enum READYSTATE
    READYSTATE_UNINITIALIZED = 0
    READYSTATE_LOADING = 1
    READYSTATE_LOADED = 2
    READYSTATE_INTERACTIVE = 3
    READYSTATE_COMPLETE = 4
End Enum

Ou bien sont'elles connues de l'objet Webrowser ? apparemment oui !

Il me semble que si l'on travail directement avec l'objet IE il faut cette énumération...

A moins que le fait de référencer IE suffit ?... mais comme je n'aime pas le référencement à IE je n'est pas essayé.

A+

PS bon ok j'ai la question et la réponse mais cela coûte rien de le signaler ;)

Salut,

très bonne idée plutôt bien aboutie. Il reste à améliorer le déplacement trop sensible...
Beaucoup de bonnes idées et de choses que je ne connaissais pas.

2 questions:

-pour ta démo les graphiques sont dans des feuilles graphique, alors pourquoi utiliser un module de classe pour la classe chart ? Cette classe est pourtant intégrée et utilisable en direct dans ces feuilles graphique !

-l'intérêt d'un module de classe aurait été pour les graphiques dans les feuilles classiques d'excel hors apparemment cela ne fonctionne pas.
En tous cas sur excel 2003 ?

A+

re,

ah oui j'oubliai : si l'utilisateur active les macro à l'ouverture et maintient la touche shift enfoncée lors de l'ouverture du fichier, le fichier sera alors ouvert en mode création. De fait les macro sont activées mais pas exécutées. Donc dans ton cas le formulaire ne sera pas affiché.

A+

Salut,
y a de l'idée !
vas voir ici : http://www.vbfrance.com/codes/ASTUCE-AMELIORER-SECURITE-ACCES-DONNEES-CODE-FICHIER-EXCEL_48448.aspx
il y presque tout ce que tu cherches à faire, mise à part le mot de passe crypté.

A+

Salut,

tres bonne idée, mais un petit problème avec la ligne suivante !

SavePicture iPic, "C:\Users\" & Application.UserName & "\Desktop\" & NOM_IMAGE & ".jpg"

En fait suivant la version de windows ou du choix de l'utilisateur ce chemin peut être different.
De plus sur certaine version de Windows, xp familiale en français je crois, le répertoire "Desktop" est en français donc nommé "Bureau".
Pour éviter ce problème il est préférable d'aller chercher le chemin dans la bdr.

Essai ceci :

Set WshShell = CreateObject("WScript.Shell")
    UserDeskPath = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")
    UserDeskPath = UserDeskPath & Application.PathSeparator
    SavePicture iPic, UserDeskPath & NOM_IMAGE & ".jpg"
    WshShell.Popup "un cliché de la selection a été déposé sur le bureau sous le nom de : " & NOM_IMAGE & ".bmp", 2, "CLICHE DE LA SELECTION"

A+