Microsoft 365 VBA: PasteSpecial refuse de fonctionner

[Aloha]

Bonjour,

Quelle peut être la raison que PasteSpecial ne fonctionne pas lorsque je démarre la macro normalement, alors que cela fonctionne lorsque je fais tourner la macro par F8?

Range("A" & lastRow + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Message d'erreur:
Erreur d'exécution 1004:
La méthode PasteSpecial de la classe Range a échoué.

Bonne journée
Aloha

 

[Dranreb]

Ce sont des xlsx, il n'ont pas de module

 

[Aloha]

Ok je vois
un instant
Après la fin de la boucle il faut insérer le nom & nom service, ce n'est pas encore fait, mais indispensable avant de copier la prochaine fiche.

 

[Aloha]

J'ai placé la routine qui doit vider les cellules vides à l'oeil mais pas vides pour Excel à un autre endroit mais elle ne fonctionne pas: elle ne vide pas les lignes apparemment vides après le triage.
Comment faire?

 

[Dranreb]

Enlevez moi ces Sheets(n).Activate et ces Select.
Déclarez une variable WshSrc As Worksheet
et faites For Each WshSrc In wbQuelle.Worksheets
et juste avant le collage spécial faites le WshSrc.Range("F5:AC66").Copy
Pour la feuille cible, si ç'en est une du classeur qui porte la macro, vous pouvez utiliser comme expression Worksheet le nom de l'objet worksheet qui représente la feuille. Dans votre classeur joint l'objet Worksheet qui représente la feuille "Saisie" s'appelle Feuil13. Vous pouvez donc faire Feuil13.Range("E" & lastRow + 1).PasteSpecial Paste:=xlPasteValues etc.
Mais moi je préfèrerais

Feuil13.Range("E" & lastRow + 1).Resize(60, 25).Value = WshSrc.Range("F5:AC66").Value

Je n'utilise jamais la méthode Range de l'objet Application, je ne l'aime pas. Toujours seulement celle de l'objet Worksheet. Comme ça il n'est pas nécessaire que la feuille soit active.

 

[Aloha]

For Each WshSrc In wbQuelle.Worksheets

Là réside mon prochain problème:
Toutes les feuilles d'un classeur doivent être parcourues et copiées sauf 3 qui s'appellent dans tous les classeurs-source Codes, Tableau, et la feuille cachée Résumé.
Comment faire pour les exclure?

 

[Dranreb]

Faite un Select Case WShSrc.Name: Case "Codes", "Tableau", "Résumé": Case Else
Terminez le tout par End Select avant le Next WshSrc