Discussion :

[android59]

bonjour à vous,

je souhaite dans un fichier, que j'ai créé et qui fonctionne tres bien, grâce à vos aides et conseils, faire un fichier de synthèse, dans un fichier excel.
Voici le contexte :

j'ai un fichier excel dans un dossier specifique, qui ne bougera pas , par exemple, dans "d:\mondossier\monfichier1.xlsm".

dans ce fichier, j'ai 3 onglets :


j'ai créé un autre fichier excel que j'ai appelé "fichier de synthese" dans lequel je souhaite voir les résultats qui se mettent à jour automatiquement, en fonction de la mise à jour des valeurs, dans chaque onglets, du premier fichier. Aussi j'aimerais qu'ils se mettent à jour, même si le fichier est fermé.

Pour cela, j'ai vu un site disant que par formule c'etait impossible, mais par macro c'est "possible", mais j'ai du mal à comprendre.

j'ai essayé d'arranger ce code, pour l'utiliser mais j'ai du mal à comprendre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ImporterDonneesSansOuvrir()
Dim Cheminsource As String, Fichiersource As String
 
    Cheminsource = "d:\mondossier\"
    Fichiersource = "monfichier1.xlsm"
 
    ThisWorkbook.Names.Add "plage", _
            RefersTo:="='" & Cheminsource & "[" & Fichiersource & "]anomalie 1'!$D4"  'je prend la valeur d4 , de la feuille anomalie 1
 
        Worksheets("Feuil2").Range("D4").Value = "=plage"  '??  
End Sub

en fait si je comprend bien c'est une procedure permettant de prendre la valeur du fichier "mon fichier1" et je veux que la valeur de la feuille "anomalie 1" en d4 s'affiche dans mon fichire de synthese :


et ceux meme si le fichier est fermé, c'est à dire si je consulte le fichire de synthese pour voir l'avancement, je vois les chiffres qui sont des mes autres fichiers.

Merci beaucoup pour votre aide.
Cordialement

[BENNASR]

Bonjour
le principe consiste à aller ouvrir le dossier fermer
récupérer la valeur de la cellule A1 de chaque onglet et l'enregistrer A1 dans le classeur ouvert

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
Sub test()
Dim wkA As Workbook, wkB As Workbook
Dim Sh As Worksheet
Application.ScreenUpdating = False
Set wkA = ThisWorkbook 'ton dossier ouvert class1
Workbooks.Open "C:\Users\DELL\Desktop\Class2.xlsm"  ' aller ouvrir l'onglet
Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB
X = 0
For Each Sh In wkB.Sheets
X = X + Sh.Range("A1")
Next Sh
wkA.Sheets("feuille1").Range("A1").Value = X
wkB.Close True 'fermer le classeur
Application.ScreenUpdating = True
End Sub

[android59]

bonjour,
merci beaucoup.

J'ai fais quelques tests et j'aurais une question:
j'ai créé un bouton pour mettre à jour les chiffres et je me suis rendu compte qu'il me créé plusieurs onglets dans le mode developpeur, à chaque fois que je clique sur le bouton, afin de mettre à jour le chiffre, est ce normal ?



merci bien

[BENNASR]

normalement ça viens d'autre chose
le code fait simplement aller ouvrir le classeur récupérer la valeur de chaque onglet ; enregistre l'information et ferme le classeur
personnellement je doute que ça vient d'un autre code
pour s'assurer fait un test avec simplement ce code et deux classeurs test

[android59]

bonjour,
j'ai fais un debogage, cela provient de ce morceau de code :



J'ai tenté de faire un "close" :
Workbooks.Close "C:\xxxx\xxxxx\Documents\xxxxx\test\test.xlsm" ' aller ouvrir l'onglet

mais il me met une erreur





si je met en commentaire le ".close" , il me remet toujours plusieurs onglets quand j'execute la macro.



Donc si j'ai bien compris, plusieurs onglets apparaissent, quand j'execute la macro, quand je fais:

Code :

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

1
2
 
    Workbooks.Open "C:\Users\cxxxxx\xxxxx\xxxxx\test\test.xlsm"  ' aller ouvrir l'onglet

mais ce qui est bizarre c'est qu'a la fait je fais bien cela :

wkB.Close True 'fermer le classeur

Voici mon code en entier :

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
 
Sub test()
    Dim wkA As Workbook, wkB As Workbook
    Dim Sh As Worksheet
 
    Application.ScreenUpdating = False
    Set wkA = ThisWorkbook 'ton dossier ouvert class1
    Workbooks.Open "C:\cxxxxx\xxxxxx\xxxxxx\xxxxxx\test\test.xlsm"  ' aller ouvrir l'onglet
 
    Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB
    X = 0
    y = 0
    Z = 0
    a = 0
    b = 0
    c = 0
    d = 0
    e = 0
    f = 0
 
 
    For Each Sh In wkB.Sheets
     X = X + Sh.Range("G10")
     y = y + Sh.Range("G11")
     Z = Z + Sh.Range("G12")
     a = a + Sh.Range("G13")
     b = b + Sh.Range("G14")
     c = c + Sh.Range("G15")
     d = d + Sh.Range("G16")
     e = e + Sh.Range("G17")
     f = f + Sh.Range("G18")
 
    Next Sh
 
    'j'affiche dans un tableau les valeurs provenant d'un autres fichier, les valeurs se mettent bien à jour.
    wkA.Sheets("anomalie 1").Range("I4").Value = X
    wkA.Sheets("anomalie 1").Range("I5").Value = y
    wkA.Sheets("anomalie 1").Range("I6").Value = Z
    wkA.Sheets("anomalie 1").Range("I7").Value = a
    wkA.Sheets("anomalie 1").Range("I8").Value = b
    wkA.Sheets("anomalie 1").Range("I9").Value = c
    wkA.Sheets("anomalie 1").Range("I10").Value = d
    wkA.Sheets("anomalie 1").Range("I11").Value = e
    wkA.Sheets("anomalie 1").Range("I12").Value = f
 
    wkB.Close True 'fermer le classeur
    '  Workbooks.Close "C:\xxxxx\xxxxx\xxxxx\xxxxxx\test\test.xlsm"  ' aller ouvrir l'onglet
    Application.ScreenUpdating = True
End Sub
 
merci beaucoup

[BENNASR]

bonjour

Code :

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

"C:\cxxxxx\xxxxxx\xxxxxx\xxxxxx\test\test.xlsm"  ' aller ouvrir l'onglet

est ce que tu as un classeur Excel nommé test sous un répertoire nommé test aussi?
si non pas besoin d'avoir deux fois test !! le code ouvre un classeur et non pas un onglet

[android59]

Oui c'est eactement cela mais je pense pas c'est de là que vient le soucis ?
Ce répertoire est juste un repertoire dans lequel j'ai mes deux fichiers tests.

Oui je suis d'accord , mais j'ai l'impression qu'il ouvre mon classeur, le referme mais dans mon panneau vba je me retrouve avec plein d'onglet :

Pièce jointe 635709

En gros à chaque fois que je fais appel à ma macro en appuyant sur le bouton , un onglet s'ouvre et j'ai peur que cela ai une incidence par la suite ..
je viens de tester une chose, si je ferme le fichier, les onglets ne sont plus là à la prochaine ouverture.

Je viens de voir un autre soucis :

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
 
 
 Dim wkA As Workbook, wkB As Workbook
    Dim Sh As Worksheet
 
    Application.ScreenUpdating = False
    Set wkA = ThisWorkbook 'ton dossier ouvert class1
    Workbooks.Open "C:\........ .xlsm"  ' aller ouvrir l'onglet
 
    Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB
    X = 0
 
    For Each Sh In wkB.Sheets
          X = X + Sh.Range("H11") 'incompatibilité de type
    Next Sh
 
    wkA.Sheets("Feuil1").Range("D2").Value = X
    wkB.Close True 'fermer le classeur
    Application.ScreenUpdating = True

en fait je fais référence, dans mon autre fichier, à une cellule calculé( mais en fait c'est une référence à une valeur dans une autre feuille )
la cellule H11 corespond à un calcul du genre :
=Feuille5!P8

par contre j'ai fais le test, quand c'est un chiffre normale il fonctionne.
Y a t-il une fonction en vba pour pallier à ce soucis ?

Merci

[BENNASR]

essayer avec

Code :

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

1
2
3
 For Each Sh In wkB.Sheets
          X = X + cdbl(Sh.Range("H11").value) 'incompatibilité de type
    Next Sh

[android59]

Il me met une erreur ici :



voila le message d'erreur que j'ai :


merci

[BENNASR]

déclare x

Code :

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

dim x as variant

[android59]

bonjour ,
ça ne marche pas, ça marche mais lorsque je met mon fichier test.



Par contre je viens de faire une grande découverte, je pense que c'est mon "foreach" qui fout le boxon, pour rester polie.

Code :

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

1
2
3
4
5
 
    For Each Sh In wkB.Sheets
 
      X = X + CDbl(Sh.Range("H12").Value)
    Next Sh

en fait il parcourt toutes mes feuilles de mon fichier source, or je ne souhaite pas cela.
Je veux juste, qu'il se connecte à mon fichier :

Code :

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

1
2
3
4
 
  Application.ScreenUpdating = False
    Set wkA = ThisWorkbook 'ton dossier ouvert class1
    Workbooks.Open "C:\Users\xxxxxx\xxxxxxx\xxxxxx\test\monfichier source.xlsm"  ' le fichier source c'est celui dans lequel je vais cherchre les valeurs.

Code :

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

1
2
 
 Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB, correspond à mon fichier de synthese dans lequel j'ai mon code vba

et ici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    For Each Sh In wkB.Sheets
      x = x + Sh.Range("H7") 'incompatibilité de type  --> ici je prend la valeur en h7 du fichier source
 
    Next Sh
'je dois l'empecher de boucler sur les pages de mon fichiers sources, je dois juste préciser que c'est la 1ere feuille du fichire source
 
 
    wkA.Sheets("Feuil1").Range("D2").Value = x '--> et la , dans mon fichier de synthese je recupére ma valeur
 
    wkB.Close True 'fermer le classeur
    Application.ScreenUpdating = True

ça marche avec mon fichier test, car il ne contient qu'une feuille, alors que le vrai fichier, celui de production, contien plusieurs feuilles , mais je ne dois prendres les valeurs situéses que sur la premiere feuille.

Je dois donc enlever le foreach?
Sinon la declaration en variant ça marche bien, merci
.

[BENNASR]

Bonjour

Code :

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

1
2
3
 For Each Sh In wkB.Sheets
      x = x + Sh.Range("H7") 'incompatibilité de type  --> ici je prend la valeur en h7 du fichier source
    Next Sh

oui, il fait le parcourt de tous les onglets
si tu veux exclure un onglet et prendre le reste des onglets :

Code :

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

1
2
3
4
5
 For Each Sh In wkB.Sheets
if sh.name <>"BASE" then
      x = x + Sh.Range("H7") 'incompatibilité de type  --> ici je prend la valeur en h7 du fichier source
  end if
  Next Sh

si tu veux que une feuille que tu connais le nom , n'est pas besoin d'incrémenter X pour cumuler les valeurs, il suffit :

Code :

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

1
2
 
      x = cdbl(sheets("nondetononglet").Range("H7").value)

[android59]

je pense avoir trouvé, voici mon code :

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
 
 
Sub UpdateValue()
    Dim wkA As Workbook, wkB As Workbook
    Dim Sh As Worksheet
 
 Dim x, y, z As Variant
 
 
    Application.ScreenUpdating = False
    Set wkA = ThisWorkbook 'ton dossier ouvert class1
    Workbooks.Open "c:\ccxxxxx\xxxxxx\TodolistFévrier 2023.xlsm"  ' là c'est mon fichier de production
 
    Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB
    x = 0
    y = 0  'j'ai déclaré les variable
    z = 0
 
    x = x + wkB.Worksheets("Checklist").Range("H16") ' je récupère mes valeurs qui m'interessent
    y = y + wkB.Worksheets("Checklist").Range("I11")
    z = z + wkB.Worksheets("Checklist").Range("L10")
 
    wkA.Sheets("Feuil1").Range("D2").Value = x
    wkA.Sheets("Feuil1").Range("D3").Value = y  'et je les met dans mon fichier de synthèse
 
    wkB.Close True 'fermer le classeur
 
    Application.ScreenUpdating = True
 
 
End Sub

est ce que je m'y prend bien?
Merci ^^

[BENNASR]

admis avec félicitation des jury
Bonne continuation

[android59]

un grand MERCI à vous tous ^

j'ai rempli une première partie de mon fichier et çà marche.
toutefois, comme mon fichier est sur un serveur, et je dois recupérer 19 valeurs en fonction de 42 équipes, je crains que ça mouline un peu beaucoup.

J'ai pensé à une chose, est possible de faire cela grace à powerquery, c'est à dire d'aller dans données -> obtenir les données -> à partir d'un fichier excel.
Puis j'ai tenté de selectionné mon fichier:



je selectionne la feuille "checlist" c'est dans celle ci que je souhaite récupérer les valeurs dans mon fichier de synthese :

ici dans mon fichier de synthese, je sais pas si peux utiliser power query pour récupérer la valeur 110 et la valeur 0 , est possible?

Un grand merci ^

[BENNASR]

peux tu insérer un tableau structuré dans la feuille souhaité ?
deux ligne : la première pour l'entete des colnnes et une ligne pour les données à importer
puis tu importe via powerquery tes données depuis ce tableau structuré

[android59]

bonjour,

finalement après concertation ça fera l'objet d'une évolution, j'ai beau regardé c'est un peu trop compliqué.

Je suis face à un autre soucis, j'ai ce message qui apparait :

j'etais un peu mort de rire quand j'ai vu ça mais ça m'embete un peu lol, je vous explique:

j'ai répliquer 128 lignes de codes, en modifiant à chaque fois les noms des variables, par exemple:

Code :

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

1
2
3
4
5
6
 
 Dim eq41_multi1, eq41_multi2, eq41_multi3 As Variant
Dim eq41_DSdesaj1, eq41_DSdesaj2, eq41_DSdesaj3 As Variant
.....
....
...

je fais un copié dans notepad++, rechercher "eq41" je remplace par "eq42" et toutes mes variables change j'ai juste à modifier le nom du fichier.
je vais essayer afin de voir ce que je peux faire, car mon principe, c'est que j'ai un bouton qui appel cette procédure et toutes mes colonnes sont censés se mettre à jour, là il m'en reste une dizaine ( 10 x 128lignes ) donc je vais voir.

Je savais pas que l'on avait un nombre limité de ligne en vba sinon?

Merci beaucoup en tout cas.

[android59]

Finalement j'ai trouvé une alternative :
Initialement j'ai la procédure "UpdateValue", j'ai donc créé la procedure "UpdateValue2" et j'ai pris un morceau de code de la 1ere procecdure et je l'ai mis dans la 2eme.

j'ai créé une procedure "DemarrageTraitement" dans laquel je fais un : Call UpdateValue et Call UpdateValue2 et ça marche bien, je suis en train de tester en ce moment.
Merci beaucoup pour votre aide en tout cas ^