Bonjour à tous,
afin de récupérer des valeurs dans un autre classeur, j'ai réalisé un code.
Sub RecupHeureN()
Dim dt1 As Date
Dim dt2 As Date
Dim Lng As Integer
Dim Cln As Integer
Dim x As Integer
Dim Wb As Workbook
Chemin = Sheets("AnneeN").Range("C2") 'recherche le nom du dossier inscrit dans la feuille
Classeur = Sheets("AnneeN").Range("C3") 'recherche le nom du classeur dans la feuille
dt1 = Sheets("AnneeN").Range("C5").Value ' date de début de la recherche
dt2 = Sheets("AnneeN").Range("C6").Value ' date de fin de la recherche
'Ouvre le fichier cible
Set Wb = Workbooks.Open(Chemin & Classeur)
x = 9
' Calcule et affihe les heures effectuées dans la période
With Wb.Sheets("Pointage")
' Copie les données de la feuille cible
For Lng = 13 To 325 Step 6 'Indique la première ligne de recherche
For Cln = 6 To 12 ' Indique la colonne de recherche
If .Cells(Lng, Cln) >= dt1 And .Cells(Lng, Cln) <= dt2 Then
Sheets("AnneeN").Cells(x, 3) = .Cells(Lng, Cln).Value
Sheets("AnneeN").Cells(x, 4) = .Cells(Lng + 1, Cln).Value
x = x + 1
End If
Next
Next
End With
'Ferme le fichier cible
Wb.Close False
End Sub
Seulement arrivé à la ligne
[Surligner]Sheets("AnneeN").Cells(x, 3) = .Cells(Lng, Cln).Value[/Surligner]
un message d'erreur m'indique " L'indice n'appartient pas à la sélection", mais je n'arrive pas à trouver mon erreur.
Si un oeil nouveau pouvait m'aider.
merci encore