Import du document le plus récent
Résolu/Fermé
Embraque21
Messages postés
3
Date d'inscription
jeudi 29 juillet 2010
Statut
Membre
Dernière intervention
29 juillet 2010
-
29 juil. 2010 à 09:47
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 29 juil. 2010 à 18:48
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 29 juil. 2010 à 18:48
A voir également:
- Import du document le plus récent
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Un mot est caché dans l'en-tête du document. pour le trouver, modifiez sa couleur. ✓ - Forum Word
- Signer un document word - Guide
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- L'en-tête du document comporte une information qui n’apparaît pas à l'impression car elle est de couleur blanche. de quelle information s'agit-il ? ✓ - Forum Bureautique
1 réponse
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 657
29 juil. 2010 à 10:59
29 juil. 2010 à 10:59
bonjour
Pour obtenir ton classeur source le plus récent tu peux essayer ceci :
Puis continuer avec ton code à toi.
Pour obtenir ton classeur source le plus récent tu peux essayer ceci :
Public Sub ouvre_dernier()
Dim fsys As Object
Dim felm As Object
Dim fdat As Date
Dim fdir As String
Dim fich As String
Dim fsel As String
fdir = "K:\Outils\Reporting trimestriel\Fichier import\" ' répertoire de recherche
Set fsys = CreateObject("Scripting.FileSystemObject")
fich = Dir(fdir & "*.xlsx")
While fich <> ""
Set felm = fsys.GetFile(fdir & fich)
If felm.DateLastModified > fdat Then
fdat = felm.DateLastModified
fsel = fdir & fich
End If
fich = Dir
Wend
Dim classeurSource As Object
Set classeurSource = Application.Workbooks.Open(fsel, , True)
End Sub
Puis continuer avec ton code à toi.
29 juil. 2010 à 11:06
Je vais essayer ton code, je te tiens au courant.
Modifié par Embraque21 le 29/07/2010 à 11:24
29 juil. 2010 à 18:48