Discussion :

[Stutak]

Bonjour,

Je dois créer un fichier Excel à partir de données provenant d'autres fichiers.
J'ai créé cette macro qui devait copier les données en évitant d'utiliser copy/paste.

Au résultat, il n'y a pas d'arrêt de la macro, elle ne marche simplement pas.
Je ne comprends pas pourquoi.
Si quelqu'un a la solution, je suis preneur.

La macro est dans le fichier destination

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
 
Sub Recopie()
 
  Dim WSSource As Worksheet, WSDest As Worksheet
  Dim fichiersource As String, ongletsource As String, fichierdestination As String, ongletdestination As String
  Dim chemin As String
  Dim maPlageSource As Range, maPlageDest As Range
 
 
   fichiersource = "MonFichierSource.xls"
 
      chemin = ThisWorkbook.Path
      Workbooks.Open(Filename:=chemin & "\Temp\" & fichiersource).RunAutoMacros xlAutoOpen
 
   fichiersource = "MonFichierSource.xls"
   ongletsource = "Travail"
 
   fichierdestination = "Essai BdD.xls"
   ongletdestination = "Essai"
 
Set WSSource = Workbooks(fichiersource).Sheets(ongletsource)
Set maPlageSource = Range(Cells(1, 1), Cells(4, 5))
 
Set WSDest = Workbooks(fichierdestination).Sheets(ongletdestination)
Set maPlageDest = Range(Cells(1, 1), Cells(4, 5))
 
maPlageDest.Value = maPlageSource.Value
 
Workbooks(fichiersource).Close True
 
End Sub

Merci de votre aide

[Menhir]

Au résultat, il n'y a pas d'arrêt de la macro, elle ne marche simplement pas.
Je ne comprends pas pourquoi.

Parce que tu n'indiques pas les parents de tes Ranges.

Avec ceci, ça devrait mieux fonctionner.

Code :

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

1
2
3
4
5
Set WSSource = Workbooks(fichiersource).Sheets(ongletsource)
Set maPlageSource = WSSource.Range("A1:E4")
 
Set WSDest = Workbooks(fichierdestination).Sheets(ongletdestination)
Set maPlageDest = WSDest.Range("A1:E4")

[Stutak]

Ah ben évidement !!
Merci

Ca fonctionne mieux.

Par contre, ça bugue si s'utilise

Code :

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

Set maPlageDest = WSDest.Range(Cells(1, 1), Cells(4, 5))

au lieu de

Code :

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

Set maPlageDest = WSDest.Range("A1:E4")

Il y a un moyen d'utiliser Cells ?
Merci

[BENNASR]

bonjour
à tester

Code :

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

Set maPlageDest = WSDest.Range(WSDest.Cells(1, 1), WSDest.Cells(4, 5))

[Stutak]

Super !!

Ça fonctionne pile poil bien.

Il ne me reste plus qu'à créer mes boucles pour les diverses zones et fichiers.

Merci Menhir et BENNSR

[Menhir]

Pourquoi se compliquer la vie à ajouter des Cells là où ce n'est pas utile ?