Erreur 424 objet requis

  • Initiateur de la discussion Initiateur de la discussion toine2010
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

toine2010

XLDnaute Nouveau
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!
 
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")...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
1 K
Réponses
5
Affichages
532
Réponses
9
Affichages
581
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
650
Retour