Problème Pastespecial - erreur 1004 + changement format date

Bonjour,

après avoir fait quelques recherche sur ce problème qui apparait bcp il semblerait, je n'ai pas réussit a trouver de solution valable pur mon fichier.

A la base je copie la feuille data dans mon nouveau fichier. Sauf que en faisait ça le format de certaines dates change et je ne sais pas pourquoi.

' ouverture du fichier extrait d'AMADEUS, copie de la feuille et fermeture du fichier

    Nom = ThisWorkbook.Path & "\data.xls"
    Workbooks.Open Filename:=Nom
    Cells.Select
    Selection.Copy
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close

' selection de l onglet donnes origine et coller des cellules

    Sheets("Disney ticket").Select
    Range("A1").Select

    ActiveSheet.Paste

que j'ai remplacé par

    With Sheets("Disney ticket").Range("A1")
            Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, _
            Transpose:=False
    End With

je voulais donc faire un pastespecial et la je me retrouve avec cette erreur dont je n'arrive pas a me débarrasser.

Si quelqu'un peut m'expliquer d'où vient le problème.

Merci

Bonjour,

Essaie avec

    ' selection de l'onglet données origine et coller des cellules
    With Sheets("Disney ticket").Range("A1")
        .PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False
    End With

A+

Salut,

alors oui ça résout le problème de l'erreur 1004.

Par contre la date continue de changer.

on passe du 01/06/2015 à 06/01/2015 puis à un moment retourne sur les bonnes date..

le pastespecial n'est pas sensé garder le même format ?

j'ai testé avec l'enregistrement de macro et avec il n'y a aucun problème erreur ou changement de format de la date.

A tester

A+

ça marche merci beaucoup.

tu peux me dire ce qui posait problème par rapport a ce que j'avais fait?

et merci aussi pour l'amélioration du code. Je sais que le .select est pas très apprécié, ca me servira pour les prochaine comme modèle.

Bonsoir,

La seule différence notable vient de la fermeture du fichier data.xls qui est réalisée après copie.

Pourquoi ça fonctionne ainsi ? je ne sais pas et j'avoue ne pas avoir cherché plus loin.

Si un intervenant a la réponse, je suis également preneur.

A+