Discussion :

[pelerin65]

Bonjour le forum

voilà, j'ai deux fichiers

1 fichier = filtrage

2 fichier =Notes

J'ai lu qu'il est possible d'ouvrir un nouveau classeur avec une base de données d'un classeur fermé.

A l'ouverture du fichier Filtrage est déjà fait (onglet " Trier")

avec cette feuille, il ouvre un classeur nommé Notes, ces données sont mis dans un userfrom "programme" à l'ouverture du fichier.

FILTRAGE.xlsm
Notes.xlsm

Cordialement

[78chris]

Bonjour

Tu n'utilises que très peu les tableaux structurés, ce qui est dommage

Je conseille :
De ne pas effectuer le filtre avancé dans le classeur FILTRAGE.xlsm mais mettre la zone des critères sous forme de tableau structuré nommé Criteres (il faut effacer tes noms actuels afin de définir Criteres de portée classeur).

Pour info avec un tableau structuré le code de filtre serait

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
'On efface la feuille trier
 ThisWorkbook.Worksheets("Trier").Cells.ClearContents
 
'declaration des variables
 Dim Plage As Range
 Dim Criteres As Range
 Dim Copy As Range
 
 'Affectations des variables
Set Plage = Range("TBase").ListObject.Range
Set Criteres = Range("Criteres").ListObject.Range
Set Copy = ThisWorkbook.Worksheets("Trier").Range("A1")
 
'On lance l'outil filtre avancé
Plage.AdvancedFilter xlFilterCopy, Criteres, Copy

A la place on utilise une requête PowerQuery dans le classeur Notes s'actualisant à l'ouverture du classeur
Un onglet contient un tableau structuré nommé Fichier avec le chemin du classeur FILTRAGE



Le requête utilise le tableau structuré Tbase et le filtre avec Critreres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
let
    Source = Excel.CurrentWorkbook(){[Name="Fichier"]}[Content],
    Classeur = Table.AddColumn(Source, "Fic", each Excel.Workbook(File.Contents([Fichier]), null, true)),
    Contenu = Table.ExpandTableColumn(Classeur, "Fic", {"Name","Data"}),
    Crit = Table.SelectRows(Contenu, each ([Name] = "Criteres")),
    Criteres = Table.ExpandTableColumn(Crit, "Data", {"ESV", "Date"}, {"ESV", "Date"}),
    Personnalisé2 = Table.SelectRows(Contenu, each ([Name] = "Tbase")),
    #"Autres colonnes supprimées" = Table.SelectColumns(Personnalisé2,{"Data"}),
    #"Data développé" = Table.ExpandTableColumn(#"Autres colonnes supprimées", "Data", {"ESV", "Semaine", "Date", "Tournée", "Sillon", "Dép", "Arr", "UIC", "Parcours /  Acheminement", "R", "N°#(lf)Ligne", "Voie", "Pk.Dép", "Pk.Arr", "Distance", "GARAGES"}, {"ESV", "Semaine", "Date", "Tournée", "Sillon", "Dép", "Arr", "UIC", "Parcours /  Acheminement", "R", "N°#(lf)Ligne", "Voie", "Pk.Dép", "Pk.Arr", "Distance", "GARAGES"}),
    #"Requêtes fusionnées" = Table.NestedJoin(#"Data développé", {"ESV", "Date"},Criteres, {"ESV", "Date"}, "Data développé", JoinKind.Inner),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Requêtes fusionnées",{"Data développé"})
in
    #"Colonnes supprimées"

Dans Private Sub UserForm_Initialize() de PROGRAME

On modifie une ligne

Code :

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

      Extraction = [Extrait].ListObject.DataBodyRange

EDIT
Dans Private Sub UserForm_Initialize() de SILLONS_RT
On modifie 2 lignes

Code :

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

1
2
      recherche = [Extrait].ListObject.DataBodyRange.Value '0n import les données de la journée a partir de la derniére ligne
       madate = recherche(1, 3)

Peut-être serait-il plus intéressant de définir les critères directement dans Notes ?

[pelerin65]

Bonjour 78chris,

j'allais vous répondre mais j'essaie de comprends vos codes

étant pour ainsi dire novice dans le vba

c'est très compliqué de mettre en œuvre vos dires.

J'aimerai avoir un fichier avec le programme de mon taf afin de pour mettre à jour plus simplement

Aujourd'hui, j'ai deux fichiers qui font la même chose au démarrage

voila le pourquoi pas donné de réponse

Cordialement

[78chris]

RE

J'ai indiqué quelles lignes modifier dans TES codes

Le reste utilise PowerQuery qui existe depuis 2010 et remplace de plus en plus VBA

J'ai mis en commentaires la plupart de tes procédures (je ne souhaite pas qu'elles s'exécutent sur mon PC) sauf les 2 citées.
Tu pourras les "décommenter" sur ton PC

Dans l'onglet PQ (que tu pourras remettre en veryHidden), change le chemin d'accès à gauche, puis clic droit dans le tableau de droite, Actualiser.

La requête est paramétrée pour s'actualiser à l'ouverture du classeur donc les autre ouvertures ne poserons pas de problème et les données se mettront à jour si le chemin est correct