Fichier

[éric]

Bonsoir,
Je cherche a exécuter dans une macro l'ouverture du premier fichier qui apparait dans un répertoire et aussi à effacer ce fichier après avoir effectué un traitement.
Auparavant j'avais réussi à ouvrir le premier fichier du répertoire mais je ne retrouve plus comment.

Merci de votre aide

 

[Robert]

Bonsoir Éric, bonsoir le forum,

pour le premier fichier d'un répertoire :

Public Sub premfich()
Dim chem As String 'déclare la variable chem
Dim fs, f, f1, fc, s 'déclare les variable fs
chem = "C:\Documents and Settings\Robert\Mes documents\Poubelle"
'définit la variable chem
'chem = "C:\Documents and Settings\..." 'place ici le chemin complet de ton dossier
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(chem)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
Exit For
Next
MsgBox s
End Sub

À plus,

Robert

 

[Robert]

Re Éric

J'ai oublié de supprimer la ligne :
chem = "C:\Documents and Settings\Robert\Mes documents\Poubelle"
qui me servait pour tester la macro. Il te faut donc la supprimer ou la mettre à jour avec le chemin d'accès complet de ton repertoire au lieu de celui qui est écrit.

À plus,

Robert

 

[éric]

Merci Robert, et bon dimanche

pour l'ouverture cela fonctionne,
je souhaiterais que l'utilisateur de la macro puisse choisir le répertoire dans lesquel il veux ouvrir les fichiers.

Pour effacer le premier fichier, peut on utiliser "kill"

Merci d'avance
Éric