Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

C

Cesar1275

XLDnaute Occasionnel
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 !
 
Solution
Bonjour,
Cesar1275 à dit:
La feuille Moy jour existe bien
Cliquez pour agrandir...
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...
Trier par date Trier par votes
L

Lolote83

XLDnaute Barbatruc
Bonjour CESAR1275,
Voici un petit fichier qui permet de lister l'ensemble des fichiers contenus dans un répertoire défini en cellule C1.
La macro liste les fichiers et récupère le plus récent qu'elle ouvre (fichier excel).
Attention, pour que cela fonctionne, il faudra activer la référence VBA "Microsof Scripting Runtime"
Tout est dans le fichier joint
@+ Lolote83
 

Pièces jointes

  • Copie de CESAR1275 - Ouvre fichier le plus recent.xlsm
    49 KB · Affichages: 22
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Ave Cesar, Lolotte,
En PJ un essai test avec :
VB: 
Sub FichierLePlusRecent()
Dim Rep As String, Fichier As String, i As Integer, Liste(1000), DateFile(1000), DateFichier, Indice As Integer
[D6] = ""
[D7] = ""
On Error GoTo Fin
i = 0
Rep = [Directory]
If Right(Rep, 1) <> "\" Then Rep = Rep & "\"    ' Le nom doit se terminer par \
Fichier = Dir(Rep)
Do While Fichier <> ""
    i = i + 1
    Liste(i) = Fichier
    DateFile(i) = FileDateTime(Rep & Fichier) ' Enregistre la date de création du fichier ( en type date )
    Fichier = Dir
Loop
DateFichier = 0
For i = 1 To UBound(DateFile)
    If DateFile(i) > DateFichier Then
        DateFichier = DateFile(i)
        Indice = i
    End If
Next i
[D6] = Liste(Indice)
[D7] = DateFile(Indice)
Fin:
End Sub
 

Pièces jointes

  • FichierRecent.xlsm
    15.8 KB · Affichages: 12
Vote positif 0 Vote négatif
C

Cesar1275

XLDnaute Occasionnel
Merci Beaucoup pour vos réponses super rapides !

Lolote83:

J'ai ouvert le fichier que tu m'a envoyé mais cette macro permet uniquement de lister des fichiers présents dans un dossier. Or j'ai besoin une macro me permettant d'ouvrir simplement le fichier le plus récent d'un dossier

Sylvanu:

J'ai essayé ta macro mais il ne se passe rien lorsque je l'execute ...

Merci encore pour votre aide et désolé si ma réponse peut paraitre bête mais je suis vraiment débutant dans VBA !
 
Vote positif 0 Vote négatif
C

Cesar1275

XLDnaute Occasionnel
En réalité j'aurais besoin d'intégrer cette macro au sein d'une autre que j'ai déja commencé à coder.
Celle ci permet d'aller ouvrir un fichier et de copier coller des données dans un autre tableau.

Le problème est que j'ai besoin d'ouvrir uniquement le dernier fichier présent dans le répertoir.

Sub Transfert_de_données()
Workbooks.Open "C:\Users\victo\Documents\SNCF\Tableaux ICV\Tableaux brutes\Suivi_Qualité_ICV_201029.xlsx"
Workbooks("Suivi_Qualité_ICV_201029.xlsx").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("Suivi_Qualité_ICV_201029.xlsx").Close

MsgBox "Les données ont été actualisées avec succès"
End Sub

Voici le code la la macro en question.
J'ai mis en rouge l'adresse du fichier le plus rescent du dossier mais il y en a un nouveau chaque jour.
J'aimerais que tu puisse intégrer ta macro à ce code ce qui permetrait à ma macro d'ouvrir le dernier fichier de ce dossier

Merci d'avance pour votre réponse !
 
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re bonjour CESAR1275,
Ton bout de code intégré dans mon fichier
Attention, les cellules en J1 et J2 sont utiles pour l'ouverture du fichier (A ne pas supprimer)
Sinon, adapte tout ceci sur le code de Sylvanu.
J'ai mis en dur ton chemin sur la cellule C1.
@+ Lolote83
 

Pièces jointes

  • Copie de CESAR1275 - Ouvre fichier le plus recent - V2.xlsm
    48.9 KB · Affichages: 5
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re tout le monde,
A tester. J'ai mixé les deux macros.
VB: 
Public Rep As String, FichierRecent As String
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("D3:D12").Copy
Workbooks("Classeur1.xlsm").Activate
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Range("D3:D12").Select
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Paste
Workbooks(FichierRecent).Close
MsgBox "Les données ont été actualisées avec succès"
End Sub
Sub FichierLePlusRecent()
Dim Fichier As String, i As Integer, Liste(1000), DateFile(1000), DateFichier, Indice As Integer
On Error GoTo Fin
i = 0
If Right(Rep, 1) <> "\" Then Rep = Rep & "\"    ' Le nom doit se terminer par \
Fichier = Dir(Rep)
Do While Fichier <> ""
    i = i + 1
    Liste(i) = Fichier
    DateFile(i) = FileDateTime(Rep & Fichier) ' Enregistre la date de création du fichier ( en type date )
    Fichier = Dir
