Discussion :

[percewood]

Bonsoir à tous et toutes.
nouveau sur ce forum, je suis à la recherche d'une solution dans Word de pouvoir insérer un tableau (toujours le même) qui les cellules font référence à une recherche dans Excel par rapport à la saisie de la première colonne.
Je sais pas si je suis clair

1 - j'insère un tableau ou un champs... le but étant de saisir la valeur 'ID' de 'référence' ex : 8100
puis les colonne B, C, D se remplissent des valeurs présente dans la ligne du fichier excel ou se trouve dans la colonne A (ID) la valeur 8100

PS : je précise que dans le doc Word il y aura beaucoup de 'ID'.

Avez vous une idée ?
Merci d'avance.

[percewood]

En fait c'est comme un rechercheV dans excel.

quand je parle d'un tableau, ca pourrait d'une autre façon exemple on saisie le texte à rechercher entre {xx} ou [xx] ou !xx! ou autre... puis on 'rapatrie' les valeur d'Excel.

[Invité]

Bonjour,

Un exemple a adapter dans ce billet : https://www.developpez.net/forums/d2.../#post11592023

Au lieu de charger la matrice, il suffit de mettre une condition pour ne récupérer que votre enregistrement. Le fichier de données et le document doivent être dans le même répertoire.
Si votre traitement nécessite beaucoup d'allers-retours, la méthode a mettre en oeuvre est plutôt celle du fichier Word.

Le fichier en relation avec ma dernière réponse est celui-là :

[percewood]

Bonsoir Eric,
Merci pour votre envoi avec un exemple !

je dois louper une étape.. quand j'exécute la macro 'lancer la boite de dialogue' ca ouvre bien la popup pour voir les valeur du fichier Excel, je peux filtrer puis je clique sur OK
ensuite cette popup disparait et apparait une nouvelle petite fenêtre d'information avec les bonnes valeurs puis je clique sur OK et la il ne se passe rien...

j'ai loupé une étape ?
Encore merci pour cette première étape

Question : est-ce que le document word ce mets à jour si les valeurs du fichier excel change, j'ai l'impression que non... je me trompe ?

Cdlt jean-Marc

[Invité]

Bonjour,

j'ai loupé une étape ?

Non pas du tout, c'était juste pour vous montrer comment récupérer les infos dans Excel. Vous pourriez mettre à jour vos champs de la même manière que sont alimentés les TextBox.

Question : est-ce que le document word ce mets à jour si les valeurs du fichier excel change, j'ai l'impression que non... je me trompe ?

Il faut réaliser pour cela une copie avec liaison. Dans l'exemple ci-dessous, on part d'Excel pour mettre à jour un document Word. L'exemple ne correspond pas à votre exemple, puisqu'ici on copie avec liaison tout un tableau dans un signet, mais le principe est identique. A noter quand même que la liaison n'est pas dynamique, la mise à jour se fait soit à l'ouverture du document soit sur demande.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Sub EnvoyerDonneesExcelVersWord(ByVal NomDuDocument As String)
 
Dim oWdApp As Word.Application, oWdDoc As Word.Document  ' En early binding (Si Word est référencé)
' Dim oWdApp As Object, oWdDoc As Object ' En late binding
 
Dim Repertoire As String
Dim AireMateriel As Range
Dim I As Integer
 
    On Error GoTo FinWord
 
 
    Set AireMateriel = Sheets("Matériel").Range("Matériel[[#Data],[#Totals],[Désignation]:[Total CHF]]")
    AireMateriel.Copy ' Copie les données Excel
 
 
    Set oWdApp = CreateObject("Word.Application")
    Set oWdDoc = oWdApp.Documents.Add
 
    oWdApp.Visible = True
 
    'Ouvre le document Word
   ' Repertoire = "\\Home3.corp.ads.migros.ch\usrhome$\M0064768\Desktop\Fichiers Test\"
    Repertoire = ActiveWorkbook.Path & "\"
 
    Set oWdDoc = oWdApp.Documents.Open(NomDuDocument) 'Repertoire & "Offre_test.docm")
    With oWdDoc
 
         If .Bookmarks.Count = 0 Then
            MsgBox "Absence de signet Matériel !", vbCritical
            GoTo FinWord
         End If
 
         If .Bookmarks.Exists("Matériel") = False Then
             MsgBox "Absence de signet Matériel !", vbCritical
             GoTo FinWord
         End If
         .Bookmarks("Matériel").Select
 
         oWdApp.Selection.PasteSpecial Link:=True, DataType:=0, Placement:=0, DisplayAsIcon:=False
 
         .Close savechanges:=True
 
     End With
 
 
    Application.CutCopyMode = False 'Annuler le mode couper/copier
 
    MsgBox "Fin de mise à jour !", vbInformation
 
    GoTo FinWord
 
FinWord:
 
    oWdApp.Quit
    Set AireMateriel = Nothing
    Set oWdApp = Nothing
    Set oWdDoc = Nothing
 
End Sub

[percewood]

Merci pour vos réponses.

j'ai fais un test ca marche bien sur un fichier source d'env 20 lignes, par contre mon fichier à env 12000 lignes et donc impossible de travailler la PopUp s'affiche au bout de 20min et le choix dans le filtre n'en parlons pas LOL

Y a t'il un moyen de réduire fortement ce délai ?
Sinon il va falloir que je trouve une autre solution....

[Invité]

