Discussion :

[KarlBisk]

Bonjour,

Je travaille sur une macro permettant de regrouper le contenu de plusieurs classeurs sur une feuille unique.

Tout fonctionne, sauf certains numéro de contrats qui apparaissent au format date. (exemple n° contrat 8-04 ressort sur la feuille de destination en date 04/08/2017)

Comment éviter cela ?

Merci par avance pour vos lumières.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Sub Conso_Activité_Sites()
'
Application.ScreenUpdating = False
 
Sheets("Feuil1").Cells.ClearContents
 
 
' Conso_Activité_sites Macro
'
Dim appXL As Object
Dim fso As Scripting.FileSystemObject
Dim dossier As Scripting.Folder
Dim fichier As Scripting.File
Dim wbsource As Workbook
Dim ldest As Long
Dim lsource As Long, ncol As Long
Dim src As Worksheet, dst As Worksheet, tmp As Worksheet
Dim test As String
 
 
Set fso = New Scripting.FileSystemObject
Set dossier = fso.GetFolder("C:\XXXXX")
Set dst = ThisWorkbook.Sheets("Feuil1")
Set tmp = ThisWorkbook.Sheets("temp")
ldest = 1
For Each fichier In dossier.Files
    If Right(fichier.Name, 5) = ".xlsx" Or Right(fichier.Name, 4) = ".xls" Then
 
Workbooks.Open fichier.Path 'ouvrons le fichier'
        Set wbsource = Workbooks(fichier.Name)
        Set src = wbsource.Sheets("DB")
 
 
tmp.Range("A2:AQ111") = src.Range("A3:AQ112").Value
 
 
      For lsource = 2 To 111
            For ncol = 1 To 43
                dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)
            Next
            ldest = ldest + 1
        Next
        wbsource.Close savechanges:=False
    End If
Next
 
Application.ScreenUpdating = True
 
End Sub

[joe.levrai]

Bonjour,

plutôt que d'utiliser un .value = .value (ligne 35 et 40), utilises la méthode Copy de l'objet Range, qui va embarquer le format de la cellule source

Code :

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

MaPlageSource.Copy MaPlageDestination

[KarlBisk]

Hello, Merci pour ta réponse.

Cela fonctionne, cependant la macro est du coup plus longue à s’exécuter.

Si tu as un tips pour alléger tout ça, ça serait top

[Philippe Tulliez]

Bonjour,

Si tu as un tips pour alléger tout ça, ça serait top

La réponse de Joe Levrai utilise la méthode Copy qui me semble la plus simple et la plus courte à utiliser. C'est celle que j'allais proposer

[KarlBisk]

Merci à tous

[parmi]

Bonjour,

Tu pourrais mettre le format de la cellule de destination en texte avant la copie (pour certaines données)

Code :

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

1
2
dst.Cells(ldest, ncol).NumberFormat = "@"
dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)

ou encore mettre le format de la cellule d'origine (à tester par contre...)

Code :

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

1
2
dst.Cells(ldest, ncol).NumberFormat = tmp.Cells(lsource, ncol).NumberFormat
dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)

[KarlBisk]

Bonjour, merci pour ta réponse.

J'ai décomposé la plage de cellule à copier afin d'isoler que la colonne B à copier en texte.

Le résultat affiche VRAI ou FAUX ou GENERAL lorsque le NumberFormat est en général.

J'imagine que cela est lié au format des cellules sources, mais pourquoi cela n'affiche pas le contenu plutôt que la validation du format?

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
 
Workbooks.Open fichier.Path 'ouvrons le fichier'
        Set wbsource = Workbooks(fichier.Name)
        Set src = wbsource.Sheets("DB")
 
 
 
tmp.Range("A2:AB111") = src.Range("A3:AB112").Value
tmp.Range("C2:C111") = src.Range("C3:C112").NumberFormat = "@"
tmp.Range("D2:AQ111") = src.Range("D3:AQ112").Value
 
      For lsource = 2 To 111
            For ncol = 1 To 43
                dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)
            Next
            ldest = ldest + 1
        Next
        wbsource.Close savechanges:=False
    End If
Next
 
Application.ScreenUpdating = True
 
End Sub

[Menhir]

Le résultat affiche VRAI ou FAUX ou GENERAL lorsque le NumberFormat est en général.
J'imagine que cela est lié au format des cellules sources, mais pourquoi cela n'affiche pas le contenu plutôt que la validation du format?

Code :

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

tmp.Range("C2:C111") = src.Range("C3:C112").NumberFormat = "@"

Ca te semble naturel d'avoir deux "=" sur le même ligne de code ???

En plus, quand on traite à part le format et la valeur d'une cellule, on commence par mettre en place le format AVANT de mettre la valeur, pour éviter que celle-ci soit "déformer" par un éventuel format inadapté.

Mais, comme le dit Phillippe ( ), l'usage de Copy permet de s'affranchir de tous ces problèmes.