Loop
DateFichier = 0
For i = 1 To UBound(DateFile)
    If DateFile(i) > DateFichier Then
        DateFichier = DateFile(i)
        Indice = i
    End If
Next i
FichierRecent = Liste(Indice)
Fin:
End Sub
 
Vote positif 0 Vote négatif
C

Cesar1275

XLDnaute Occasionnel
Merci Sylvanu !

J'ai testé ta macro mais elle ouvre le fichier "Suivi_Qualité_ICV_201023" or ce fichier est le premier et non pas le dernier du dossier ...
dans mon exemple il faudrait que la macro ouvre le fichier "Suivi_Qualité_ICV_201029"

Merci d'avance !
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
J'ai un ti bug si le fichier n'est pas dans le dossier courant.
Par contre il ouvre bien le plus récent.
VB: 
Public Rep As String, FichierRecent As String
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(Rep & FichierRecent).Sheets("Moy Jour").Range("D3:D12").Copy
Workbooks("Classeur1.xlsm").Activate
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Range("D3:D12").Select
Workbooks("Classeur1.xlsm").Sheets("Feuil1").Paste
Workbooks(Rep & FichierRecent).Close
MsgBox "Les données ont été actualisées avec succès"
End Sub
Sub FichierLePlusRecent()
Dim Fichier As String, i As Integer, Liste(1000), DateFile(1000), DateFichier, Indice As Integer
On Error GoTo Fin
i = 0
If Right(Rep, 1) <> "\" Then Rep = Rep & "\"    ' Le nom doit se terminer par \
Fichier = Dir(Rep)
Do While Fichier <> ""
    i = i + 1
    Liste(i) = Fichier
    DateFile(i) = FileDateTime(Rep & Fichier) ' Enregistre la date de création du fichier ( en type date )
    Fichier = Dir
Loop
DateFichier = 0
For i = 1 To UBound(DateFile)
    If DateFile(i) > DateFichier Then
        DateFichier = DateFile(i)
        Indice = i
    End If
Next i
FichierRecent = Liste(Indice)
Fin:
End Sub
 
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re bonjour,
Je poste quand même la version V3 qui corrige un bug de la V2.
J'ai juste rajouté l'option des fichiers XL seulement (et pas les pdf, word, jpg etc etc etc)
Mais Sylvanu a encore frappé !!!!
@+ Lolote83
 

Pièces jointes

  • Copie de CESAR1275 - Ouvre fichier le plus recent - V3.xlsm
    53 KB · Affichages: 6
Vote positif 0 Vote négatif
C

Cesar1275

XLDnaute Occasionnel
Merci à vous 2 pour vos réponses !

Sylvanu j'ai de nouveau testé ta macro. En effet elle ouvre bien le fichier le plus recent mais elle n'arrive pas à copier coller les données.



Voici la capture d'écran
En fluo la ligne indiquée comme ayant un problème

Merci d'avance
 
Vote positif 0 Vote négatif
L

Lolote83

XLDnaute Barbatruc
Re bonjour,
Peut être faut-il supprimer Rep dans la ligne en question

Workbooks(Rep & FichierRecent).Sheets("Moy Jour").Range("D312").Copy deviendrait
Workbooks(FichierRecent).Sheets("Moy Jour").Range("D312").Copy

de même plus bas
Workbooks(Rep & FichierRecent).Close deviendrait
Workbooks(FichierRecent).Close

As tu testé ma version3 ?
@+ Lolote83
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

R
  • Question
Microsoft 365 VBA Excel PowerPoint
Réponses
5
Affichages
272
Rem6610
R
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
312
MarineU
M
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
790
firecarl
F
  • Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
500
alexga78
A
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
652
Olihoes
O
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
536
Nico2978
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
783
JPaul78
J
B
  • Question
XL 2016 Récupérer les valeurs de chaque titre à partir de plusieurs onglets
Réponses
4
Affichages
351
bnolwalid
B
Z
  • Question
Microsoft 365 Chemin pour atteindre le stockage cloud lors d'une génération de fichier Excel
Réponses
2
Affichages
511
zedude
Z
  • Question
XL 2019 Ouverture fichier xlsx dans dossier nom variable.
2
Réponses
16
Affichages
1 K
steph59940
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…