Communauté Fb
Follow us on twitter
Les vidéos du site
Le site complément
Dépannage de votre PC

Programmer en vb

Bonjour et bienvenue,

Programmer en VB est le site qui vous fera prendre conscience que vous pouvez concevoir votre programme informatique vous-même, que vous soyez artisan, employé ou étudiant.

Le Visual Basic est un langage informatique très puissant, très flexible et très abordable.
Une version en application se trouve sous Office
Excel pour exemple :
Tapez Alt + F11 à l’aide de votre clavier puis vous voilà dans l’éditeur de code VBA.

Notre forum d’entraide vous offre des tutoriels ainsi que divers exemples tout prêt à adapter à votre projet personnel.
Nous vous demandons uniquement de la bonne humeur et de la bonne volonté pour toutes questions ou toutes aides quelle qu’elle soit.
Sachez que pour progresser rapidement il est conseillé d’aider au mieux les autres membres.
Nous ne sommes pas là pour juger les qualités ou défauts de codes proposés, mais pour trouver ensemble la solution à votre demande.

A vos claviers :

Afin de remplir le forum, nous vous demandons de partager sur les réseaux sociaux et autres.
https://www.facebook.com/AdminPVB/


Merci de nous rejoindre sur http://programmer-en-vb.forumactif.org/
Merci d'avoir pris le temps de lire.
Merci pour votre inscription.

L'équipe de Programmer-en-VB

Forum de programmation VBA et VB.NET

Welcome if you do not speak french,you are able to translate the whole topics with the flags just below this message. Click to English

Visual Basic Application et VB.net de puissants langages à la portée de tous.

Participez et soyez acteurs des divers forums ci-dessous.

Bienvenue à chaque nouveaux membres et merci à tous ceux qui font vivre ce forum.


Qui est en ligne ?

Il y a en tout 14 utilisateurs en ligne :: 1 Enregistré, 0 Invisible et 13 Invités

AdminPVB


Le record du nombre d'utilisateurs en ligne est de 65 le Mar 8 Juil - 23:40

Statistiques

Nos membres ont posté un total de 5395 messages dans 635 sujets

Nous avons 461 membres enregistrés

L'utilisateur enregistré le plus récent est RACCH

Recherche dans les forums

Utiliser cette méthode afin de trouver rapidement les discussions disponible sur notre forum.


Utiliser le bouton résolu

Dans votre message d'origine
cliquer sur le bouton



Ensuite tout en bas sur
Modifier le titre du sujet
cliquer sur le bouton

Résolu !!!

Ensuite changer l’icône du sujet par le bouton

Voilà pas plus compliqué que cela.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Partenaires


créer un forum



Annuaire referencement


Flux RSS


MSN 

Novembre 2017

LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   

Calendrier Calendrier

Création d'un raccourci sur le Bureau pour son Application

Mar 10 Oct - 18:49 par IFFIC

Bonsoir à tous, ou Bonjour s'il est plus tôt qu'à cette heure,
Je ne suis pas passé bien souvent par ici, car j'étais pris sur un gros projet depuis voici un peu plus d'un an.

Au bénéfice de bidouilles trouvées dans mes travaux, je vous livre celle-ci:
Car il est bien confortable de n'avoir pas à fouiller dans l'arborescence d'un disque externe ou une clé USB, voire en ayant changé de …

[ Lecture complète ]
Petits bidouillages pour ce faciliter La vie ,Astuces et codes pratique

Dim 11 Juin - 12:20 par Berly

Bonjour le Forum  Very Happy.

Lorsque j'écrivais dans mon code Console.Writeline ("Patati,Patata,......) ,j'ai d'abord utilisé le copié collé en changeant la valeur du texte .

Bon d'accord ,c'est bien mais ,ça me saoul un peu ,au fur et a mesure de mes apprentissages ,j'ai découvert les fonctions  Very Happy.

Maintenant je partage celle ci avec vous .

On est la sur un exemple de code en "Mode …

[ Lecture complète ]
Menustrip Vbnet Visual Studio

Sam 16 Sep - 21:05 par Berly

Bonsoir le Forum  Very Happy

Je suis actuellement en construction  d'un logiciel pour les enfants en scolarité primaire.(Visual Studio Community 2017)

Je l'ai commencé et il fonctionne parfaitement a ce stade.

J'utilise Le contrôle MenuSrip.

Au commencement il est question d'afficher par catégorie tables de 1 a 10 .
Un Premier Bouton "Tables de Multiplications" Aucun événement 
Puis Ajouts …

[ Lecture complète ]
suppression d'un fichier txt en cours d'utilisation

Mar 5 Sep - 9:51 par La boc

Bonjour,

dans mon application j'ai un fichier txt qui est chargé dans un DataGridView en fonction du n° ID.

