Discussion :

[chipster008]

Bonjour,

J'ai des fichiers de pointage horaire par salarié : AGI, FBA, CTE...Etc. Ces fichiers sont composés de 12 onglets pour les 12 mois de travail.

J'aimerais copier la plage de cellule C14:AG29 qui correspond aux heures facturablesn de l'onglet Janv. de tous les fichiers de pointage des salariés sur un nouveau classeur.

J'ai commencé grâce à un code trouvé sur le forum mais ça ne donne rien de concluant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub export()
 
 
Workbooks.Open Filename:= _
"m:/Pointage en cours/Pointages 2011/AGI.xls"
 
ThisWorkbook.Sheets("Recap H fact").Range("A1:AE1") = Workbooks("AGI.xls").Worksheets("Janv.").Range("C14:AG29").Value
 
 
End Sub

Je veux bien un peu d'aide s'il vous plait.

[dave92]

bonjour,

essaye comme ca :

Code :

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

1
2
 
ThisWorkbook.Sheets("Recap H fact").Range("A1:AE1").Copy Workbooks("AGI.xls").Worksheets("Janv.").Range("C14:AG29").Value

[chipster008]

Salut,

Merci de ton aide mais malheureusement ça me met le message erreur d'execution 9 : l'indice n'appartient pas à la selection.

[SfJ5Rpw8]

sur ton code ce message peu être du à erreur sur un nom de feuille ("Recap H fact" ou "Janv." par exemple...) ou sur le nom du classeur (si par exemple le classeur AGI.xls n'est pas ouvert..)


voici un code qui enchaine l'ouverture du classeur et la copie à la ligne donnée en paramètre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub LanceCopie()
    CopieClasseur "m:\Pointage en cours\Pointages 2011\AGI.xls", 1 ' PS : le / c'est pour les linuxiens !
 
End Sub
'
' Récupère onglet Janvier
'
Sub CopieClasseur(stName As String, iLigne As Integer)
Dim wk As Workbook
    Set wk = Workbooks.Open(stName, , True) 'ouverture du classeur en lecture seule
    wk.Sheets("janv.").Range("C14:AG29").Copy ThisWorkbook.Sheets("Recap H").Cells(iLigne, 1)
    wk.Close
End Sub

[chipster008]

Super ça marche merci beaucoup

Par contre je pensais pouvoir refaire cette macro pour les autres fichiers en les copiant à la suite les uns des autres.

J'ai essayé de mettre .End(xlDown).Row+1 derrière Cells(iLigne, 1) mais il me dit que la méthode copie de la classe Range a échoué.

Je pense que c'est à cause du iLigne, vu que d'habitude j'utilise ça pour des copies de cellule.