besoin d'aide : macro VBA

Question

Bonjour à tous

Je cherche un code en VBA pour une macro pour mon travail.

J'ai un répertoire avec plusieurs classeurs excel. Chaque classeur à un nom différent mais la forme du fichier est le même pour tous (un tableau dans lequel je rentre mes informations).

J'aimerais, à partir d'un autre classeur « recap », récupérer les cellules C6, C81 et C83 de chaque classeur de ce répertoire sans les ouvrir. Ce qui serait génial c'est d'avoir les 3 données de ces 3 cellules, les unes en dessous des autres (donc 3 colonnes et autant de lignes que de classeurs dans le répertoire).

Je n'ai pas de connaissance en VBA et cherche tant bien que mal à comprendre sur les forum comment cela marche. A chaque fois que je teste un code,  il y a toujours quelques choses qui ne va pas.

Je serais très reconnaissant aux personnes qui voudront bien m'aider !!

Merci à TOUS




Configuration: Windows XP / Internet Explorer 7.0

michel_m · Answer

Bonjour,

macro à mettre dans un module VBA du classeur recapitulatif
le classeur "recapitatif" et les classeurs source doivent être dans le m^me répertoire

tu n'avais pas précisé dans quelle feuille étaient C6,C81,C83: à adapter dans la macro

Sub recapituler() 
Dim lig As Long 
Dim recap As String, chemin As String, onglet As String 
Dim fich As String 

recap = ThisWorkbook.Name 
onglet = "feuil1" ' A ADAPTER 
chemin = ThisWorkbook.Path 
Application.ScreenUpdating = False 
Range("A2:C1000").ClearContents 
lig = 2 

ChDir chemin 
fich = Dir("*.xls") 
While fich <> "" 
    If fich <> recap Then 
        Cells(lig, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fich & "]" & onglet & "'!R6C3")  'R6C3 <==> C6 
        Cells(lig, 2) = ExecuteExcel4Macro("'" & chemin & "\[" & fich & "]" & onglet & "'!R81C3") 'R81C3<==>C81 
        Cells(lig, 3) = ExecuteExcel4Macro("'" & chemin & "\[" & fich & "]" & onglet & "'!R83C3") 
    lig = lig + 1 
    End If 
    fich = Dir 
Wend 

MsgBox "récapitulatif  terminé avec succès" 
End Sub

tu dis...

Michel
:-x

lermite222 · Answer

Bonjour, 
Comme tu dis que tu ne connaît pas le VBA je vais essayer d'être clair. 
Déjà, lire dans un classeur sans l'ouvrir est trop compliquer, les ouvrir et fermer directement pose moins de problème. 
Il faut que tout les classeurs à ouvrir aient une feuille avec le même nom. 
Marche à suivre... 
1°) Sur la feuille de ton classeur Recap où tu veux voir les données tu colle un bouton de la barre d'outils (pas formulaire) 
2°) Tu clic droit sur le nom de l'onglet > Visualiser le code. 
Dans la fenêtre qui s'ouvre tu colle TOUT le code ci-dessous. 

Option Explicit 

Private Sub CommandButton1_Click() 
Dim e As Integer 
    e = LireRepertoir("C:\Le chemin\complet du répertoir\") 
End Sub 

'Obtenir tous les fichiers d'un répertoire.
'Le nom du répertoire source doit être dans Rep 
Function LireRepertoir(ByVal Rep As String) As Integer 
Dim Obj, RepP, F, S, sf, F1, Fsous 
Dim i As Integer, Ext As String 
Dim Chem As String 
Dim Lig As Double 
Dim Wsh As Worksheet 
Dim WshData As Worksheet 
    Set Wsh = ActiveWorkbook.ActiveSheet 
    Lig = 3 'commence la copie à la ligne 3 
    Application.EnableEvents = False 
    Application.DisplayAlerts = False 
    Set Obj = CreateObject("Scripting.FileSystemObject") 
    Set RepP = Obj.Getfolder(Rep) 
    Chem = Rep: If Right(Chem, 1) <> "\" Then Chem = Chem & "\" 
    Set F = RepP.Files 
    For Each F1 In F 
        Ext = LCase(Right(F1.Name, 3)) 
        If Ext = "xls" Then  'extension à adapter (en minuscule) 
            Workbooks.Open F1.Name 
            'Adapter le nom de la feuille où sont les données 
            Set WshData = ActiveWorkbook.Sheets("feuil1") 
            Wsh.Cells(Lig, 1) = F1.Name 
            Wsh.Cells(Lig, 2) = WshData.Range("C6") 
            Wsh.Cells(Lig, 3) = WshData.Range("C81") 
            Wsh.Cells(Lig, 4) = WshData.Range("C83") 
            Lig = Lig + 1 
            WshData.Parent.Close 
        End If 
    Next F1 
    Set WshData = Nothing 
    Set Wsh = Nothing 
    Application.EnableEvents = True 
    Application.DisplayAlerts = True 
End Function
3°) Tu adapte le chemin de ton répertoir. 
4°) Tu adapte le nom de la feuille des classeurs à ouvrir. 
Si tu à bien tout suivi, les données s'afficheront dans la feuille où tu à mis le bouton. 
A+ 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

FloR54 · Answer

Bonjour michel_m

J'ai bien essayé le code mais j'obtiens un résultat étrange.
J'ai plusieurs fois le nom du même fichier qui apparaît et je récupère des noms de cellules que je ne désire pas ?? Je ne sais pas si tu peux y faire quelques choses ?

Flor54

FloR54 · Answer

Merci lermite222 pour ton aide.
Je n'ai pas bien compris (je suis un vrai néophite) ce que je dois faire en premier : creer un bouton ??

J'ai été dans outil --> macros --> v.B.E. puis j'ai copié dans un module ton code.

J'ai un message d erreur qui me dit qu il ne peut pas lire le premier fichier de mon repertoire.

Je ne suis pas censé changer "Rep" ?

Est ce que tu as une réponse à cela ?

encore merci

Flor54

FloR54 · Answer

déjà : Merci michel_m pour ton aide.

Je ne sais pas pourquoi mais ce n est pas ce à quoi je m'attendais.

Quand j'ouvre le classeur "consolidation" je n'ai pas les valeurs que tu as entré dans les cellules c6, c81, c83 de sv1, sv2, sv3. Ou alors c est que je fais la mauvaise manip. ???

Je ne sais pas isi tu vois ou est mon probleme ?

En tout cas merci !!

flor54

lermite222 · Answer

Au final, le plus simple..
Un classeur exemple

FloR54 · Answer

je sais que le travail est tout maché et que je passe pour un c** . Merci lermite222. Quand je clique sur le bouton il me mets erreur d'exécution 1004 ??

Mon premier fichier est introuvable or le chemin est exact et les noms avec. Je suis sur qu'il ya un petit truc simple à faire non ?

en tout cas merci !!

FloR54 · Answer

Bonjour Lermite222

J'ai suivi le protocole que tu m'as donné hier...et ca marche !!

je vois les fichier s'ouvrir et se fermer les uns après les autres et je vois aussi les données s'inscrire sur un classeur à part mais lorsque tous les dossiers ont été ouvert, je ne retrouve pas le tableau récapitulatif. 

Où est il ? Où vont les données recueillies ?

J'y suis presque, alors vraiment : un grand merci !!

flor54

lermite222 · Answer

Ca y est, ça fonctionne mais c'est pas tellement évident.
Ca n'est pas repris (apparement) par FloR54, mais ça aura quand même servit.
Merci et A+

Besoin d'aide : macro VBA

9 réponses

Newsletters