récupérer des dates word dans 1 tableau excel Fermé

Question

Bonjour, 

j'ai créer un tableau excel de suivi d'activités. en parallèle, j'ellabore une fiche détaillée par activité; dans cette dernière le collaborateur inscrira des dates d'actions de son projet.
je voudrai qu'à chaque fois que j'ouvre mon fichier excel il aille chercher ces dates et les mette à jour.
Je suppose qu'il faut commencer par mettre des champs dans mes fiches Word pour les récupérer dans excel et qu'il faut leur donner des noms.
qq'1 peut il me dire comment faire, svp
Merci d'avance

Configuration: Windows 7 / Firefox 10.0.2

Mouftie · Answer

Pas beaucoup de succès, pourtant, ça me paraît utile ; à quoi sert de faire un formulaire, si on ne le traite pas en retour ?
J'ai un peu avancé, j'ai trouvé un excellent tuto (sur le site), mais il est pour les versions antérieurs : https://www.hobbesworld.com/bureautique/tutorielrecupinfo.php 

Ici, on récupère chaque champ, les uns après les autres pour chaque fiche et on utilise pour ce faire :       Fich.Cells(num_row, i + 1) = FichierWord.activedocument.formfields(Variables(i)).result

Déjà, FormFields ne renvoie rien dans l'aide de Microsoft, ensuite, j'ai une erreur "définie par l'application ou par l'objet". Moi, j'ai des contrôles ActiveX, alors que le tuto traite les anciens contrôles.

Ce que je voudrais c'est récupérer seulement le 2ème (par exemple) champ du formulaire ; je ne sais ni comment l'appeler, ni le définir.
Quand je vais dans le contrôle, il utilise une balise Dat1 qui délimite le champ, c'est ça je pense que je dois appeler dans ma macro excel ? mais comment ?

Merci de bien vouloir m'aider.

michel_m · Answer

Bonjour,

petite remarque-question

 'as tu activer Microsoft Word X.0 object library
    'et Microsoft Visual Basic For Applications Extensibility X.Y"." 
X et Y dépendent de la version de ton excel

si non, accès dans l'éditeur VBA: outils-référence

Mouftie · Answer

Bonjour Michel, Merci pour ton aide ; j'en avais un sur deux..., il manquait Microsoft Word X.0 object library Maintenant F1 renvoie bien une explication de formfields. Mais j'ai toujours mon erreur au même endroit ; d'ailleurs si je crée de nouvelles fiches dans l'exemple du Tuto, ça bloque au même endroit même avec une fiche enregistrée avec Word2003. Je mets le code entier, peut-être verrez-vous autre chose Do While mesfichiers <> "" 'tant que les fichiers ne sont pas tous passés 'Si Le fichier testé est différende de " " et de " " et de If mesfichiers <> "." And mesfichiers <> ".." And mesfichiers <> "New Formulaire.docx" Then monDocument = chemin & mesfichiers FichierWord.documents.Open Filename:=monDocument, ReadOnly:=True num_row = num_row + 1 num_col = 1 For i = 0 To nb_Champs - 1 'Erreur définie par l'application ou par l'objet Fich.Cells(num_row, i + 1) = FichierWord.activedocument.formfields(Variables(i)).result Next i FichierWord.documents.Close (0) End If mesfichiers = Dir Loop Merci de votre aide

michel_m · Answer

Re,

Do While mesfichiers <> ""  'tant que les fichiers ne sont pas tous passés
    'Si Le fichier testé est différende de " " et de "  " et de
  If mesfichiers <> "." And mesfichiers <> ".." And mesfichiers <> "New Formulaire.docx" Then
    monDocument = chemin & mesfichiers
    FichierWord.documents.Open Filename:=monDocument, ReadOnly:=True
    num_row = num_row + 1
    num_col = 1
    For i = 0 To nb_Champs - 1
    'Erreur définie par l'application ou par l'objet
      Fich.Cells(num_row, i + 1) = FichierWord.activedocument.formfields(Variables(i)).result
    Next i
    FichierWord.documents.Close (0)
  End If
  mesfichiers = Dir
Loop


peut-^tre mesfichiers  plutôt que Fich
méfie toi toujours quand tu recopies des codes :o) (on le fait tous et se plante tous!)

Mouftie · Answer

Non, ce n'est pas ça : Fich est la variable de la feuille excel Dim Fich As Worksheet Set Fich = ThisWorkbook.Worksheets("Feuil3"), alors que mesFichiers représente les fichiers word à traiter chemin = "F:\AutoFormMacro utorielrecupinfo\Nouveau dossier\" mesfichiers = Dir(chemin & "*.doc") 'Prendre tous les fichiers word 2007 Par contre comme je suis débutante, je ne comprends pas ce que l'auteur a voulu faire avec If mesfichiers <> "." And mesfichiers <> ".." And mesfichiers <> "New Formulaire.doc" Then je suppose que c'est comme qu'on fait pour appeler New Formulaire.doc, New Formulaire1.doc, New Formulaire2.doc... Merci

Mouftie · Answer

