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]

Bonjour.
Peut être n'y a-t-il rien de copié ? Cela peut être vérifié en testant Application.CutCopyMode
Personnellement je préfère RgnCbl.Value = RngSrc.Value plutôt que RngSrc.Copy: RngCbl.PasteSpecial xlPasteValues

 

[Aloha]

Bonjour,
Si, la copie est bien faite.

Personnellement je préfère RgnCbl.Value = RngSrc.Value plutôt que RngSrc.Copy: RngCbl.PasteSpecial xlPasteValues

Je ne comprends pas tout à fait: je n'utilise pas RngSrc.Copy: RngCbl.PasteSpecial xlPasteValues!
Comment est-ce que j'intègre ce code dans le mien dont l'enregistreur macro est à l'origine?

 

[Dranreb]

RngCbl et RngSrc sont les expressions Range qui doivent représenter les plages cible et source.

 

[Aloha]

Re,

Voici une partie de mon code:

Do While fnames <> ""
    Set wbQuelle = Workbooks.Open(fnames)
  
    For n = 1 To wbQuelle.Sheets.Count
        wbQuelle.Sheets(n).Activate
  

'Copier et trier saisies

wbQuelle.Sheets(n).Activate
  
    
  Range("A5:A65").Select
  Selection.Copy
  wbZiel.Sheets("Saisies").Activate
      
' Vider les cellules vides considérées comme non vides
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange.Cells
      If Not zelle.HasFormula Then
           If Not IsEmpty(zelle) And zelle.Value = "" Then
           zelle.ClearContents
           End If
      End If
Next
  
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

    'Range("A" & lastRow + 1).Select
    Range("A" & lastRow + 1 & ":A" & lastRow + 62).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

C'est donc tout en bas du code que cela cloche.
J'avais encore essayé de sélectionner toutes les cellules de destination pour la copie, sans effet.

 

[Dranreb]

Essayez d'écrire tout ça sans utiliser Selection ni Select et Activate.
Déclarez plutôt des variables As Range initialisées par des Set

 

[Aloha]

En allemand il y a une expression dont je ne connais pas d'équivalent aussi poignant et bref en français: "gewusst wie", ce qui signifie qu'on est d'accord avec son interlocuteur, mais qu'on ne sait pas comment s'y prendre.

Je ne suis pas bien fort en VBA: la preuve: j'utilise l'enregistreur.

Ce que je ne comprends pas: pourquoi le code fonctionne-t-il avec F8 mais pas en exécution normale?

 

[Dranreb]

Je ne sais pas non plus. Peut être le ClearContents annule le Copy. Il est fait un peu trop tôt je trouve.

 

[Aloha]

Alors il devrait l'annuler aussi avec F8!

 

[Dranreb]

Je vous indiquerais comment je l'écrirais sur votre classeur joint.

 

[Aloha]

Lorsque je mets le code qui vide les cellules apparemment vides en remarque alors il tourne!
Vous avez donc raison!

Seulement, si je le mets plus tard, lastrow ne renverra pas la bonne valeur!

 

[Aloha]

quel classeur? je n'en ai pas joint à ce thème!

 

[Dranreb]

C'est justement le problème !

 

[Aloha]

ok
je vais en fabriquer un le plus près possible de la réalité.
A+

 

[Aloha]

Voici 2 fichiers, le fichier source (Septembre...) et le fichier destination (Base).
Le fichier source doit se trouver dans un dossier nommé "ToBeCopied"
Le code se trouve dans le module 2.
Vous y trouverez des éléments qui n'ont rien à voir avec cette tâche-ci; ignorez-les.

Il n'est pas encore complet:
il faut encore, après le triage, copier le nom en U1 dans le fichier source et le nom du service en AW1 et les coller dans le fichier destination en C et en D.