Discussion :

[achiron]

Bonjour,

J'ai commencé à taper un code pour copier plusieurs valeurs d'un fichier excel pour les copier vers un autre.
J'ai réussi à obtenir quelque chose qui fonctionne, cependant, j'aimerais savoir s'il est possible de réaliser un code moins lourd ?
Autre soucis, je n'arrive pas à coller les valeurs sans mise en forme. J'ai utilisé l'enregistreur de macros pour voir le code exact mais ça ne fonctionne pas.

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
 
Sub Transfert_données()
 
Dim MaPlage As Range
 
 
 
With ThisWorkbook.Worksheets("donnéesbase")
Set MaPlage = .Range("B2")
End With
 
MaPlage.copy
ActiveSheet.Paste Destination:=Workbooks("Climacro").Worksheets("Données").Range("C24:C24")
Range("C24:C24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
With ThisWorkbook.Worksheets("CLMD-5-Liste Locaux")
Set MaPlage = .Range("D2:D1000")
End With
 
MaPlage.copy
ActiveSheet.Paste Destination:=Workbooks("Climacro").Worksheets("Liste Locaux").Range("E10:E1000")
Range("E10:E1000").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub

Merci d'avance !

[marot_r]

Bonjour.

Code :

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

1
2
3
ActiveSheet.Paste Destination:=Workbooks("Climacro").Worksheets("Données").Range("C24:C24")
Range("C24:C24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Ces 2 instruction font grosso modo la même chose, elles copient les données.
La 1ère copie tout, la seconde seulement les valeurs donc si tu ne veux que les valeurs, il ne faut pas faire le paste.

Et je pense que ton code pourrait être :

Code :

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

1
2
3
4
call Workbooks("Climacro").activate
call Workbooks("Climacro").Worksheets("Données").activate
Range("C24:C24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[/CODE]

A+

[achiron]

Bonjour,

J'ai réussi à résoudre mon problème et même à l'améliorer !

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
 
Sub test3()
 
 
Dim tabl(4)
Dim monfichier As String, chemin As String
 
 
 
With Sheets("donnéesbase")
    tabl(0) = .Range("B2").Value
    tabl(1) = .Range("C2").Value
    tabl(2) = .Range("D2").Value
End With
 
With Sheets("CLMD-5-Liste Locaux")
    tabl(3) = .Range("RéférenceLocal").Value
    tabl(4) = .Range("Nom_imposé").Value
End With
 
 
 
chemin = InputBox("Chemin fichier climadim")
Workbooks.Open (chemin)
 
 
 
With ActiveWorkbook.Worksheets("Données")
    .Range("C24") = tabl(0)
    .Range("C26") = tabl(1)
    .Range("D31") = tabl(2)
End With
 
With ActiveWorkbook.Worksheets("Liste local")
    .Range("Référence_local") = tabl(3)
    .Range("Nom_imposé") = tabl(4)
End With
 
 
 
End Sub

Cependant, je viens d'en rencontrer un nouveau : je ne peux ouvrir que les fichiers xlsx et j'ai besoin, au final, d'ouvrir des fichiers xlsm.
Le code beug, logiquement, à ce niveau :

Code :

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

1
2
3
 
chemin = InputBox("Chemin fichier climadim")
Workbooks.Open (chemin)

Merci d'avance !

[marot_r]

Bonjour.

La commande est à priori correcte.

As-tu un message d'erreur ?

A+