Bonjour,

J'ai un problème assez de copie/coller au sein de 2 classeurs differents M et C sous Excel en VBS.

Apres moulte recherches et essai sur le net, je ne vois pas toujours d'ou vient mon erreur au sein de mon code ci dessous.

Je vous prie donc de jeter un coup d'oeil svp a mon code ci dessous.

> Plus precisement a partir de la ligne 48 pour les operation de copier/coller

Je vous remercie grandement pour votre aide.




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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
 
Option Explicit
 
Const MyFile_Modele = "C:\M.xls"
 
Const MyFile_Charge = "C:\C.xls" 
 
 
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
 
Dim objFso, objFile_Modele, objFile_Charge
Set objFso = CreateObject("Scripting.FileSystemObject")
 
On Error Resume Next  
 
Set objFile_Modele = objFso.OpenTextFile(MyFile_Modele, ForAppending, TristateFalse)
 
Set objFile_Charge = objFso.OpenTextFile(MyFile_Charge, ForAppending, TristateFalse)
 
 
 
If Err.Number <> 0 Then 
   Msgbox "Le fichier est deja ouvert"&vbCrLf& Err.Number &vbCrLf& _
           Err.Source &vbCrLf& Err.Description : Err.Clear
 Else
 
   objFile_Modele.Close
   objFile_Charge.Close
 
 
   Dim xlApp, xlBook_Modele, xlSheet_Modele,xlBook_Charge, xlSheet_Charge
 
   Set xlApp = CreateObject("Excel.Application")
 
   Set xlBook_Modele = xlApp.WorkBooks.Open(MyFile_Modele)
   Set xlBook_Charge = xlApp.WorkBooks.Open(MyFile_Charge)
 
   xlApp.DisplayAlerts = False
   xlApp.Application.Visible=True 
 
 
 
 
 
   xlBook_Modele.Sheets("Feuil1").Range("A10:L65536").ClearContents 'Effacer les donnees dans le fichier source
 
   xlBook_Charge.Activate
   xlBook_Charge.Sheets("Feuil1").Range("A2:L65536").Select   'Copier les donnees dans le fichier source
   Selection.Copy
 
 
 
 
   xlBook_Modele.Activate
   xlBook_Modele.Sheets("Feuil1").Range("A10:L65536").Select    'Coller les donnees dans le fichier cible
   Selection.Paste
 
 
 
   xlBook_Modele.Save 'Sauvegarder les donnees dans le fichier cible
 
   xlApp.Quit
   Set xlSheet = Nothing
   Set xlApp = Nothing
   Set xlBook = Nothing
End If
Set objFile = Nothing
Set objFso = Nothing