Pour changer de l'accent c'est expliquer ici ;) :
http://answers.microsoft.com/fr-fr/office/forum/office_2007-excel/jaimerais-savoir-si-dans-excel-on-peut-utiliser-la/70062e68-3727-4783-b516-20f10eb8c02f

Pas mal, bien trouvé :)
Par contre moi je trouve qu'a cause de l'accent, quand on le faite parler français, on comprend rien ^^.
Mais avec les phrases anglaise SA MARCHE SUPER BIEN CE TRUC ^^

Merci :)

Bonjour,

Déjà très belle source MERCI :) simple et efficace. Par contre en l'état si on execute la commande cmd et non notepad (ou si le système est très occupé sa ne fonctionne plus (et ajouter un sleep dans tout cas est dommage, surtout qu'on ne sait pas à l'avance combien de temps vas prendre le système a affiché cette fenêtre :/). J'ai trouvé comme solution de tester sa et d'attendre 100 ms entre chaque test (et donc éviter de surcharger inutilement le système, en prime il n'est plus utile d'utilisé la commande shell :)). Enfin berf voila la mise à jour que je propose :


Private Sub bnlancer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnlancer.Click
        procap.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        procap.StartInfo.FileName = "notepad.exe"
        'procap.StartInfo.FileName = "cmd"
        procap.Start()
        hInst = procap.Id

        While procap.MainWindowHandle = 0
            System.Threading.Thread.CurrentThread.Sleep(100)
            Try
                procap = Process.GetProcessById(hInst) 'Retourne un nouveau composant Process, en fonction de l'identificateur de notepad
            Catch ex As Exception
                'Le programme exécuter est déjà terminé
                Exit Sub
            End Try
        End While
        hWndApp = procap.MainWindowHandle 'récup de l'handle
        nomproc = procap.MainWindowTitle 'récup du titre  -- inutile--
        bncap.Enabled = True
        bnlancer.Enabled = False
    End Sub

Bonjour,

Déjà merci pour ce control qui m'est BIEN utile (9/10) :)
Il faudrait ajouter un appel à Refresh dans la propriété Let de Style (pour voir changé le style immédiatement dans le design ;) )
Existe t'il une mise à jours incluant l'orientation ?

Bonne année :)

J'ai trouvé BEAUCOUP plus simple :

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

WritePrivateProfileString NomSection, vbNullString, vbNullString, CheminFichierINI

CoolWave :
Pour supprimer une variable :
WritePrivateProfileString NomSection, NomVariable, vbNullString, CheminFichierINI

Bonne prog ;)

Génial (8/10) :)
Merci, cette classe est bien pratique pour remplir un RecordSet :)
Des pitite remarque quand même (la perfection n'est pas de ce monde ;)) :
- Certaines variables ne sont pas déclarées (Names de la fonction AddRecord par exemple)
- Il manque le destructeur de la classe
- Impossible d'ajouté des colonnes une fois la première ligne ajouté

Néanmoins cette classe reste très bien et très pratique :)

Tiens ????
8<-------- de Elektordi le 17/12/2004 20:13:05
Et si le programme plante ?
-------->8
8<-------- de sergebre le 18/12/2004 12:22:20
tu utilises un gestionnaire d'erreur, le blabla habituel.
try-catch-finally par exemple, au niveau de la création du mutex et au niveau de Application.Run(....).

c'est pas les exemples qui manque sur le site...
-------->8

Les mutex ne sont pas gérer par Windows directement ??? Si l'appli plante le mutex est détruit par Win donc pas besoin de gestion d'erreur (perso je n'est jamais utilisé la class mutex donc à testé mais les APIs ci dessous fonctionne sur ce principe ;) )

Déclaration pour VB6 :
Crée un Mutex
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (ByVal lpMutexAttributes As Long, ByVal bInitialOwner As Long, ByVal lpName As String) As Long

Ouvre un mutex si il existe (retourne 0 si il n'existe pas ;))
Private Declare Function OpenMutex Lib "kernel32" Alias "OpenMutexA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long

Voila bonne prog

:) amicalement :)

Pas mal du tout :)
Code propre et organisé par region :)
Oracle et PostgreSQL serais un plus ;)
8/10 (-2 points pour manque de commentaire, mais le code reste compréhensif)

:) Amicalement :)

Merci de ta réponse et bravo pour la réactivité :)

Oui c'était bien sa :)
Je test puis je note ta source ;)

:) Amicalement :)

Bonjour,
Erreur, compilation impossible (sous VS-2005):
Error 1 Unable to find manifest signing certificate in the certificate store. ListeDD.ViewDB

Dommage semble vraiment intéressant. T_T
Mettre à jour le Zip svp

:) Amicalement :)