Quand je supprime un ID, je dois aussi supprimer ce fichier, quand je fait un delete ça marche bien, le fichier est bien supprimé du dossier mais quand je ferme l'application j'ai un message box:

"Violation de l’accès concurrentiel:
Delete command a effectué 0 des enregistrements …

[ Lecture complète ]
Boucle sur DataGridView

Jeu 31 Aoû - 8:25 par La boc

Bonjour as tous,

J'ai laissé tomber la BDD avec les tables pour mes factures, parce-que j'ai plus de 850 entrées à gérer et ça va être un peu trop lourd.

Je suis donc partis sur des DataGridView pour emplir mes factures, et au lieu d'enregistrer dans une BDD j'enregistre dans un fichier txt et je recharge les fchier en fonction du nom du client.

Jusque là pas de problème.

Je voudrais …

[ Lecture complète ]
Liers des tables dans une BDD

Lun 28 Aoû - 15:08 par La boc

Bonjour à tous,

Je sèche sur un problème visiblement simple, mais impossible de faire quelque chose qui fonctionne!

Voilà dans une base de données access j'ai deux tables, une table client et une table facture, je souhaiterais lier les ID des deux tables pour que quand je choisis un id client j'ai sa facture dans la table facture.

Je fais une application VBNET avec Visulal studio comunity …

[ Lecture complète ]
Application

Lun 15 Mai - 19:02 par Berly

Bonjour le forum

Souci dans une nouvelle application.

Total des énoncés =3

Ecriture de l'énoncé 1 dans un Textbox.

Je voulais créer plusieurs problèmes différents.
Dons pour cela j'ai créé 3 sub  Laughing.

Lors de l'événement clic sur le bouton créé pour visualiser le premier énoncé celui ci s'affiche correctement Very Happy .
Suite a cela l'utilisateur donne le résultat ,et un Msgbox …

[ Lecture complète ]
Obtenir le volume sonore enregistré par le micro

Sam 10 Sep - 13:29 par Nayl.VBcoder

Bonjour,

Je cherche à avoir le volume sonore de la pièce en temps réel, et l'afficher dans une ProgressBar.
Je ne vois pas comme plus décrire mon problème.

Merci de vos réponses.

Utilisation d'un objet son (Wav)

Jeu 18 Mai - 21:48 par Berly

Bonjour le forum 

Voila , je voudrais savoir si on peut créer un tableau d'objets son.
Difficile de trouver ce genre d'information .

Les sons  sont intégrés en ressources programme.

