Bonjour,
Je suis nouveau sur le forum, je découvre le code VBA petit à petit en essayant des choses avec les enregistreurs de Macro.
J'ai créé une macro, qui pour moi est bonne, mais elle ne fonctionne pas.
Le but est de copier deux cases dans une feuille et de les coller à la première ligne vide d'un tableau dans une autre feuille.
Le collage est un collage spécial (valeurs et transposé)
Voici mon code
Tout fonctionne bien, jusqu'au moment du collage ou j'ai une erreur 1004 : La méthode PasteSpecial de la classe Range a échoué.
J'ai cherché des solutions pendant des jours, alors je vous demande de l'aide, je ne comprends pas ce message d'erreur.
J'ai essayé en collage normal ça ne fonctionne pas non plus.
Avez vous des idées ?
Cordialement,
Merci
Je suis nouveau sur le forum, je découvre le code VBA petit à petit en essayant des choses avec les enregistreurs de Macro.
J'ai créé une macro, qui pour moi est bonne, mais elle ne fonctionne pas.
Le but est de copier deux cases dans une feuille et de les coller à la première ligne vide d'un tableau dans une autre feuille.
Le collage est un collage spécial (valeurs et transposé)
Voici mon code
Code:
Sub Macro004_Export_date_heure_prelevement()
'
' Macro004_Export_date_heure_prelevement Macro
Range("C20:C21").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Open Filename:=ThisWorkbook.Path & "\DONNEES.xls"
Windows("DONNEES.xls").Activate
Range("A4").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End SubTout fonctionne bien, jusqu'au moment du collage ou j'ai une erreur 1004 : La méthode PasteSpecial de la classe Range a échoué.
J'ai cherché des solutions pendant des jours, alors je vous demande de l'aide, je ne comprends pas ce message d'erreur.
J'ai essayé en collage normal ça ne fonctionne pas non plus.
Avez vous des idées ?
Cordialement,
Merci