Discussion :

[a.petitjean1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

Bonjour
Déjà (bien que cela ne génère aucune erreur) :
Explique-nous ce que tu penses que fait de "particulier" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resSheet = Format("Produits Interdits")

Ensuite :
Qu'est dans ton esprit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Windows("Erreurs.xls")

?
Si c'est un classeur, c'est un objet Workbook et non un objet Window.

[a.petitjean1]

Mon souhait avec ces codes
resSheet = Format("Produits Interdits") => Que les résultats partent dans l'onglet Produits interdit.
Et pour celui-ci Windows("Erreurs.xls") d'ouvrir le fichier Erreurs dans lequel l'oglet produits interdit existe.

En effet c'est un classeur donc Workbook. Merci déjà pour cette précision.

[unparia]

resSheet = Format("Produits Interdits") => Que les résultats partent dans l'onglet Produits interdit.

Heu ... --->> En aucune manière. Format est une instruction de formatage d'une chaîne de caractères et rien d'autre.