|
|
|
|
Posté par
shishumi, le vendredi 16 mai 2008 à 17:02:48Option Explicit
' option à activer dans VBA menu Outils | Références : Cocher Microsoft Scripting Runtime
Const DossierFichiers As String = "C:\Documents and Settings\martint\Bureau\abaques\hertziennes"
Sub Ouvrir_fichier()
ListeFichiersDans DossierFichiers
End Sub
Private Sub ListeFichiersDans(ByVal NomDossier As String)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File
Dim x As Long
Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(NomDossier)
x = 0
For Each Fichier In DossierSource.Files
x = x + 1
Workbooks.Open Filename:=Fichier
Sheets("Paramètres").Select
ActiveWorkbook.Close False
Next Fichier
MsgBox "Nb Fichiers : " & x
Set Fichier = Nothing
Set DossierSource = Nothing
Set FSO = Nothing
End Sub
Configuration: Windows XP Firefox 2.0
comment on fait pour entrer une formule dans excel stp
|
|
bonjour
Essaye ce code (je ne l'ai pas testé). Les données seront collées dans la feuille courante à partir de la ligne 2, colonnes A à E. Private Sub ListeFichiersDans(ByVal NomDossier As String)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File
Dim x As Long
Dim Lig As Integer
Dim i As Integer
Dim d(5)
Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(NomDossier)
Lig = 2
x = 0
For Each Fichier In DossierSource.Files
x = x + 1
Workbooks.Open Filename:=Fichier
Sheets("Paramètres").Select
'mes données à récupérer doivent être ici
d(1) = Range("C5").Value
d(2) = Range("C6").Value
d(3) = Range("C8").Value
d(4) = Range("C9").Value
d(5) = Range("C10").Value
ActiveWorkbook.Close False
'copie des données
For i = 1 To 5
Cells(Lig, i).Value = d(i)
Next i
Lig = Lig + 1
Next Fichier
MsgBox "Nb Fichiers : " & x
Set Fichier = Nothing
End Sub
à plus
|
| 14/05 13h04 | VBA : Trouver Hdc d'une feuille Excell et Userform | Bureautique |
| 06/02 00h35 | bureautique | Excel |
| 19/12 17h42 | FORMULES DE BASE | Excel |
| 29/10 12h20 | Figer une ligne | Excel |
| 27/11 13h33 | Nintendo DS, Homebrews et programmation | Multimédia |
| 14/10 11h55 | Récupération données ds HD de portable | 2 |
| 05/11 12h25 | Regroupement des donnees de feuilles excel | 2 |
| 28/07 10h34 | Recherche données ds tableau EXCEL | 0 |
| 17/12 14h42 | Recuper donner suppr sur excel | 0 |
![]() | Restoration - Restoration est un outil gratuit, en anglais seulement, permettant de récupérer les données effacées, même après avoir vidé... | Catégorie: Sauvegarde Licence: Freeware/gratuit |
![]() | Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même... | Catégorie: Tableur Licence: Freeware/gratuit |
![]() | DSL Test - DSLtest est constitué d'un logiciel à télécharger gratuitement et de serveurs de test. Ces équipements vous permettent... | Catégorie: ADSL Licence: Freeware/gratuit |
![]() | DS Monkey Audio - Filtre APE - Le format MonkeysAudio (extension *.ape) est un format de compression audio lossless (sans pertes) permettant de réduire la... | Catégorie: Plugins audio Licence: Freeware/gratuit |
![]() | Gundam Mahjong DS | Catégorie: Jeu vidéo Nintendo DS | 29.99 € Alapage |
![]() | Optoma DS306 | Catégorie: Vidéoprojecteur | 305.96 € Rue du Commerce |
![]() | Mario Party DS | Catégorie: Jeu vidéo Nintendo DS | 36.99 € Amazon.fr |
![]() | Sanyo PDG-DSU20 | Catégorie: Vidéoprojecteur | 301.95 € Rue du Commerce |