Erreur 424 objet requis

[toine2010]

Bonsoir,

J'ai cette macro :
Sub Consolider()

' Nomme le fichier existant
nomdefichiersource = ActiveWorkbook.Name

' question y a-t-il un autre fichier à importer ?
rep = MsgBox("Y a-t-il un fichier à importer ?", vbYesNo, "On continue ?")
Do While rep = 6
Application.Dialogs(xlDialogOpen).Show
nomdefichier = ActiveWorkbook.Name

'pour chaque cellule de la colonne A du classeur actuel
For n = 9 To nomdefichiersource.Sheets("REGQSA").Range("A9").End(xlDown).Row
'pour chaque ligne de la colonne A du classeur a controler
For m = 9 To nomdefichier.Sheets("REGQSA").Range("A9").End(xlDown).Row
' si le contenu de la colonne A du classeur actuel est inclus dans la colonne F du second classeur alors
If nomdefichier.Sheets("REGQSA").Range("A" & m) = nomdefichiersource.Sheets("REGQSA").Range("A" & n) Then
'Copier/Coller les cellules commentées
nomdefichier.Sheets("REGQSA").Range("V" & m & ":" & "AA" & m).Copy
nomdefichiersource.Sheets("REGQSA").Range("V" & n & ":" & "AA" & n).PasteSpecial xlPasteAll
End If
Next m
Next n

qui bloque sur la ligne For n = 9 To nomdefichiersource.Sheets("REGQSA").Range("A9").End(xlDown).Row en me mettant le message suivant erreur 424 objet requis

Quelqu'un peut il m'aider?
Merci!

 

[Softmama]

Re : Erreur 424 objet requis

Bonsoir toine 2010,

Il ya un espace en trop à cet endroit :

.En d(xlDown)

 

[toine2010]

Re : Erreur 424 objet requis

Merci mais ce n'est pas le pb sur ma macro il n'y a pas cet espace...
Une autre idée?
A+

 

[Softmama]

Re : Erreur 424 objet requis

Tu as dans ta macro :
nomdefichiersource = ActiveWorkbook.Name

puis tu utilises cette variable ainsi :
nomdefichiersource.Sheets("REGQSA")

Le premier est une variable string, le second un Workbook. Change
nomdefichiersource.Sheets("REGQSA")
par
Workbooks(nomdefichiersource).Sheets(REGQSA")...

 

[toine2010]

Re : Erreur 424 objet requis

Nickel merci!
A+