Macro fichier de synthèse

FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Macro fichier de synthèse

Macro fichier de synthèse

Il y a 288 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Voir les posts : Par défaut Tous Les bonnes notes Les notes insuffisantes

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro fichier de synthèse

djoul33

Plus d'informations

19-09-2007 à 11:55:36

Bonjour à tous,

je débute en VBA et je souhaite réaliser un fichier excel de synthèse grace à une macro reprenant plusieurs fichiers excel dans un répertoire. Tous ont le même format. J'ai commencé avec 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 boucle commence par exemple à la cellule A9 et non A1 comme c'est le cas actuellement ?
- Que dois je faire pour continuer à rapatrier des informations, 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:48:38

KangOl

Profil : Pointeur

Plus d'informations

19-09-2007 à 13:27:27

Masquer

maiheu

---------------
Da Bidz Triad©®™: Bidz Interceptor
.:: Smileyz version 4.2 [050625]::. -- Code source disponible sous licence GPL.
[u

zeb

Profil : Modérateur libre

Plus d'informations

19-09-2007 à 13:44:50

Masquer

Ton code est illisible. Merci de lire le règlement et de l'appliquer !
Pour info, les boutons et permettent de modifier un message. Pratique pour mettre ses messages en conformité !

Message édité par zeb le 20-09-2007 à 09:57:42

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

Freeman23

Plus d'informations

19-09-2007 à 15:50:23

Masquer

- Initialiser Y serait déjà pas mal car commencer par lui affecter Y+1 c'est très sale et mal, après tu commences de la valeurs que tu souhaites.
- Logiquement tu devrais ouvrir les classeurs sources à la chaine et les parcourir pour récupérer les informations. et ainsi de suite pour tout le répertoire.

---------------
S'il n'y a pas de solution c'est qu'il n'y pas de problème

djoul33

Plus d'informations

19-09-2007 à 17:52:50

Masquer

Merci pour ta réponse, mais étant vraiment débutant, je patauge un peu...
Comment initialiser Y dans mon code ? j'ai fait plusieurs essai, mais ce n'est pas satisfaisant.

Merci d'avance

kiki29

Plus d'informations

20-09-2007 à 08:57:29

Masquer

Juste pour info : Un utilitaire qui permet de formater du code VBA
http://www.oaltd.co.uk/Indenter/Default.htm

Message cité 1 fois

Freeman23

Plus d'informations

20-09-2007 à 09:02:44

Masquer

Comme tu l'as fait avant

Code :

y = 9

---------------
S'il n'y a pas de solution c'est qu'il n'y pas de problème

zeb

Profil : Modérateur libre

Plus d'informations

20-09-2007 à 10:07:53

Masquer

kiki29: :ouch: Il y a des trucs comme ça pour le VB !?
(Remarque, je connaissais bien les "beautifiers" pour le code C.)

Plus aucune raison de ne plus présenter son code correctement dorénavant

Je te cite là http://www.presence-pc.com/forum/p [...] htm#t35529
(Désolé, j'ai un tout petit peu modifié ton message, Formater ne me plaisait pas, VBA est trop restrictif.)

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

djoul33

Plus d'informations

26-10-2007 à 10:26:25

Masquer

Merci à tous pour votre aide, j'avais mis ce travail un peu entre parenthèses mais j'ai réussi à avancer. J'ai maintenant une autre question. Ci dessous mon code qui marche nickel, mais je bute sur quelque chose :

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
Y=8
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
With ActiveSheet.Cells(Y, 2)
.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

Comment faire pour concatener 2 cellules de mon fichier d'origine dans mon fichier de destination avec un retour ligne entre les 2 si possible. (Ex : C103 et C104 en Y2). J'ai essayé plusieurs solutions (&;+) qui ne marche pas, genre qui me retourne "vrai" et faux" ou #valeur.

Merci d'avance

zeb

Profil : Modérateur libre

Plus d'informations

26-10-2007 à 15:37:39

Masquer

Utilise le caractère "retour-chariot", le caractère "A la ligne" ou les deux.

Tu ne sais pas de quoi je parle ? :lol: De Carriage Return et de Line Feed bien sûr, dits aussi CR et LF voire 13 et 10

Exemple :