XL 2019 Création d'une macro permettent d'ouvrir le fichier le plus recent d'un dossier

Cesar1275 · 2 Novembre 2020

Bonjour à tous

J'ai un blocage sur la création d'une macro dans un tableau excel sur lequel je suis en train de travailler.

En effet, je cherche une fonction me permettant d'ouvrir le fichier le plus recent d'un dossier.

Voici comment sont nommés les fichiers en question :
En l'occurence, j'aurais besoin que la macro ouvre le fichier 201029.

Est ce que quelqu'un pourrais m'aider svp ?

Merci d'avance !

sylvanu · 4 Novembre 2020

Bonjour,

Cesar1275 à dit:
La feuille Moy jour existe bien

Faux. Votre fichier Classeur1.xlsm ne possède pas de feuille nommée Moy Jour, c'est le fichier Suivi Qualité qui a cette feuille.
Donc évidemment les lignes comportant ça :

VB:

Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range(....

ne peuvent qu'être qu'en erreur.
J'ai rectifié ces 4 lignes :

Code:

    Workbooks("Classeur1.xlsm").Activate
    AncienneQuantité = Sheets("Feuil1").Range("E" & L)
    ' Recalcul l'ancienne somme avec les anciennes moyennes et quantité
    AncienneSomme = Sheets("Feuil1").Range("D" & L) * AncienneQuantité
    ' Stocke la nouvelle moyenne
    Sheets("Feuil1").Range("D" & L) = (AncienneSomme + NouvelleValeur) / (AncienneQuantité + 1)
    ' Stocke la...

Cesar1275 · 3 Novembre 2020

sylvanu à dit:
Il vous faut mémoriser la somme et la quantité, soit sur deux colonnes soit sur une en concaténant du genre Somme&"-"&Quantité.
En PJ une possibilité avec :

VB:

Sub CalculNouvelleMoyenne() Dim NouvelleNote, Valeurs NouvelleNote = 6 Valeurs = Split([E2], "-") [D2] = (Val(Valeurs(1)) + NouvelleNote) / (Val(Valeurs(2)) + 1) [E2] = "C-" & Val(Valeurs(1)) + NouvelleNote & "-" & Val(Valeurs(2)) + 1 End Sub

Evidemment, si vous décidez d'utiliser deux colonnes ce sera plus simple :

Code:

Sub CalculNouvelleMoyenne2() Dim NouvelleNote, Valeurs NouvelleNote = 6 [K2] = [K2] + NouvelleNote [L2] = [L2] + 1 [J2] = [K2] / [L2] End Sub

Merci beaucoup pour votre aide !

Est ce qu'il vous serait possible de l'intégrer à la macro dont on a parlé précédement svp ? car j'ai essayé de le faire moi même mais ça ne fonctionne pas.

sylvanu · 3 Novembre 2020

Renvoyez le fichier. Dans ce fil je ne sais plus quel est le dernier que vous utilisez.

Cesar1275 · 3 Novembre 2020

Sub Transfert_de_données()
' Fixe le répertoire à analyser
Rep = "C:\Users\victo\Documents\SNCF\Tableaux ICV\Tableaux brutes\"
' Recherche le fichier le plus récent
FichierLePlusRecent
' Et l'ouvre.
Workbooks.Open Rep & FichierRecent
' Le reste est identique
Workbooks(FichierRecent).Sheets("Moy Jour").Range("D312").Copy
Workbooks("Classeur1.xlsm").Activate
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Range("D312").Select
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Paste
Workbooks(FichierRecent).Close
MsgBox "Les données ont été actualisées avec succès"
End Sub

sylvanu · 3 Novembre 2020

Utilisez les balises </> pour le code, c'est plus lisible.

Essayez cela :

VB:

Sub Transfert_de_données()
' Fixe le répertoire à analyser
Rep = "C:\Users\victo\Documents\SNCF\Tableaux ICV\Tableaux brutes\"
' Recherche le fichier le plus récent
FichierLePlusRecent
' Et l'ouvre.
Workbooks.Open Rep & FichierRecent
' Le reste est identique
For L = 3 To 12
    ' Récupère la nouvelle valeur à intégrer
    NouvelleValeur = Workbooks(FichierRecent).Sheets("Moy Jour").Range("D" & L)
    ' Récupère la quantité déjà stockée
    AncienneQuantité = Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range("E" & L)
    ' Recalcul l'ancienne somme avec les anciennes moyennes et quantité
    AncienneSomme = Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range("D" & L) * AncienneQuantité
    ' Stocke la nouvelle moyenne
    Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range("D" & L) = (AncienneSomme + NouvelleValeur) / (AncienneQuantité + 1)
    ' Stocke la nouvelle quantité
    Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range("E" & L) = AncienneQuantité + 1
Next L
MsgBox "Les données ont été actualisées avec succès"
End Sub

La colonne E est à masquer.
J'utilise qu'une colonne car j'ai optimisé car :
Moyenne = Somme/Quantité, donc on peut retrouver Somme=Moyenne*Quantité.
Donc in suffit de stocker la quantité puis de faire :
NouvelleMoyenne=(Moyenne+NouvelleValeur)/(Quantité+1)
et stocker Quantité+1.

Cesar1275 · 3 Novembre 2020

Merci pour ta réponse
J'ai lancé la macro mais j'ai un message d'erreur qui s'affiche

sylvanu · 3 Novembre 2020

Vous n'avez pas intégrer la macro FichierPlusRecent dans votre fichier, il ne le trouve pas.

Cesar1275 · 3 Novembre 2020

Effectivement j'avais oublié de remettre LeFichierPlusRecent

J'ai relancé la macro mais j'ai un nouveau message d'erreur

sylvanu · 3 Novembre 2020

Deux possibilités :
Vous avez Option explicit et vous devez déclarer toutes les variables.
La feuille Moy Jour est absente.

Cesar1275 · 3 Novembre 2020

La feuille Moy jour existe bien
Mais je ne comprend pas ce que cela veut dire "déclarer toutes les variables"
Désolé mais je suis vraiment débutant en VBA

sylvanu · 3 Novembre 2020

sylvanu à dit:
Si vous avez Option explicit et vous devez déclarer toutes les variables.

C'est faire en début de macro Dim avec les variables.

Cesar1275 · 3 Novembre 2020

sylvanu à dit:
C'est faire en début de macro Dim avec les variables.

D'accord mais comment peut-on faire ça concrètement ?

sylvanu · 3 Novembre 2020

Si Option Explicit est précisé dans un des modules alors toute variable doit être déclarée :

VB:

Sub Transfert_de_données()
Dim NouvelleValeur ,AncienneQuantité ,AncienneSomme ,L
' Fixe le répertoire à analyser
Rep = "C:\Users\victo\Documents\SNCF\Tableaux ICV\Tableaux brutes\"
' Recherche le fichier le plus récent
FichierLePlusRecent
' Et l'ouvre.
Workbooks.Open Rep & FichierRecent
' Le reste est identique
For L = 3 To 12
    ' Récupère la nouvelle valeur à intégrer
    NouvelleValeur = Workbooks(FichierRecent).Sheets("Moy Jour").Range("D" & L)
    ' Récupère la quantité déjà stockée
    AncienneQuantité = Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range("E" & L)
    ' Recalcul l'ancienne somme avec les anciennes moyennes et quantité
    AncienneSomme = Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range("D" & L) * AncienneQuantité
    ' Stocke la nouvelle moyenne
    Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range("D" & L) = (AncienneSomme + NouvelleValeur) / (AncienneQuantité + 1)
    ' Stocke la nouvelle quantité
    Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range("E" & L) = AncienneQuantité + 1
Next L
MsgBox "Les données ont été actualisées avec succès"
End Sub

Cesar1275 · 3 Novembre 2020

J'ai essayé ton nouveau code mais j'ai toujours le même message d'erreur

sylvanu · 3 Novembre 2020

N'étant ni devin ni pythie, fournissez nous vos deux fichiers Classeur1 et le plus récent.
sinon peu de chances de converger.

sylvanu · 4 Novembre 2020

Bonjour,

Cesar1275 à dit:
La feuille Moy jour existe bien

Faux. Votre fichier Classeur1.xlsm ne possède pas de feuille nommée Moy Jour, c'est le fichier Suivi Qualité qui a cette feuille.
Donc évidemment les lignes comportant ça :

VB:

Workbooks("Classeur1.xlsm").Sheets("Moy Jour").Range(....

ne peuvent qu'être qu'en erreur.
J'ai rectifié ces 4 lignes :

Code:

    Workbooks("Classeur1.xlsm").Activate
    AncienneQuantité = Sheets("Feuil1").Range("E" & L)
    ' Recalcul l'ancienne somme avec les anciennes moyennes et quantité
    AncienneSomme = Sheets("Feuil1").Range("D" & L) * AncienneQuantité
    ' Stocke la nouvelle moyenne
    Sheets("Feuil1").Range("D" & L) = (AncienneSomme + NouvelleValeur) / (AncienneQuantité + 1)
    ' Stocke la nouvelle quantité
   Sheets("Feuil1").Range("E" & L) = AncienneQuantité + 1

et ça marche beaucoup mieux.
En PJ le fichier rectifié. Pensez à modifier le Rep, que j'ai bidouillé pour fonctionner sur mon PC.

XL 2019 Création d'une macro permettent d'ouvrir le fichier le plus recent d'un dossier

Cesar1275

XLDnaute Occasionnel

sylvanu

Cesar1275

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Cesar1275

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Cesar1275

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Cesar1275

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Cesar1275

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Cesar1275

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Cesar1275

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires