Macro fichier de synthèse

Macro fichier de synthèse - VB/VBA/VBS - Programmation

Marsh Posté le 19-09-2007 à 13:44:35    

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 :
  1. Sub chercheFichiersFermesV03()
  3. Dim X As Integer, nbFichiers As Integer, Y As Integer
  4. Dim Tableau() As String
  5. Dim Direction As String
  7. Application.ScreenUpdating = False
  8. Direction = Dir("C:\Documents and Settings\Administrateur\Mes documents\Essai macro\*.xls" )
  10. Do While Len(Direction) > 0
  11. nbFichiers = nbFichiers + 1
  12. ReDim Preserve Tableau(1 To nbFichiers)
  13. Tableau(nbFichiers) = Direction
  14. Direction = Dir()
  15. Loop
  17. If nbFichiers > 0 Then
  18. For X = 1 To nbFichiers
  19. If Tableau(X) <> ThisWorkbook.Name Then
  20. Y = Y + 1
  21. With ActiveSheet.Cells(Y, 1)
  22. .Formula = "='C:\Documents and Settings\Administrateur\Mes documents\Essai macro\[" & Tableau(X) & "]Supplier Profile" & "'!" & "C103"
  23. .Value = .Value
  25. End With
  26. End If
  27. Next X
  28. End If
  30. Application.ScreenUpdating = True
  31. 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
Reply

Marsh Posté le 19-09-2007 à 13:44:35   

Reply

Marsh Posté le 19-09-2007 à 23:38:52    

Voir Post du 15 05 2006 http://forum.hardware.fr/hfr/Progr [...] 0232_1.htm ainsi que peut-être celui du 20 07 2006  http://forum.hardware.fr/hfr/Progr [...] 2780_1.htm en les adaptant à ton contexte


Message édité par kiki29 le 19-09-2007 à 23:46:46
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed