Bonjour à tous,
je suis grand débutant en VBA. J'essaie de réaliser un fichier excel de synthèse à partir d'une multitude de fichiers stockés dans un même répertoire (ayant tous le même format - je précise). Chaque ligne de mon fichier de synthèse doit correspondre à un fichier du répertoire. J'ai utilisé le code suivant :
Code :
- Sub chercheFichiersFermesV03()
- Dim X As Integer, nbFichiers As Integer, Y As Integer
- Dim Tableau() As String
- Dim Direction As String
- Application.ScreenUpdating = False
- Direction = Dir("C:\Documents and Settings\Administrateur\Mes documents\Essai macro\*.xls" )
- Do While Len(Direction) > 0
- nbFichiers = nbFichiers + 1
- ReDim Preserve Tableau(1 To nbFichiers)
- Tableau(nbFichiers) = Direction
- Direction = Dir()
- Loop
- If nbFichiers > 0 Then
- For X = 1 To nbFichiers
- If Tableau(X) <> ThisWorkbook.Name Then
- Y = Y + 1
- With ActiveSheet.Cells(Y, 1)
- .Formula = "='C:\Documents and Settings\Administrateur\Mes documents\Essai macro\[" & Tableau(X) & "]Supplier Profile" & "'!" & "C103"
- .Value = .Value
- End With
- End If
- Next X
- End If
- Application.ScreenUpdating = True
- End Sub
|
Mes questions sont les suivantes :
- Comment faire pour que sur mon fichier de synthèse ma liste commence par exemple à la cellule A9 et non A1 comme c'est le cas actuellement ? (je sais, c'est stupide comme question)
- Que dois je faire pour continuer mon code pour rapatrier des cellules, par exemple à partir de la cellule B9 de mon fichier de synthèse (cellule des fichiers source = C128 par exemple) ?
Merci pour vos réponses,
Djoul
Message édité par Djoul33 le 19-09-2007 à 13:50:14