Bonjour Michel, je ne suis pas sur d'avoir compris ce que tu m'as conseillé ; voici ce que j'ai fait : Sub FormEntretien() Dim Fich As Worksheet Set Fich = ThisWorkbook.Worksheets("Feuil3") chemin = "F:\AutoFormMacro utorielrecupinfo\Nouveau dossier\" mesFichiers = Dir(chemin & "*.doc") 'Prendre tous les fichiers word 2007 'Création du tableau avec ligne de titre Dim Variables As Variant Variables = Array("Secteur", "Dir", "Tel", "Ad") nb_Champs = 4 num_row = 1 i = 0 For i = 0 To nb_Champs - 1 Fich.Cells(num_row, i + 1) = Variables(i) Next i 'Ouverture de Word Set FichierWord = CreateObject("word.application") FichierWord.Visible = True FichierWord.DisplayAlerts = False 'Excel n'affiche pas de messages, notamment d'alerte, Do While mesFichiers <> "" 'tant que les fichiers ne sont pas tous passés 'Si Le fichier testé est différende de " " et de " " et de 'If mesFichiers <> "." And mesFichiers <> ".." And mesFichiers <> "New Formulaire.doc" Then monDocument = chemin & mesFichiers FichierWord.documents.Open Filename:=monDocument, ReadOnly:=True num_row = num_row + 1 num_col = 1 For i = 0 To nb_Champs - 1 'Erreur définie par l'application ou par l'objet Fich.Cells(num_row, i + 1) = FichierWord.activedocument.formfields(Variables(i)).result Next i FichierWord.documents.Close (0) ' End If mesFichiers = Dir Loop FichierWord.Quit End Sub en mettant ' devant if et end if, word s'ouvre, mais aucun fichier n'est ouvert, ça passe directement à FichierWord.Quit Merci

m@rina · Answer

Bonjour Tout d'abord je ne comprends pas bien non plus la ligne de critère de fichier : If mesfichiers <> "." And ... Voici le code simple que j'utilise pour ouvrir chaque fichier d'un dossier, puis le fermer : Chemin = "F:\AutoFormMacro utorielrecupinfo\Nouveau dossier\" Fichier = Dir(Chemin & "*.docx") ' Premier fichier Do While Fichier <> "" Documents.Open Filename:=Chemin & Fichier \\\\\\ MES ACTIONS ///////////////// Documents.close filename:=Chemin & Fichier Fichier = Dir ' Fichier suivant Loop End Sub Ensuite tu dis que tu utilises des Contrôles ActiveX (qui ne sont d'ailleurs pas une nouveauté des dernières versions...) et tu utilises dans ta macro des objets FORMFIELDS... Un contrôle ActiveX n'est pas un champ, et donc pas un FORMFIELD. Un Contrôle ActiveX fait partie de la collection des INLINESHAPES. Pour récupérer la valeur d'un contrôle ActiveX, il suffit de connaître son nom et d'utiliser le code ActiveDocument.TextBox1.Value supposant que le contrôle se nomme TextBox1. Pour connaître ou modifier le nom d'un contrôle, il suffit d'en afficher ses propriétés. m@ina

Mouftie · Answer

Bonjour M@rina, et merci pour ton aide,
Je suis débutante et vraiment je n'y arrive pas toute seule, malgré ton aide...

Voilà où j'en suis : Sub FormEntretien()
Dim Fich As Worksheet
Dim Chemin As String
Dim MesFichiers As String
Dim Nb_Champs As Byte, Num_Row As Byte, i As Byte
Dim FichierWord As Object
Set Fich = ThisWorkbook.Worksheets("Feuil3")
Chemin = "F:\AutoFormMacro	utorielrecupinfo\TestDocx\"
MesFichiers = Dir(Chemin & "*.docx")    '1er de mes fichiers word 2007
'Création du tableau avec ligne de titre
Dim Variables As Variant
Variables = Array("Secteur", "Dir", "Tel", "Ad")
Nb_Champs = 4
Num_Row = 1
i = 0
For i = 0 To Nb_Champs - 1
  Fich.Cells(Num_Row, i + 1) = Variables(i)
Next i

'Ouverture de Word
Set FichierWord = CreateObject("word.application")
FichierWord.Visible = True
'FichierWord.DisplayAlerts = False   'Excel n'affiche pas de messages, notamment d'alerte,

Do While MesFichiers <> ""  'tant que les fichiers ne sont pas tous passés
    MesFichiers.Open Filename:=Chemin & MesFichiers
    For i = 0 To Nb_Champs - 1
        Fich.Cells(Num_Row, i + 1) = ActiveDocument.TextBox1.Value
    Next i
        
    
  MesFichiers.Close Filename:=Chemin & MesFichiers
  MesFichiers = Dir     'Fichier suivant
Loop
FichierWord.Quit

End Sub
j'ai tout de suite une erreur de complilation : "Argument nommé introuvable" sur   MesFichiers.Close Filename:=Chemin & MesFichiers
J'ai essayé de remplacer document par MesFichiers, là, la macro se déroule, mais arrivé à ce code  MesFichiers.Close Filename:=Chemin & MesFichiers j'ai Erreur d'exécution '424': Objet requis
Peux-tu me dire ce qui va pas, stp.
Merci d'avance.