Oui, il faudrait passer par l'intermédiaire d'une table intermédiaire, celle-ci serait établie avec Power Query : https://www.developpez.net/forums/bl...ique-surcroit/

[Invité]

Pour Power Query, vous aurez sans doute besoin de supprimer le traitement en arrière plan qui est généré par défaut : https://www.developpez.net/forums/d2.../#post11654619

Un fichier exemple est présent dans ce billet.

[percewood]

Pour Power Q balises actives uery, vous aurez sans doute besoin de supprimer le traitement en arrière plan qui est généré par défaut : https://www.developpez.net/forums/d2.../#post11654619

Un fichier exemple est présent dans ce billet.

Donc si je comprend je n'ai pas besoin de passer par du VBA ? si oui comment je 'connecte' cette table 'balises actives' avec WOrd.
J'avoue que je suis perdu...

[Invité]

J'avoue que je suis perdu...

Avez-vous essayé d'utiliser Power Query pour filtrer vos données ?
Si oui, vous aurez compris l'intérêt d'utiliser un tableau structuré très restreint et non plus la table avec vos 12000 enregistrements. La seule condition pour Power Query est d'avoir vos 12000 enregistrements dans un tableau structuré, sinon il vous faudrait passer par une recherche avancée sur un résultat sur un autre onglet.

Avec cette méthode, le VBA est nécessaire seulement pour faire varier les paramètres de sélection et mettre à jour. Son intérêt également est d'avoir un résultat quasi immédiat sur des bases "monstrueuses".

[percewood]

Avez-vous essayé d'utiliser Power Query pour filtrer vos données ?
Si oui, vous aurez compris l'intérêt d'utiliser un tableau structuré très restreint et non plus la table avec vos 12000 enregistrements. La seule condition pour Power Query est d'avoir vos 12000 enregistrements dans un tableau structuré, sinon il vous faudrait passer par une recherche avancée sur un résultat sur un autre onglet.

Avec cette méthode, le VBA est nécessaire seulement pour faire varier les paramètres de sélection et mettre à jour. Son intérêt également est d'avoir un résultat quasi immédiat sur des bases "monstrueuses".

Bonjour encore merci pour votre aide
Bon j'ai fais un modèle avec Power Query (en suite les instructions ci dessus) mais je dois dire que je bute un peu.
ca marche si dans Excel je fais la recherche puis actualisé (le tableau Query se mets à jour) puis je vais dans Word et la c'est rapide mais je n'ai que les variables contenues dans le tableau Query (ce qui est normal)

Je joins un zip avec les 2 fichiers.
Si je comprend il faudrait que le champ 'Filtre' puisse renseigner la recherche (colonne S) dans le tableau excel pour avoir les variables ainsi filtrées dans le tableau Query ?
Test.7z

[Invité]

Je ne peux pas exploiter ce type de fichier. Dans l'explorateur de fichiers, sélectionnez vos fichiers, clic droit, Envoyer vers et dossier compressé.

[percewood]

Test.zip

[Invité]

J'imagine que ce sont ces 7 colonnes qui doivent apparaître dans la listbox :

Pièce jointe 586506

[percewood]

Les 4 ou 5 premières suffisent mais dans l'idéal les 7

[Invité]

Pour restreindre le nombre d'enregistrements dans la table, quelles sont vos règles de gestion pour filtrer ?

[percewood]

Pour restreindre le nombre d'enregistrements dans la table, quelles sont vos règles de gestion pour filtrer ?

Le problème est que normalement je n'ai pas de règle j'ai besoin d'avoir accès à l'ensemble de la base... ;( soit les 12000 lignes.

[Invité]

OK, mais quand vous avez besoin de faire une sélection, comment vous y prenez-vous ? Quels sont vos critères de sélection ?

[percewood]

En règle générale je recherche par le nom de la variable en saisissant au moins 2 lettres

exemple je recherche toutes les variables correspondant à la sonde Pr100
je saisie donc Pr100 pour afficher toutes les variables de cette sonde.

[percewood]

je vais dire peut être une bêtise mais si je pouvais saisir depuis word ma recherche via une box qui viendrais écrire dans une cellule du fichier excel cela permettrai de filtre la table Query,
puis ensuite appeler la macro de recherche qui fonctionne bien (fichier précédant )

je viens d'adapter un bout de code quin permet de récupérer la valeur d'une valeur d'une cellule dans Word il faudrait faire l'inverse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub TexteCellule()
Dim xlApp As Excel.Application 'Application Excel pour ouvrir un fichier XLS
Dim xlWb As Excel.Workbook     'Classeur Excel
Dim xlWs As Excel.Worksheet    'Feuille du classeur
Dim sttemp As String
Dim Chemin As String
 
        Chemin = ActiveDocument.Path & "\table-All-Doc-Interne.xlsm"
 
        Set xlApp = New Excel.Application
        Set xlWb = xlApp.Workbooks.Open(Chemin) 'Ouverture du fichier
        Set xlWs = xlWb.Worksheets(1)           'Utilisation de la première feuille
 
 
sttemp = xlWs.Cells(2, 1)
Debug.Print sttemp
 Selection.Range.Text = sttemp
' Le contenu de la cellule se trouve dans la variable texte 'sttemp'.
 
        xlWb.Close savechanges:=False
        xlApp.Quit
 
        Set xlWs = Nothing
        Set xlWb = Nothing
        Set xlApp = Nothing
 
 
End Sub