Reprise du message précédent :
en cherchant sur google, tu trouveras même des implémentations en VB (ptet avec un peu des API) mais ça existe

 
pourquoi tu as des ? a la place des ' ?
 
 
drapal sinon
 
 
vous avez un site de reférence pour VBA excel ?

JoceBug

www.vbfrance.com

ptain y manquait plus que ça
(vais devoir éditer tous mes posts )

 
j'y vois pas de tut, c'est normal ?

dite vous pouvez me dire ce qui cloche avec ma procedure ?
 
 

 
le probleme c'est que le fichier n'est pas crée , ca doit surement etre tout con mais vu que je suis une bouse
 
Merci de votre aide

fais un topic
(j'y connais pas grand chose à VBA )

 
ok, mais je crois que cette saloprie d'excel les a effacé alors que j'ai fait plein de control + S
 
 
ou elles peuvent etre  

pourquoi tu commence ta procedure par un "Close #1" ?    
Je sais pas comment ça marche en VBA, mais en VB on fait comme ça:

Public Sub SaveStrToFile(sStrToSave As String, sFilePath As String)
  Dim iFile As Integer
  
  iFile = FreeFile
  
  Open sFilePath For Output As #iFile
  
  Print #iFile, sStrToSave 
  
  Close #iFile
End sub

c'est bon en fait j'ai crée un topic et j'ai eu ma solution
 
pour le "Close #1" j'ai fait avec ce que j'ai trouvé sur le net
 
 

Le net cai le mal
 
La moitié des sources qu'on y trouve ne passent même pas la compilation

oué, enfin du VB j'en fait pas tout les jours si ca peux te consoler
 
sinon j'ai jamais eu de prob avec les sources java trouvé sur le net
 
 
 
 
 
 

Juste une petite question,  
 
Comment on peut faire pour faire tourner du code en arrière plan sous vb sans que ça n'empêche l'exécution du programme...
 
 
 
Au fait, Bonne vacance à tout ceux qui en ont !

ah tu veux dire du multithread?
en VB, oublie

 
en VB 6, oublie
 
 

certes
mais cette FAQ est 100% dédiée à VB6 en fait (faudrait que je le précise )

C'est vraiment pas possible? j'en ai assez besoin en fait...
 
Une soluce assez bancale serait d'utiliser un controle Timer mais bon, j'ai pas envie d'en arriver là...

c'est possible mais c'est un peu le Saint-Graal du VB. Très peu de gens sont parvenus à implémenter le multithreading en VB. Moi-même, je n'y arrive pas: j'ai pas le niveau

J'ai trouvé une source sur VBFrance qui le faisait, j'ai pas vraiment eu le temps de la regarder en détail mais ça m'a l'air assez complexe!
 
Je l'ai testé et ça me semble bien fonctionner quand même

c'est TRES complexe

qu'est-ce que tu penses d'utiliser un Timer en dernier recours?

Ca dépend un peu du contexte, et de toute façon, ça bloquera quand même par intermitence donc je ne trouve pas que ça soit si bon que ça

En fait, au démarage du programme je voudrai lancer une fonction de recherche qui prend assez bien de temps, mais sans que ça ne bloque l'utilisateur pendant ce temps là, après, j'en aurais plus besoin...

Une fois entré dans la fonction du timer, je peux toujours mettre le timer hors jeu pour que ça ne boucle pas...

... Mais ça m'étonnerais que mon responsable apprécie beaucoup cette soluce...

 
Ca marche bien sous l'interpreter, mais c'est carrement instable une fois compilé... (Les appels d'api permettant le multitreading semblent TRES mal gérés par VB). La seul solution de stabilité etant de réaliser des thread ne pouvant communiquer entre eux soit une utilisation non viable...

bin faut dire au départ, VB n'était pas prévu du tout pour les appels d'API, c'est une feature arrivée plus tard

D'après la description succinte que tu donnes de ton problème, ça semble être la seule solution.
Si la fonction de recherche est le dernier bout de code que tu execute avant de laisser la main à l'utilisateur et que le resultat de ta recherche n'est pas nécessaire pour la suite, il te suffit de placer l'instruction "DoEvents" dans la boucle de ta fonction de recherche pour que l'utilisateur puisse vaquer tranquillement à ses occupations. Attention aux conflits que pourrait occasionner les actions de l'utilisateur (modification de données partagées, fermeturede l'appli avant la fin de la fonction, etc.)

Ok, merci, je fais ça alors!

Une autre question, vous savez comment on peut récupérer une image d'une frame dans une vidéo?
 
C'est possible avec les composants média player?

trop pointu pour la FAQ
restons génériques
 
fais un topic, tu auras plus de chances

Juste une question... Vous savez ou je peux trouver un petit tuto très simple sur vb, mais vraiment les bases,  
 
..C'est pour une personne qui n'a jamais fait de la programmation...

Dis lui d'apprendre la programmation mais surtout pas avec VB.

Question déchargement mémoire:
Dans les cas extrèmes, mon appli prends plus de 100Mo en RAM répartis dans plusieurs centaines de milliers d'objets qui s'inter-référencent entre eux. J'ai remarqué plusieurs détails intéressant à la fermeture de l'appli:
-sous Windows 2000/XP la fermeture de l'appli est quasi instantanée
-sous windows 98 la fenêtre disparait mais le processus continue de tourner en occupant toujours la même quantité de ram et en occupant 100% du CPU pendant de nombreuses minutes avant de provoquer une erreur.
 
Après plusieurs test, j'ai découvert que le problème venai du fait que mon appli était pleine de références circulaires. Or si ça n'a pas l'air de gener Win 2000/XP, Win98 est complètement largué dans ce genre de situation. Après quelques recherches sur le net, la seule solution acceptable que j'ai trouvé est de libérer explicitement toutes les références de chaque objets avant de fermer l'appli.
Cette méthode fonctionne dans le sens ou l'appli se ferme proprement et libère la mémoire qu'elle occupait mais comporte pas mal d'inconvénients:
-La fermeture de l'appli n'est pas instantanée, la libération de la mémoire prends un certain temps.
-Pendant sa fermeture, l'appli prends 100% du CPU
-Le temps que prends la fermeture  de l'appli n'est pas proportionnel à la place prise en mémoire ou au nombre d'objets instancié. avec ~10 000 objets l'appli met 30 secondes à se fermer, avec ~150 000 objets l'appli met 45 minutes (!) pour se fermer.  
 
La solution que j'ai trouvé à ce problème est certe peu élégante, mias radicale : je suicide mon appli via les fonctions de l'API windows (je posterait le code demain si j'y pense). C'est radical, l'appli se ferme instantanémént, la mémoire est libérée et le processus disparait de la liste des taches. Pour l'instant, je ne vois pas d'inconvénients à ma méthode mais si vous avez entendu parler d'effets  pervers causé par la terminaison brutale d'un processus, je suis tout ouie.

bin perso je préfère tout libérer à la main

moi aussi, mais 45 minutes pour fermer une appli c'est trop long

Ca me paraît très long, même pour 150000 objets (j'ai jamais testé sous Win98 donc soit )
 
A ce moment là, faudrait ptet libérer des ressources quand lesdits objets sont pas utilisés. Je suppose que ça a quelque chose à voir avec des bases de données?

le code:
 

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 'API de fermeture de Process
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long 'Ouverture de Process
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long 'Ouverture de Process
 
Private Sub SuicideProcess()
  Dim ProcessId As Long
  Dim hProcess As Long
  
  'On récupère l'ID du processus
  ProcessId = GetCurrentProcessId()
  'On récupère un handle sur le processus
  hProcess = OpenProcess(1, False, ProcessId)
  'On kill le processus
  TerminateProcess hProcess, 4
  
End Sub

Si tu as une grosse appli en VB et un poste en Win98 sous la main, je te conseille de faire le test, c'est consternant
 

pas possible

Est-ce qu'il y a un moyen de savoir dans le code si on est en mode debug ? (à part faire un debu.assert)