Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1950 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro fichier de synthèse

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro fichier de synthèse

n°1612981
Djoul33
Posté le 19-09-2007 à 13:44:35  profilanswer
 

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()
  2. Dim X As Integer, nbFichiers As Integer, Y As Integer
  3. Dim Tableau() As String
  4. Dim Direction As String
  5. Application.ScreenUpdating = False
  6. Direction = Dir("C:\Documents and Settings\Administrateur\Mes documents\Essai macro\*.xls" )
  7. Do While Len(Direction) > 0
  8. nbFichiers = nbFichiers + 1
  9. ReDim Preserve Tableau(1 To nbFichiers)
  10. Tableau(nbFichiers) = Direction
  11. Direction = Dir()
  12. Loop
  13. If nbFichiers > 0 Then
  14. For X = 1 To nbFichiers
  15. If Tableau(X) <> ThisWorkbook.Name Then
  16. Y = Y + 1
  17. With ActiveSheet.Cells(Y, 1)
  18. .Formula = "='C:\Documents and Settings\Administrateur\Mes documents\Essai macro\[" & Tableau(X) & "]Supplier Profile" & "'!" & "C103"
  19. .Value = .Value
  20. End With
  21. End If
  22. Next X
  23. End If
  24. Application.ScreenUpdating = True
  25. 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
mood
Publicité
Posté le 19-09-2007 à 13:44:35  profilanswer
 

n°1613244
kiki29
Posté le 19-09-2007 à 23:38:52  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro fichier de synthèse

 

Sujets relatifs
Outils pour indenter un fichier XSL ?[Résolu] compiler plusieur images dans un fichier php
[PHP]Upload fichier de 30mo?!copie de fichiers vers dossiers en fonction du nom de fichier
[VB6] : Supprimer le titre et numéro de page d'un fichier texteMacro VBA Excel devenue lente
Scripts VBS + DOS - sortie dans un fichier de logsCompresser des .TXT en un fichier .ARJ
probleme d'execution de macro sur feuille vérouillée ( partiellement)Créer un site semi dynamique avec un fichier csv.
Plus de sujets relatifs à : Macro fichier de synthèse


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR