Discussion :

[yoaninho]

Bonjour,

voila je m'explique:
j'ai en faite 3 classeurs ("N:\production\Production\Gestion du temps\Gestion_du_temps_RL1;"N:\production\Production\Gestion du temps\Gestion_du_temps_RL2.xlsm";"N:\production\Production\Gestion du temps\Gestion_du_temps_RL3.xlsm".xlsm"identique avec à l'interieur un tableau chacun identique. je souhaiterais extraire les donneé de chaque tableaux, et ensuite les mettre dans les un apres les autres dans un autre classeur..("N:\production\Production\Gestion du temps\Gestion_du_temps_RLA.xlsm")mais malheuresement je debut en VBA je n'ai donc pas toutes vos conaissances..
voila le code de mon boutons dans mon fichier qui doit recevoir les extraction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Workbooks.Open Filename:= _
        "N:\production\Production\Gestion du temps\Gestion_du_temps_RL1.xlsm"
    Sheets("Temps_Production").Select
      Dim tablo() As String, i As Integer
      tablo = Split("Temps_Production", ",")
      For i = LBound(tablo) To UBound(tablo)
             Sheets(tablo(i)).Range("B6:AO" & Sheets(tablo(i)).Range("ao65536").End(xlUp).Row).Copy Destination:=Windows("Gestion_du_temps_RA(en cour de modification).xlsm").Activate
             Sheets("Temps_Production").Range("A65536").End(xlUp).Offset(1, 0)
      Next i

la il n'y a qu'un seul classeur d'inscrit dans la macro . je ne sais pas trop comment faire.


Merci beaucoup d'avance !

[Philippe Tulliez]

Bonjour,
Pour ouvrir plusieurs classeurs voici un exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Dim repertoire As String, n As Integer
 repertoire = "N:\production\Production\Gestion du temps\Gestion_du_temps_RL"
 For n = 1 To 3
  'Workbooks.Open Filename:=repertoire & n & ".xlsm"
 Next

Cet exemple tient compte que les classeurs sont tous dans le même répertoire et que seul un n° les distingue

[yoaninho]

Merci corona d'avoir pris le temps de me repondre, pour que vous voyez exactement ce que je souhaite faire je vous est mis le code du fichier essai qui correspond exactemen, à ce que je souhaite avoir au final, la seul difference ici est que l'exctraction vient des feuille 1 et 2 du meme classeur., et moi je souhaite extraire des feuilles de classeurs differents .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
    ' essai
      Dim tablo() As String, i As Integer
      tablo = Split("Feuil1,Feuil2", ",")
      For i = LBound(tablo) To UBound(tablo)
             Sheets(tablo(i)).Range("d13:j" & Sheets(tablo(i)).Range("j65536").End(xlUp).Row).Copy Destination:=Sheets("Feuil3").Range("c65536").End(xlUp).Offset(1, 0)
      Next i
 
 
End Sub

ps : désolé je n'ai pas reussi à vous envoyer en fichier joint le fichier essai .( je debut aussi sur ce forum

merci