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
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
