Erreur de transfert DATES entre 2 fichiers

roby

XLDnaute Occasionnel
Bonjour le Forum,

J'ai un petit problème concernant le transfert de lignes d'un fichier à l'autre, plus précisément sur les dates.

Ci-dessous le code:

'Mise à Jour
Application.ScreenUpdating = False
Workbooks.Open Filename:=(ActiveWorkbook.Path & "\" & Range("B7").Value) 'Fichier 1
'Rapatriement DATA
Sheets("Feuil1").Select
Range("C12:J26").Select
Selection.Copy
VPerm = Range("K9")
Windows("0 - Listing POSE PSE.xlsm").Activate 'Fichier 2
Sheets("Listing").Select
DL2 = Range("B65536").End(xlUp).Row + 1
Range("B" & DL2).Select
ActiveSheet.Paste
If VPerm = "O" Then Range("L" & DL2).Value = "O"
Range("A1").Select
'Fermeture du Fichier 1
Application.DisplayAlerts = False
Workbooks(Range("B7").Value).Close SaveChanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True


Précision suplémentaires:

Dans le Fichier 1 les dates sont dans les colonnes E12 à E26 sous un format "jjjj" et F12 à F26 sous formule par exemple F12 = E12 et sous format "jj/mm/aaaa"

Dans le Fichier 2 les dates sont dans les colonnes D12 à D26 sous un format "jjjj" et E12 à E26 sous formule par exemple E12 = D12 et sous format "jj/mm/aaaa"

Exemples:

dans Fichier 1 (Reel et bon)
E12 = jeudi F12 = 03/05/2012

dans le fichier 2
D12 = vendredi E12 = 02/05/2008

Est-ce que cela pourrai venir d'un paramêtre propre au fichier?

Merci d'avance.
 

Discussions similaires

Réponses
1
Affichages
313

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16