Erruer de code sur ma ligne

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

Bonjour toutes et tous,

Et en déclarant 'Chemin' et 'Classeur'

Dim dt1, dt2  As Date
Dim Lng, Cln , x As Integer
Dim Wb As Workbook
Dim , Chemin, Classeur

et celui là me semble bizarre à la fin x = x + 1

en mettant une apostrophe devant cela donne quoi

' x = x + 1

crdlt,

André

Bonjour à tous,

Il manquait d'identifier la cible.

Un essai ...

ThisWorkbook.Sheets("AnneeN").Cells(x, 3) = .Cells(Lng, Cln).Value
ThisWorkbook.Sheets("AnneeN").Cells(x, 4) = .Cells(Lng + 1, Cln).Value

ric

re,

merci Ric bon dimanche

Merci encore Ric

titi32600

Rechercher des sujets similaires à "erruer code ligne"