Merci  Very Happy
Code:
[Module Module1
    Dim son1 = New System.Media.SoundPlayer(My.Resources._0283)
    Dim son2 = New System.Media.SoundPlayer(My.Resources._0863)
    Dim son3 = New …


[ Lecture complète ]

[résolu]Recherche mots dans un Word depuis Excel

Partagez
avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

[résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Jeu 17 Aoû - 18:17

Bonsoir à tous, ou Bonsoir suivant la position du soleil,

J'ai une petite macro de rien du tout qui marche vachement bien, sans fioritures

Elle me trouve les mots soulignés dans un document Word.
Mais, je ne parviens pas à la traduire pour qu'elle me dise seulement si le mot existe.

En fait: Remplacer le  " .Font.Underline" par ". text", ou un truc du genre que je ne trouve pas. Embarassed

Si quelqu'un a une idée, je lui en serais très reconnaissant Smile
Yves
Zip joint:
http://www.cjoint.com/c/GHrqlpeLEku
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1903
Date d'inscription : 24/05/2013
Age : 41

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par AdminPVB le Jeu 17 Aoû - 20:57

Salut mon ami,
belle macro,
c'est avec plaisir que je te donne cette petite réponse qui je pense te fera fort plaisir.
Avec la fonction "Trim" tu supprimes les espaces en trop qui gène.
LTrim pour espace de gauche, et RTrim pour ceux de droite.
voici ce que tu dois utiliser:
Code:
If Trim(MOT_A_TROUVER) =
Au plaisir. Very Happy


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
grisan29
Modérateur
Modérateur

Localisation : BRETAGNE Nord 29
Messages : 800
Date d'inscription : 25/07/2013
Age : 54

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par grisan29 le Jeu 17 Aoû - 20:58

Bonsoir IFFIC Very Happy 

Comment vas le sud
bon dans ton classeur le MOT_A_TROUVER est vide il ne correspond a rien
For Each MOT_A_TROUVER In ActiveDocuments.Words = vide
le bug ne s'affiche pas alors paser par cjoint

vue du bug




http://www.cjoint.com/c/GHrtmteyL76



edit bonsoir Fredéric

Pascal


_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Ven 18 Aoû - 0:48

Merci Pascal pour avoir regardé Smile , mais le bug n'est pas là, car "ActiveDocument.Words" signifie simplement la collection de mots dans le document.
(Tu devais avoir un autre Word ouvert qui a fichu le désordre)

Sauf que cette collection inclut le mot et l'espace après ce dernier.

Ce qu'avait bien vu notre Admin que je remercie, bien entendu, vivement cheers  Very Happy
Je n'aurais jamais soupçonné ce caprice de vba/word !!!

Donc Rtrim étant suffisant, j'ai rectifié ainsi ma bidouille qui fonctionne à présent:


Code:
Option Compare Text 'Pour ignorer Majuscules ou minuscules
Private Sub CommandButton1_Click()
Dim MON_DOC As Word.Document
Set MON_DOC = GetObject(ThisWorkbook.Path & "\ASSURANCE.docx") ', "Word.Document")

MON_DOC.Application.Visible = True

For Each MOT_A_TROUVER In ActiveDocument.Words

  If RTrim(MOT_A_TROUVER) = "prie" Then
      LIGNE = LIGNE + 1
      ActiveSheet.Cells(LIGNE, 1).Value = MOT_A_TROUVER
  End If

Next
Word.Application.Quit
End Sub

Sauf qu'avec l'expression "résiliation du bail", cela ne marche pas en raison des espaces entre les mots.

Il me reste à manipuler la chaîne, la décomposer, et peut-être aussi de jouer avec "InStrRev" … Je vais voir.

Mon but final est de pouvoir fouiller dans une grande bibliothèque de textes de loi (.docx)
et de dresser la liste de ceux qui contiennent par exemple "Convention fiscale avec l'état".

Ce sera sans doute un peu long, mais souvent plus efficace que sa propre mémoire au regard de la caisse de textes.

Sympa à vous de m'avoir si vite et pertinemment répondu. Very Happy Very Happy Very Happy
Yves
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1903
Date d'inscription : 24/05/2013
Age : 41

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par AdminPVB le Sam 19 Aoû - 11:24

Bonjour Iffic,
Afin de ne pas te casser la tête à décomposer la chaîne,tu peux toujours utiliser la fonction"Like"
Comme cela
Code:
If MOT A TROUVER Like "*" & "Convention fiscale avec l'état" & "*" Then
A bientôt


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Sam 19 Aoû - 15:01

Bonjour Fred Very Happy , et à ceux qui suivront cet échange,
Je vais travailler un morceau de temps cet après-midi sur ce module de mon appli en cours,car il me faut aboutir assez vite.
NDLR: Tu auras, si tu as bonne mémoire, ciblé la personne proche pour qui je travaille.

Je vais donc partir sur ton idée dans mes premiers tests.


Ma direction actuelle était de mettre dans un tableau virtuel la totalité du texte Word (WholeStory) ou dans une variable et de faire:

Sur cette mémoire appelée, par exemple " MON_TEXTE"
ActiveDocument. WholeStory.Select
MON_TEXTE = ActiveDocument.WholeStory
Je ferais donc une recherche sur cette mémoire ainsi:
If InStrRev(MON_TEXTE, " Convention fiscale avec l'état ") <> 0 Then
Puis j'ajoute dans une ListBox, le Path du Fichier trouvé pour pouvoir, par la suite, l'ouvrir et vérifier s'il convient.
End if

A suivre, car cela serait aussi utile pour retrouver dans ses propres documents le fichier où l'on a écrit,
par exemple, le prénom d'une cousine ou parlé de sa caravane

Merci pour ton attention et ton intension à m'aider, que j'apprécie fortement.
Yves

PS Pour ceux qui voudront tester, il est impératif d'ajouter dans mes macros ci-dessus:
"MON_DOC.Activate", sinon, la macro risque de ne pas savoir où aller
+ Cela ne fonctionne qu'une seule fois pour l'instant, car Bill fait croire que le nouveau document n'est pas ouvert,
alors qu'il l'est bien => histoire de faire suer les développeurs!!!!
avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Sam 19 Aoû - 16:21

IMPORTANT:
Ne plus chercher, car j'ai trouvé simple et efficace.


Je vais mettre tout cela au propre, et transmettre soit mon code, ou un Classeur exemple.

Amicalement, et disant combien il est confortable que ce site existe pour apprendre et aussi nous booster Very Happy Very Happy Very Happy

Yves
avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Sam 19 Aoû - 19:39

Pour suite, voici la macro qui fonctionne bien en peu de mots et à remplacer dans mon Classeur précédent:


Code:
Dim DOCUMENT_TYPE As New Word.Application
CHOIX_TEXTE = ThisWorkbook.Path & "\ASSURANCE.docx"

DOCUMENT_TYPE.Documents.Open CHOIX_TEXTE
          With DOCUMENT_TYPE
          .Visible = True
          .Selection.WholeStory
          End With
      
If InStrRev(DOCUMENT_TYPE.Selection, "Convention fiscale avec l'état") <> 0 Then
     MsgBox "J'ai trouvé"    
Else
     MsgBox "Je n'ai pas trouvé"
End If
Word.Application.Quit

Sauf qu'il reste souvent un bug à une seconde recherche
A noter que pour un essai, il faut ajouter ou non dans le document
Code:
"Convention fiscale avec l'état"
avatar
grisan29
Modérateur
Modérateur

Localisation : BRETAGNE Nord 29
Messages : 800
Date d'inscription : 25/07/2013
Age : 54

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par grisan29 le Sam 19 Aoû - 20:20

bonsoir Iffic

je viens de faire un essai avec ton code , il s'est lancé mais 30 s après rien 45 rien 1 minutes un panneau qui s'affiche pour dire

mais le clic sur OK relance 5 s la recherche et le panneau reviens sans arrêt comme cela

et j'ai tout fermé sauf le net pour l'essai


_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Mar 22 Aoû - 18:57

Bonsoir à tous ou Bonjour s'il est plus tôt,
Je vous offre un casse-croûte en devoir de fin de vacances Embarassed Embarassed Embarassed 

Ma recherche de mots ou chaîne de mots fonctionne bien, soit avec un choix du ComboBox, ou manuellement dans le TextBox
Sauf, sauf que:

- Je ne parviens pas à commander à Word de se fermer, ni même aux documents qui ont été ouverts.

- De plus, cela ne fonctionne qu'une seule fois car il se créer des fichiers étranges dans le répertoire choisi qui vont fichent le désordre
(Par miracle, ils vont tous avoir le mot recherché … Etrange, non?)

Par exemple: Un doc appelé "ASSURANCE", devient "~$SURANCE"  Suspect son type et son extension restant toujours comme à l'origine. (Pas de tmp ou thumbs)

Il n'y a qu'en éteignant l'ordi et le rallumant, que je retrouve un fonctionnement à peu près normal.
Mais dans certains cas, je suis obligé de déplacer mes 4 textes du Dossier "COURRIERS" (Sans Ctrl+A) dans un nouveau.

Si quelqu'un comprend ce truc qui n'est pas piqué des hannetons, je saurai lui dire mon "Bravo"
Mon ZIP en PJ:
http://www.cjoint.com/c/GHwq24kS0Fu
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1903
Date d'inscription : 24/05/2013
Age : 41

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par AdminPVB le Mer 23 Aoû - 7:22

Bonjour,
j'ai ajouté ça:
Code:
'CHOIX_TEXTE.Close
'DOCUMENT_A_LIRE.Application.Quit
DOCUMENT_A_LIRE.Documents.Close
Next i
 DOCUMENT_A_LIRE.Quit
Word.Application.Quit
End Sub
regardes si pour toi c'est ok.
Bonne journée (je vais au boulot)


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Mer 23 Aoû - 15:27

Bonjours Fred, et à tous,
Ça marche Super! Énorme Merci!

J'avais tenté de multiples trucs, mais d'ajouter  ".Documents" à "DOCUMENT_A_LIRE.Documents.Close",
J'étais bien loin d'y penser. Embarassed 
La porte est donc grande ouverte pour appliquer ce code de mille et une façons dans une appli.

Concernant la lenteur que je craignais, j'ai testé sur un répertoire ayant 12 documents, dont l'un de 14 pages.
=> Une expression de trois mots est trouvée dans la seconde. (Même avec une recherche improbable, il n'y a pas de bug)

La destinataire de ma bidouille va certainement être ravie, cheers

A mon amitié, je joins mes remerciements
Yves
avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Sam 28 Oct - 18:52

Bonjour à ceux qui passeront par-là, ou Bonsoir suivant le méridien, heure d'été ou d'hiver sunny
Par suite de l'aide reçue ici Very Happy , je me devais de partager la présente bidouille qui a pour fonction de trouver un mot ou une expression dans les Words d'un répertoire.

Dans ce qu'il y a parfaire:
- L'image de fond de l'USF dont j'ai éliminé les bateaux, mais restent les mâts!!! (J'ai honte de n'en avoir pas pris le temps Embarassed )
- La Scroll Bar verticale dont je n'ai pas paramétré le top et le height.

Dans ce qui est confortable:
- La fouille dans 160 documents en une minute et quinze secondes pour trouver 56 textes avec le mot "Bonjour"
(Dans un test de 2327 ".doc' ou ".docx", cela a demandé de l'ordre de 20 minutes pour trouver 30 qui contiennent ce mot.
Cela peut paraître long, mais au regard d'une recherche manuelle, il n'y a pas photo !!!
- La visualisation du contenu est instantanée en passant la souris sur les titres.
- En cliquant sur un titre, le Word s'ouvre, et l'on peut le lire

Dans ce qu'il serait possible de faire:
- Le chemin complet du Doc étant en mémoire le mettre à la corbeille ou le déplacer dans un autre Dossier)
- En trois lignes de code, le transcrire en ".pdf", et c ….

Dans ce qui est amusant:
- L'appel à des images incluses dans l'USF pour visualiser la trouvaille (Lentille du phare éteinte, rouge, ou jaune)

Dans ce qui est à considérer:
- Le minimum de déclaration de variables qui boufferaient un max de lignes => La mémoire balaise de nos ordis actuels n'en a plus besoin! No
Si l'on enlève ce qu'il m'a été nécessaire pour une visualisation logique des contrôles dans l'usf,
force est de constater que le projet comporte que peu de lignes pour agir. (On peut même se passer de cacher la bande bleue)
- Les modules sont commentés => Ce qui devrait permettre à beaucoup de les adapter à leurs projets.

"Atchoum", à vos souhaits de poursuivre, et que les visiteurs ne se cachent pas derrière un mouchoir de silence….
Yves
P.J.
http://www.cjoint.com/c/GJCqS2sr6Y4
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1903
Date d'inscription : 24/05/2013
Age : 41

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par AdminPVB le Sam 28 Oct - 22:24

Bonsoir,
un grand merci pour le partage,belle image de fond.
je retourne le fichier avec des modifications.
la première sur la forme j'ai enlever le TabStop de la TextBox2 afin de ne plus avoir le curseur blanc qui clignote
la deuxième et troisèmes concernent la gestion d'erreur dans le cas ou il n'y a pas de fichiers Doc ou Docx dans le dossier choisi.



Code:
Private Sub Image1_Click() 'LOUPE RECHERCHE
Me.Image1.Visible = False
Me.Label2.Top = 84
Me.TextBox1.Visible = False
Call RECHERCHE_MOTS_DANS_TEXTES 'On va ouvrir et fouiller dans les documents
If N <> 0 Then ' En fin de recherche, on visualise le résultat ou l'échec
Me.Image10.Picture = Me.LENTILLE_JAUNE.Picture
Me.Label2.Caption = "<= " & N & " Documents trouvés sur " & UBound(TAB_FICH, 2) & " fouillés"
Else
On Error GoTo fin:
Me.Label2.Caption = "Recherche infructueuse dans les " & UBound(TAB_FICH, 2) & " documents fouillés"
fin:
If Err Then MsgBox "erreur à gérer,pas de fichier word dans le dossier choisi" & vbCrLf & "Sub LA_FOINE" & vbCrLf & "Private Sub Image1_Click()", vbInformation
On Error GoTo 0
End If
End Sub
et
Code:
Sub RECHERCHE_MOTS_DANS_TEXTES()
N = 0
Dim DOCUMENT_A_LIRE As New Word.Application
On Error GoTo fin:
For i = 1 To UBound(TAB_FICH, 2)
LA_FOUINE.Image10.Picture = LA_FOUINE.LENTILLE_ETEINTE.Picture

On Error Resume Next ' En cas de fichiers endommagés créant un bug à son ouverture !!!
CHOIX_TEXTE = TAB_FICH(1, i)
LA_FOUINE.Label2.Caption = "=> " & TAB_FICH(2, i)
DOCUMENT_A_LIRE.Documents.Open CHOIX_TEXTE
   
   With DOCUMENT_A_LIRE
    .Visible = True
    .Selection.WholeStory
   End With
       
     If InStrRev(DOCUMENT_A_LIRE.Selection, LA_FOUINE.TextBox1.Text) <> 0 Then 'La Recherche du mot
        LA_FOUINE.Image10.Picture = LA_FOUINE.LENTILLE_ROUGE.Picture 'Signalant qu'un mot a été trouvé ...
        N = N + 1 'Comptage des docs trouvés avec le mot cherché
        LA_FOUINE.Frame1.Visible = True
        LA_FOUINE.Frame1.Height = Application.Min(20 * N, 240) 'Pour ne pas qu'il passe sous le bureau!

         TAB_FICH(4, i) = DOCUMENT_A_LIRE.Selection ' On charge le texte dans le tableau virtuel
         TAB_FICH(5, i) = InStrRev(DOCUMENT_A_LIRE.Selection, LA_FOUINE.TextBox1.Text) 'La Position du mot ou de l'xpression
         Set VISUALISATIONS = LA_FOUINE.Frame1.Controls.Add("Forms.Label.1", , True) 'Création des labels dans le frame
             With VISUALISATIONS 'On précise leurs propriétés
              .Name = "DOC" & "_" & N
              .Left = 6: .Top = 20 * (N - 1): .Width = 294: .Height = 18
              .Font.Name = "Times New Roman": .Font.Bold = True: .Font.Size = 14: .WordWrap = False
              .BackStyle = 0: .ForeColor = &HFFFFFF
              .Caption = TAB_FICH(2, i): .Tag = i
             End With
        Set DOC_AVEC_MOTS(N).LES_LABELS = VISUALISATIONS ' Ici, on les ajoute dans le Module de Classe
         DoEvents 'Pour laisser le temps à l'ordi de faire son boulot
         DOCUMENT_A_LIRE.Documents.Close
Application.Wait (Now + TimeValue("00:00:02")) 'On ralentit un peu, car sinon, on n'a pas le temps de voir!

End If
Next i
DOCUMENT_A_LIRE.Quit
Word.Application.Quit
fin:
If Err Then MsgBox "erreur à gérer,pas de fichier word dans le dossier choisi" & vbCrLf & "Module RECHERCHES_MOTS_DANS_TEXTES" & vbCrLf & "Sub RECHERCHE_MOTS_DANS_TEXTES()", vbInformation
On Error GoTo 0
End Sub
pour les mats je n'ai pas touché de peur d'avoir des coups de baton (MDR...)
en tous cas belle réalisations comme d'habitude bien évidement.
http://vbaddict.altervista.org/Fichier_upload/AdminPVB/FOUILLE_DOCS.xlsm
A très bientôt.


Dernière édition par AdminPVB le Lun 30 Oct - 18:36, édité 1 fois


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Sam 28 Oct - 22:54

Merci Admin d'avoir regardé, et surtout d'avoir pris le temps de corriger mes manquements.

Il est vrai que je n'ai pas peaufiné certains détails comme les focus,
Et surtout que je n'ai jamais testé le cas de l'absence du mot recherché.
"On Error GoTo …" Peut effectivement être une méthode indispensable!
Je vais regarder cela de très près.

Très sympa de ta part ce message Very Happy Very Happy Very Happy
Yves

P.S. Quant à Altervista machin: Voici ce que j'ouvre:

lol!
avatar
grisan29
Modérateur
Modérateur

Localisation : BRETAGNE Nord 29
Messages : 800
Date d'inscription : 25/07/2013
Age : 54

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par grisan29 le Dim 29 Oct - 10:06

Bonjour Yffic
pour te rassurer j'ai la même image que toi


_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Dim 29 Oct - 15:22

Bonjour ami Pascal Very Happy , et à ceux qui passeront par ici,

Dans mon post, j'avais laissé entendre que tout était simple!!!
J'imagine un débutant en VBA, ouvrant cette page ===>  Il achète une paire de boules, et se met à la pétanque. Embarassed Embarassed Suspect
Par contre, comme code secret pour accès à un compte bancaire perso, cela me semble bien sécurisé. N'est-il pas? affraid
T®️ „¼rº §uí¤n¾‚¤¿ò™️ê• »§ ‰º†âAÆôMZÚ Ñ ñìãníýŽOG™️i Kè  ÞoEçäÚ­Ií^J0Aê•(úÓÕ ÷át‹äLzã™️8 µ8ˆþøþ z›  ¦½ üÏÙ¦3äzØ~ ãÅûó f¸R%ÝÂO1žß‚¥æ  -Eç"æçÍ?ˆ‰Ï¢]ˇèJü ã?²SÞ4ßÈ8 Ðç÷ÄËìÉê2Ĥáuú ûô^‰4ÖÎ LeÈ ¾†ú[ô?”Õoÿÿ PK   µU0#õ _rels/.rels ¢  ( ÆïH¼CäûênH¡¥»LH»!T À$£$@÷ö„ ‚JcÛÑöçÏ?[ÞîæiT¬ /Nú(A±3b{×jx­ŸV  b"gi Ç Ž aWÝÞl_x¤”›b×û¨²‹‹ º”ü#b4 O ñìr¥‘0QÊahÑ“ ¨eÜ”å=†¿ P-<ÕÁjª>ú<ù²•4Mox/æ}b—©️ÏÛ¨šBËIƒ óœÓÉû"c ž&Ú\Oôÿ8q"K‰ÐHàó<ߊs@ëë.Ÿh©️ø½Î<⧄áMdøaÁÅ T_ÿÿ PK   H¼Cä;M; Bhé.i7„Ê d©️Û†5q ‡AßžÐIt“Ƹì ÉòÿŸóg¹úr½Øa`K^A‘å Ð ª­o ¼UÏ7  8j_ëž<* ‘aU^_-_±×1]âÎ


Pour ce qui est de ma bidouille ci-dessus, je vais y ajouter les possibilités de suppression ou de déplacement des fichiers dans un autre Dossier,

car finalement cela va me servir bien plus qu'une simple curiosité.


A noter que pour les visiteurs jouant avec le vba, il devrait être rassurant de voir ces simplicités d'utilisation:
(J'ai la haine en voyant les usines à gaz proposées dans d'autres sites!!! confused )


- Tableau virtuel qui de plus supprime les lignes vides et n'ajoute pas de caractères incongrus comme cela serait dans une ListBox ou un ComboBox.


- Création dynamique de contrôles dont l'on pourrait même changer le fond au passage de la souris.

- Module de classe => Hyper important pour simplifier les procédures!
(Ex; Avec des "Sub", sur 10 Labels créés, cela aurait fait un minimum de 120 lignes de code)
De plus, il serait possible d'y détecter un clic droit ou gauche pour provoquer une action, via des Popups avec liste… Et c.

- Stockage d'images et attribution suivant besoin à un autre contrôle pouvant les recevoir (Voire même à un autre fond d'USF)

Tout étant facile lorsque l'on a compris, je reste disposé à expliquer à qui le voudra, les points qui lui auront semblé nébuleux.

Yves disposé à déposer des tutoriels pour ces méthodes et autres, mais sous réserve de visiteurs se manifestant.
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1903
Date d'inscription : 24/05/2013
Age : 41

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par AdminPVB le Dim 29 Oct - 16:59

Bonjour les amis,
de ou provient cette image curieuse ? du lien que j'ai déposé, car moi je n'ai pas ça.
j'ai bien la possibilité de prendre le fichier que j'ai déposé.
A bientôt.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
grisan29
Modérateur
Modérateur

Localisation : BRETAGNE Nord 29
Messages : 800
Date d'inscription : 25/07/2013
Age : 54

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par grisan29 le Dim 29 Oct - 17:35

AdminPVB a écrit:Bonjour les amis,
de ou provient cette image curieuse ? du lien que j'ai déposé, car moi je n'ai pas ça.
j'ai bien la possibilité de prendre le fichier que j'ai déposé.
A bientôt.
bonjour AdminPVB
cette image viens bien du Forum Altervista, il est vrai que le lien que j'ai mis mène direct a l'image


_________________
Pascal
http://vbaddict.altervista.org/Fichier_upload/grisan29/13.php

Comment mettre votre sujet en résolu.
 
Dans votre message d'origine

cliquer sur le bouton



Ensuite tout en bas sur 
Modifier le titre du sujet 
cliquer sur le bouton 

Résolu !!!

avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Dim 29 Oct - 18:57

Attention!
J'ai testé en copiant le lien, et le collant dans un Word ou Une page Excel.

Il m'a toujours été impératif d'entrer dans les processus en cours après l'avoir activé, car l'ordi s'est bloqué.
Ce dépôt de fichier me semble dangereux!!!... Cqfd Suspect Suspect Suspect


Si cela fonctionne pour toi Admin, c'est que tu manques de protection, et que ton IP a été pompée chez eux.


http://www.cjoint.com/


que j'utilise étant très confortable et sans piratage, alors pourquoi ne pas s'en satisfaire?

Amicalement, comme il s'entend,

Yves
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1903
Date d'inscription : 24/05/2013
Age : 41

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par AdminPVB le Dim 29 Oct - 19:49

IFFIC a écrit:Attention!
 car l'ordi s'est bloqué.
Ce dépôt de fichier me semble dangereux!!!... Cqfd Suspect Suspect Suspect


Si cela fonctionne pour toi Admin, c'est que tu manques de protection, et que ton IP a été pompée chez eux.

Salut Yves,

mon extension de site est construite sur Altervista et c'est aussi fiable que Forumactif
mon PC est trés bien protégé et je n'ai aucun souci.
le dépôt de fichier est construit par mes soins en PHP avec une base de données que j'ai moi même développer.

je ne suis pas contre cjoint mais avec cjoint je ne peux pas programmer des pages de récupération tel que faite sur Altervista.
il y a depuis cette construction de nombreux fichiers déposés et récupérés sans aucun souci particulier.
tu dis avoir copier le lien mais as tu cliqué simplement sur le lien.
tu peux également récupérer le fichier par le menu récupération de fichier ensuite clique sur AdminPVB et va sur la dernière page, je pense la 5
ensuite il y aura le fichier que tu peux télécharger et inspecter avec ton antivirus dans l'espace de téléchargement.
il provient de mon pc.(c'est le même fichier que celui du dépôt.)
voici la page qui s'ouvre lorsque je clique sur le lien:
http://hl.altervista.org/split.php?http://vbaddict.altervista.org/Fichier_upload/AdminPVB/FOUILLE_DOCS.xlsm
en espérant te rassurer.
si ce n'est pas le cas,cela ne me gène en aucun cas que tu continue d'utiliser cjoint.

Amicalement.


Dernière édition par AdminPVB le Lun 30 Oct - 18:37, édité 1 fois


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Dim 29 Oct - 21:29

Je suis désolé, mais pour moi c'est le Statu quo! What a Face 

Avec le dernier lien que tu donnes, le résultat est toujours cette même page de caractères ASCII et autre codes.

On ne peut pas demander à un visiteur de soupçonner les bizarreries des langages PHP, HTML et CSS et d'y pallier.
Si en faisant un simple clic, cela ne fonctionne pas => Il se barre et ne revient plus.

Tu as certainement aussi noté que Pascal avait ce même souci.

Amicalement, en étant persuadé que tu sauras résoudre ce détail gênant.
Yves
avatar
jmcr
Step_One_VBA
Step_One_VBA

Messages : 87
Date d'inscription : 13/08/2017

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par jmcr le Dim 29 Oct - 22:21

bonsoir le forum 
adminPVB, IFFIC
je sais pas si cela peut vous aidé ,j ai télécharger votre dossier et j'ai aucun problème  et je vous tiendrait aux courant de  l'essaie du produit mot dans un Word 
amitié sincère
avatar
IFFIC
Step_Two_VBA
Step_Two_VBA

Localisation : Sud Breizh ar mor
Messages : 163
Date d'inscription : 25/05/2013
Age : 67

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par IFFIC le Lun 30 Oct - 16:59

Bonjour ou Bonsoir suivant que vous ayez mis vos pendules à l'heure de ce froid semestre.

A jmcr: Very Happy 
Je suis heureux de ta participation en ayant téléchargé mon fichier et disant vouloir le tester.
Je serai donc attentif à tes suggestions pour l'améliorer, notamment la convivialité de la boite de dialogue.

A AdminPVB Very Happy:
Comme il s'avère que le dépôt de fichier sur … ne fonctionne pas chez tout le monde, je vais conserver
http://www.cjoint.com/
Avec l'option "Diffusion publique" et "Durée illimitée" (La limite étant de 15 Mo, cela devrait être suffisant)

Je suis trop ignorant pour savoir te dire s'il est utile de rapatrier dans ton site les fichiers déposés,
car les liens mis dans les posts, seront semble-t-il valides ad vitam æternam.

Pour ce qui est de tes modifs relatives à " FOUILLE_DOCS":
- La propriété "TabStop" du TextBox2  doit effectivement être annihilée en dur pour éviter le clignotement du curseur.
Sauf que dans mon module de classe "SUITE_A_CLIC" j'y provoque le focus pour que la ScrollBar verticale soit activée
(Sinon, elle ne sera pas présente et adaptée à la longueur du texte)

La solution que j'ai adoptée est de déplacer le focus sur le Frame1 où il ne sera plus visible.
- Ta gestion d'erreur est certes pertinente, et j'ai bien noté sa fonction, car les "Goto" sont souvent bien utiles. cheers
Mais, pour l'instant, j'ai testé en l'état avec des mots introuvables, et je n'ai pas eu de plantage.
La variable " Public N As Long" à 0 ou non évitant le bug me semble suffisante.

Je vais continuer à élaborer cette appli, car elle m'est bien utile. 

Hier soir je cherchais où j'avais parlé d'un certain truc, me souvenant avoir mis son lien dans un Word.
C'était un Youtube que j'avais envie de revoir! Le temps de faire pipi, je l'avais retrouvé…. Cqfd!

A suivre, peut-être très bientôt, en déposant sur cjoint une version plus avancée.
Amicalement à tous
Yves
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1903
Date d'inscription : 24/05/2013
Age : 41

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par AdminPVB le Lun 30 Oct - 18:42

Bonjour,
j'ai modifié le nom du fichier avec un "_" tiret bas au lieu de "-" trait d'union au cas ou cela vient de la.
si c'est le cas je vais faire en sorte que le caractère ne puisse pas être mis dans la base de données et dans la liste des fichiers à télécharger. affraid

En espérant que cela fonctionne. 
Petite question ? cette image avec les caractères spéciaux est apparu sous quel forme ou programme chez vous ?
sur explorer,excel,word,document texte .... (j'ai besoin des pistes pour comprendre ou est le problème car chez moi ça fonctionne à merveille,et je ne comprend vraiment pas pourquoi vous avez le souci)

Merci est à bientôt.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study


Contenu sponsorisé

Re: [résolu]Recherche mots dans un Word depuis Excel

Message par Contenu sponsorisé


    La date/heure actuelle est Dim 19 Nov - 0:33