Discussion :

[mvgalli]

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

[riaolle]

Bonjour,
Plutôt que d'utiliser la propriété Value, essaie d'utiliser la propriété Text :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(1).Sheets("Rent").Range("A1:AF250").Value = ws.Range("A1:AF250").Text

EDIT : je viens d'essayer. Avec une cellule ça marche, mais avec une plage de cellules ça ne marche pas ... Il faudrait, donc, faire une boucle ... mais c'est long.

[mvgalli]

Bonjour,
Plutôt que d'utiliser la propriété Value, essaie d'utiliser la propriété Text :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(1).Sheets("Rent").Range("A1:AF250").Value = ws.Range("A1:AF250").Text

Bonjour, merci mais ça ne marche pas. Je continue a chercher aussi, mais aujourd’hui j'ai une flemme insupportable!

[eriiic]

Bonjour,

Si tu mets ta colonne SEP01 en format texte avant d'y coller ton .value ?
Pour les dates essaie en les copiant dans un tableau As Long avant, tu l'écris et tu fixes le format voulu ensuite.
eric

[mvgalli]

Bonjour,

Je vous réécris car la solution ne fonctionne pas. J'ai fais les changements conseillées mais ça continue a me changer le format; Voici le code:

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
'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").NumberFormat = "@"
Sheets("Rent").Range("A1:AG300").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