VBA excel Résolu/Fermé

Question

Bonjour, 

Je suis en stage et je n'ai pas accès à internet directement, je me connecte à un réseau public et j'ai donc un débit pourri. Du coup je n'arrive pas à créer le lien cjoint.

Mais enfin je vais tenter d'expliquer mon problème de manière assez explicite pour que vous puissiez le comprendre.

J'ai un fichier excel présenté de la sorte : 
        A	     B	              C	      D               E	       F 
1    Nom     Coût 1      Coût 2   Coût 3     Coût 4    Coût total 
2 
3 
. 
. 
. 
Dans un dossier de mon disque dur, j'ai plusieurs classeurs excel (Classeur 1, Classeur 2, etc). Et j'aimerais que par exemple dans la cellule A2 ci-dessus se mette le nom du Classeur 1, puis que dans les cellules B2, C2, D2, E2, F2 se mettent les différents coûts contenus dans des cellules du classeur 1. La macro ferait aller ensuite à la ligne 3 et remplirait les mêmes informations pour le classeur 2 et ainsi de suite pour les autres classeurs. 

Comme je ne connais pas vraiment le langage VBA, j'avais enregistré une macro pour voir les lignes de code qui apparaissaient lorsque j'effectuais la manipulation pour le premier classeur. Mais je ne sais pas comment faire pour réitérer cette opération pour chaque classeur du dossier. J'imagine qu'il faudrait une boucle for each window in (je ne sais pas comment transcrire l'adresse du dossier) .. 

Bref voilà j'espère avoir été assez clair et que vous pourrez me donner une piste quelle qu'elle soit. 

Je vous remercie d'avance, 

Mike1189

f894009 · Answer

Bonjour,
Je ne sais pas trop ce que vous voulez des informations collectees des autres classeurs, mais pour moi il n'y a pas besoin de VBA. Pour le nom des classeurs, vous les ecrivez manuellement et pour les cellules vous faites des copier/ collage special.. puis coller avec liaison. Cela devrait suffire.

A voir

Bonne suite

pijaku · Answer

Bonjour,

Excusez l'incruste...

Tu dis : se mettent les différents coûts contenus dans des cellules du classeur 1
des cellules... Hummm. Lesquelles?
Classeur1, classeur2, Classeur3 etc... contiennent tous cout1, cout2, cout3, cout4 et cout total? Dans les mêmes cellules? dans les mêmes feuilles? Si oui, nom de cette feuille?

chossette9 · Answer

Bonjour, 

je n'ai pas trop le temps (boulot), mais il faudrait voir avec la fonction INDIRECT() pour récupérer les données dans les cellules des différents classeurs, si les cellules sont au même emplacement dans chaque classeur.

Cordialement.

f894009 · Answer

Re,

En attendant la suite pour les cellule, voici une Macro pour recuperer les nom de fichiers a condition qu'ils soient dans le meme repertoire.

il faudra qu'elle se lance a chaque fois que vous ouvrez le fichier recap ou/et avec un bouton sur la feuille recap.

Sub Recherche_Fichiers_xls()
  Dim MonRepertoire As String, fso As Object, f As Object, i As Integer
  Set fso = CreateObject("Scripting.FileSystemObject")
  'A modifier par le chemin que vous avez besoin
  MonRepertoire = ThisWorkbook.Path

  With Sheets(1)
    .Columns("A:A").ClearContents
    For Each f In fso.GetFolder(MonRepertoire).Files
      'Prendre les extensions fichiers que vous avez besoin
      If Right(f.Name, 4) = ".xls" Or Right(f.Name, 5) = ".xlsx" Then
        i = i + 1
        .Cells(i, 1) = f.Name ' Nom du fichier
      End If
    Next f

  End With
End Sub