Bonjour,

Je vous écris car j'ai une macro (fichier .xlsb, classeur cible), dans laquelle je copie des données des differents fichiers .xls (classeur souce) dans des differents feuilles de mon classeur cible. Le soucis c'est que quand je fais le passage au fichier .xlsb celui prends en compte les données et les transforme, par exemple; dans la colonne A il existe un contrat s'appelant "SEP01" qui passe a être "01-sept", pouvez vous m'aider pour ne plus avoir ce souci?
Le problème est plus grand lors que dans la colonne proche a celle si j'ai une date car il l’interprété comme format saxon et change le format date du "yy/mm/aa" au "mm/yy/aa" que pour les lignes qui ont l'indication du nom "SEP01" ou "MARS03".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
'Etape 1, TraitementFichier "Etat_Loc_Finmois".
'Déclaration variables génériques traitement fichier
Dim t1 As Single
Dim CL_overview As Workbook
'Déclaration time pour compter temps de traitement macro
t1 = Timer
'Ajouter la feuille "RdContrat" pour sauvegarder inform a traiter
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "RduContrat"
Worksheets("Overview").Activate
 
'Déclarations nettoyage
Application.DisplayAlerts = False   'option qui permet dire OUI aux alertes sur la perte de données excel
 
Sheets("Rent").Range("A1:AG300").ClearContents
Sheets("Rent").Range("A1:AG300").ClearFormats
Sheets("Invoicing").Range("A1:AG200").ClearContents
Sheets("Invoicing").Range("A1:AG300").ClearFormats
Sheets("Cashinflow statement").Range("A1:AG200").ClearContents
Sheets("Cashinflow statement").Range("A1:AG200").ClearFormats
Sheets("Debtors").Range("A1:AF250").ClearContents
Sheets("Debtors").Range("A1:AF250").ClearFormats
Sheets("Aged Balance").Range("A1:R200").ClearContents
Sheets("Aged Balance").Range("A1:R200").ClearFormats
Sheets("Deposits").Range("A1:M200").ClearContents
Sheets("Deposits").Range("A1:M200").ClearFormats
 
'Déclaration variables génériques traitement fichiers
Dim wb As Workbook, wb1 As Workbook
Dim ws As Worksheet, ws1 As Worksheet
 
Set wb = Workbooks.Open(Filename:=Range("K6"))
Set ws = wb.Worksheets("Feuil1")
'Ouverture fichier "Etat_Loc_Finmois"/ copier/coller
Workbooks(1).Sheets("Rent").Range("A1:AF250").Value = ws.Range("A1:AF250").Value
'ici fermeture du classeur sans enregistrer
wb.Close SaveChanges:=False 'fermer le fichier texte sans sauvagarder changements