Envoi résultat Macro sur un autre fichier
Bonjour à tous,
J'ai une macro qui recherche des mots dans un texte afin de vérifier les informations. Je souhaite que les résultats de cette MAcro s'affiche sur un autre fichier (Erreurs) dans un onglet spécifique (Produits Interdit).
Je n'arrive pas à modifier la Macro pour réussir cela. Voici ce que j'ai commencé à faire et qui ne fonctionne pas :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Dim LastRow As Long
Dim pdtArray() As Variant
Dim resSheet As String
If MsgBox("Etes vous sur l'onglet contenant le catalogue vendeur ?", vbYesNo) = vbNo Then
MsgBox "positionnez vous sur l'onglet catalogue et relancez"
Exit Sub
End If
'1/ Selectionner la plage contenant les données du vendeur et la copier dans une variable tableau
' Plage : A4:AV de la feuille active
' Envoyer les résulats de recherche dans le fichier Erreurs ''Produits interdit''
ActiveSheet.UsedRange 'Refresh UsedRange
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Range("A4:AV" & LastRow).Select
pdtArray = Range("A4:AV" & LastRow)
resSheet = Format("Produits Interdits")
With Windows("Erreurs.xls").Activate
Sheets("Produits Interdits").Select
End With |
Je pense que le problème vient des lignes en rouge ? mais je ne trouve pas la solution :-(
Merci d'avance de votre aide.
Aurélien
