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.