Forcer à Lire un Répertoire Données
Bonjour,
Je bloque depuis 2 jours sur cette enigme:
Les Faits, ci-joint un début de code
qui a pour But d'aller récupérer le dernier fichier avec extension .csv d'un répertoire donnés
malheureusement malgrés le ChDrive et ChDir imposé en F:/..... il continu à lire dans le répertoire ou ce trouve
mon fichier .xlsm qui lance la Macro.
Merci par avance de support, sur ce sujet
Bien Cordialement
GDS
Object
Dim Ladate As Date
Dim Lenom As String
Dim Msg, Style, Title, Response
'----------------------------------------
'Selectionne un disque
ChDrive "F:"
'Selectionne un repertoire sur ce disque
ChDir "F:\sauvegarde\Act"
'------------------------------------------
Set Fso = CreateObject("scripting.filesystemobject")
F = Dir(ThisWorkbook.Path & "\" & "*.csv")
While F <> ""
Set Fich = Fso.GetFile(ThisWorkbook.Path & "\" & F)
If Lenom = "" Then
Ladate = Fich.DateCreated
Lenom = F
Else
Bonsoir,
si tu utilises chdir, tu changes le répertoire par défaut dans lequel tu veux aller chercher un fichier s'il le chemin n'est pas complet.
si tu utilises thisworkbook.path, tu indiques d'aller chercher le fichier dans le même répertoire que celui dans lequel se trouve ton fichier qui contient cette macro
change ton code ainsi, (non testé)
Dim Ladate As Date
Dim Lenom As String
Dim Msg, Style, Title, Response
'----------------------------------------
'Selectionne un disque
ChDrive "F:"
'Selectionne un repertoire sur ce disque
ChDir "F:\sauvegarde\Act"
'------------------------------------------
Set Fso = CreateObject("scripting.filesystemobject")
F = Dir( "*.csv")
While F <> ""
Set Fich = Fso.GetFile( F)
If Lenom = "" Then
Ladate = Fich.DateCreated
Lenom = F
ElseMerci pour cette réponse clair et pratique
Grand Merci à H2so4
Excel ainsi que ce sîte est un régal et heureux de vous savoir dispo et ouvert en toute occasion
Bon bout d'An à toutes et tous
GDS
Encore une petite question
Comment faire dés lors que le dit répertoire est sous ftp://
Merci d'avance
GDS