Pb sur boucle après premiere passe

[PSCLDEV]

Bonjour,

J’ai un petit soucis avec mon code ci-dessous.
En fait il fonctionne lors de la première boucle, la variable UPC est bien existante et la récupération sous mon onglet TRD est bonne.
Lors du passage de la deuxième boucle pour la deuxième valeur de ma plage la variable est également bien présente mais j’ai une erreur sur ma recherche : Erreur 91 Variable objet ou variable de bloc with non définie.
Voici mon code
Merci pour votre aide.

Sub MAJTRD()
Windows("ANTELES.xlsm").Activate
'Identification répertoire et fichier source
Dim FL1 As Worksheet, Cell, cel As Range, Plage As Range
'Déclaration de la variable UPC reprise dans la boucle
Dim upc As String
'Déclaration variable pour l'ouverture du fichier du mois
Dim strfichier As String
Dim strrepertoire As String
strfichier = Sheets("TRD").Range("B2").Value
strrepertoire = Sheets("TRD").Range("B1").Value
'Ouverture du fichier
Workbooks.Open Filename:=strrepertoire & "\" & strfichier
'Activation fenetre ANTELES
Windows("ANTELES.xlsm").Activate
Range("A5").Select
Set FL1 = Worksheets("TRD")
With FL1
upc = ActiveCell.Value
Set Plage = .Range("a5:a50") 'Prévoir une plage auto
For Each Cell In Plage
'Début de boucle
If ActiveCell.Value <> "" Then
upc = ActiveCell.Value
Windows("FCR-TRD_Arvato_S1.xls").Activate
'Range("A1:AE1").Select
Cells.Find(What:=upc, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2).Select
Selection.Copy
Windows("ANTELES.xlsm").Activate
adrupc = ActiveCell.Address
Range(adrupc).Select
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
Range(adrupc).Select
ActiveCell.Offset(1, 0).Select

Else
End If
'Fin de boucle
Next
End With
'Set FL1 = Nothing
' Set Plage = Nothing
End Sub

 

[bruno66]

Re : Pb sur boucle après premiere passe

bonjour, peux tu mettre ton code avec cela en mode avancé # ou un morceau de ton fichier épuré de toute info confidentiel en pièce jointe avec le bouton du trombone en mode avancé aussi (attention a la taille de ton fichier )merci

 

[PSCLDEV]

Re : Pb sur boucle après premiere passe

Merci pour ta réponse,

Ci joint deux fichiers Anteles contenant la MAcro épuré.
Le fichier de recherche S1.

Merci pour ton retour.
cdt PAscal

 

[Modeste]

Re : Pb sur boucle après premiere passe

Bonjour le fil,

Une discussion sur le même sujet est en cours dans le forum Autres applications

... Si un de nos aimables modos passent par ici ...

 

[PSCLDEV]

Re : Pb sur boucle après premiere passe

Merci pour votre aide
Le sujet est opérationnel.
cdt

Pascal