Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 08/11/2011, 09h07   #1
Invité de passage
 
Inscription : janvier 2007
Messages : 22
Détails du profil
Informations forums :
Inscription : janvier 2007
Messages : 22
Points : 3
Points : 3
Par défaut lister tous les fichiers ouverts

Bonjour,
a l'aide d'un findfile, j'ouvre plusieurs fichiers *.csv.

Je voudrais savoir comment :
- soit les lister dans une plage de cellules
- soit pouvoir récupérer leur nom 1 à 1

Le but étant de pouvoir récupérer les 2 ou trois premières colonnes dans un fichier tiers à partir duquel j'ouvre ces fichiers

merci d'avance de votre aide
fred19732 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/11/2011, 10h09   #2
Membre régulier
 
Inscription : novembre 2004
Messages : 130
Détails du profil
Informations forums :
Inscription : novembre 2004
Messages : 130
Points : 75
Points : 75
Bonjour,
Puisque les fichiers sont ouverts il sufffirait de lister les fichiers CSV
Code :
1
2
3
4
5
6
 
For Each vEl In Workbooks
    If Right(UCase(vEl.Name), 3) = "CSV" Then
       MsgBox vEl.Name
    End If
 Next
La méthode FindFilene vous permettra pas de lister les fichiers que vous ouvrez
olaxius est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/11/2011, 11h09   #3
Invité de passage
 
Inscription : janvier 2007
Messages : 22
Détails du profil
Informations forums :
Inscription : janvier 2007
Messages : 22
Points : 3
Points : 3
Par défaut liste fichiers csv ouverts

C'est parfait.
Je savais que le findfile ne permettait pas cela, mais ce que vous proposez est nickel
merci beaucoup
fred19732 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 14h17.


 
 
 
 
Partenaires

Hébergement Web