Le Pingou · Answer

Bonjour à tous,
Excusez de l'intrusion, je pense qu'il faut remplacer 
MesFichiers.Close    par   Documents.Close .... Idem pour MesFichiers.Open..

Mouftie · Answer

Bonjour Le Pingou et merci pour ta contribution à mon pb.
cependant, j'avais commencé par faire exactement comme me le conseillait M@rina, donc avec     Documents.Open Filename:=Chemin & Fichier
   
\\\\\\ MES ACTIONS /////////////////

    Documents.close filename:=Chemin & Fichier
 (j'ai fait une erreur de copier coller dans mon message précédent, désolée) et j'ai tout de suite une erreur de complilation : "Argument nommé introuvable" sur Documents.close filename:=Chemin & Fichier (c'est pour ça que j'ai essayé avec MesFichiers).

Le Pingou · Answer

Bonjour,  
Merci pour l'information.  
Vous changez la déclaration :  
Dim MesFichiers As StringPar : 
Dim MesFichiers As Variant
Note: bien sur vous reprennez la proposition d'écriture de m@arina ( salutations).   
   
Salutations.  
Le Pingou

Mouftie · Answer

Merci Le Pingou
Voici le fichier
https://www.cjoint.com/c/CClpilOjVxJ
avec le fichier d'origine (https://www.hobbesworld.com/bureautique/tutorielrecupinfo.php et mon exemple (feuille3 de resum_client.xls et les formulaires Word dans le sous répertoire TestDocx).
Merci

Le Pingou · Answer

Bonjour,
Eh bien cela marche très bien avec mes modifications. Le seul problème est l'extension des documents Word : est-ce  [doc]  ou [docx] ...... ?

Mouftie · Answer

Bonsoi, 
Les formulaires sont de la forme New Formulaire.docx, dans le répertoire  testDocx (ils sont  4).
Quelles modifications as-tu apportées?

Le Pingou · Answer

Bonjour,
Je viens de tomber sur un autre problème avec la récupération des champs du document.
Patience pour la correction.

Le Pingou · Answer

Bonjour,
Je vous laisse essayer si tout fonctionne !
Votre fichier : https://www.cjoint.com/?3ClxwZ9eEOF

Mouftie · Answer

Bonsoir Le Pingou, 
J'essaie ça demain,  merci beaucoup.

eriiic · Answer

Bonjour à tous, Par contre comme je suis débutante, je ne comprends pas ce que l'auteur a voulu faire avec If mesfichiers <> "." And mesfichiers <> ".." And mesfichiers <> "New Formulaire.doc" Then Dans un répertoire FAT les 2 premières entrées sont des eux-même des directory qui pointent : - . : sur lui-même - .. : sur le répertoire parent (celui qui le contient) Il ne faut donc pas les traiter en tant que fichiers. Autant utiliser ...Fichier = Dir. "New Formulaire.doc" est sans doute le formulaire vierge présent dans le répertoire et qu'il ne faut pas traiter non plus. eric Jamais tu ne répondras à un mp non sollicité... Bon, ça c'est fait.

Mouftie · Answer

Bonjour,
Le Pingou, Merci pour ton aide, mais le pb reste sur l'ouverture des formulaires, quand je lance la macro, j'ai le message svt : "erreur de compil : projet ou bibliothèque introuvable" avec Documents surligner dans     Documents.Open Filename:=Chemin & MesFichiers

Merci également à Eriiic pour ses explications très claires.

Le Pingou · Answer

Bonjour,
C'est étrange car cela marche sans problème avec ou sans le document [New Formulaire.docx]
Contrôler dans la macro que le chemin soit correct !
Je serai de retour en fin de journée.
Contrôler aussi que la référence [Microsoft Word X.0 object library] soit activée, dans l'éditeur VBA: outils-référence

Mouftie · Answer

Bonjour,
Ouf !
assez incroyable, comme vous me l'avez suggérez je suis retournée sur les références VBA, j'ai décoché  [Microsoft Word 12.0 object library] puis recoché, en fermant j'ai eu un message "Nom de module, de projet ou de bibliothèque d'objets déjà utilisé" puis plein d'insultes de DLL manquante...
J'ai tout fermé et tout recommencé.
Je n'ose parler de miracle, mais...
C'est super, ça fonctionne comme je le voulais.

Sans vouloir abuser et simplement pour mon apprentissage, si j'avais voulu récupérer qu'un seul activeX (par exemple toutes les dates des formulaires ou tous les secteurs (2ème champs), faut-il intervenir sur la variable item
ou peut-on utiliser le nom de la balise donné dans le formulaire et comment ?

Dores et déjà un grand merci pour votre patience et vos explications.

Le Pingou · Answer

Bonjour,
Content que cela fonctionne.
Concernant votre demande, vous pouvez utiliser l'instruction If...Then... (juste après le [For Each...] comme suit :If item.Title = "Date" Then
« « « « «  votre code  « « « « « « 
End If

Récupérer des dates word dans 1 tableau excel

22 réponses