Discussion :

[aziz1015]

Bonjour,

J'effectue la copie d'un fichier excel vers un autre, mais j'ai un problème le format des cellules n'est pas copié avec par exemple pour les dates, il apparaît des nombres dans certaines des cellules.

Voici ce que j'utilise :

Code :

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

1
2
3
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
EspaceTravail.Activate
DestCell.PasteSpecial Paste:=xlValues

j'ai aussi essayé ça :

Code :

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

1
2
3
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
EspaceTravail.Activate
DestCell.PasteSpecial Paste:=xlFormats

mais il ne prend pas que les formats et pas les formules et cette fonction ne fonctionne pas sur excel 2007 alors que Excel 2007 est la version utilisée au boulot.

Merci d'avance pour votre aide

[Philippe Tulliez]

Bonjour,
Tu ne dis pas ce que tu veux comme résultat final.
Ce que tu décris est normal. En utilisant le collage spécial - Valeur, tu ne copies que les valeurs et pas le format. Si tu utilisais l'enregistreur de macros tu l'aurais constaté par toi même.
Pour copier et coller Format+Formules, c'est la méthode Copy qu'il faut utiliser et si tu souhaites que les formules soient remplacées par leurs résultats, tu peux utiliser la propriété Value (Cellules.Value = Cellules.Value)
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub CopyRange()
 Dim rngSource As Range, rngTarget As Range
 With ThisWorkbook
  Set rngSource = .Worksheets("db").Range("A1").CurrentRegion
  Set rngTarget = .Worksheets("Export").Range("A1")
 End With
 rngSource.Copy rngTarget
 With rngTarget.CurrentRegion
 .Value = .Value  ' Ne conserve que les valeurs
 End With
End Sub

[aziz1015]

Bonjour,

Merci pour votre réponse, je fais l'import de la première feuille d'un fichier excel vers le classeur dans lequel j'active la macro parce que je ne connais pas forcément la feuille dans laquelle se trouve les données. donc votre code ne s'applique pas vraiment dans ce cas ? J'aimerais copier à la fois les valeurs et les formats, voici mon code :

'IMPORTATION D'UNE SEULE FEUILLE DE DONNEES

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
 
Sub ImportTextFile()
 
Dim EspaceTravail As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean
Dim Chemin As String
 
' désactiver le rafraichissement de l'écran avant la macro
Application.ScreenUpdating = False
 
'chemin en relatif du dossier ou se trouve tes données
Chemin = "C:\PRIVE"
'ou en hard
'Chemin = "C:\...\dossier"
 
' Active l'espace de travail et la cellule où j'aimerais copier les données
Set EspaceTravail = ActiveWorkbook
Set DestCell = Range("A1") 'active la cellule où j'aimerais copier les données
 
'Ouvre la boîte de dialogue
RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\.*")
 
If RetVal = False Then Exit Sub
 
' Set an object variable for the workbook containing the text file.
Set SourceBook = ActiveWorkbook
 
' Copie entièrement la feuille
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
 
 
'Active le fichier de destination et faire un collage special
EspaceTravail.Activate
DestCell.PasteSpecial Paste:=xlPasteFormats
 
' Close the book containing the text file.
SourceBook.Close False
 
Application.ScreenUpdating = True
 
End Sub

Merci pour votre aide

[Philippe Tulliez]

Bonjour,

Merci pour votre réponse, je fais l'import de la première feuille d'un fichier excel vers le classeur dans lequel j'active la macro parce que je ne connais pas forcément la feuille dans laquelle se trouve les données. donc votre code ne s'applique pas vraiment dans ce cas ? J'aimerais copier à la fois les valeurs et les formats, voici mon code :

Il suffit d'adapter le code que j'ai publié, il me semble que ce n'est pas très compliqué.
Il y a deux variables objets de type Range (rngSource et RngTarget). Pour mon exemple, elles ont le même classeur parent mais deux feuilles parentes différentes. Il suffit donc de modifier les classeurs. Soit Workbooks(NomClasseur) au lieu de ThisWorkbook

[aziz1015]

Bonjour,

Merci pour votre aide, j'ai résolu le problème avec ça :

Code :

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

1
2
 Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
      xlNone, SkipBlanks:=False, Transpose:=False

Cordialement