Salut,
J'ai récupérer le code suivant
Ensuite, j'ai modifié le code mais cela ne fonctionne pas, voici le code que j'ai :
Et cela me met que j'ai une erreur sur la ligne :
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 Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook Dim vtemp As Variant Dim SelectFolder_dest As String Dim nb_tot As String nb_tot = 15808 SelectFolder_dest = "c:\temp\" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(SelectFolder_dest & "fichier_supermarche.xls") xlSheet.Range("K2").Value = "=J2/(H2/240)" xlSheet.Range("K2").Copy xlSheet.Paste Destination:=xlSheet.Range("K3:K" & nb_tot) xlBook.Save xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing MsgBox "Fin de la procédure."
J'ai bien activé la librairie "Microsoft Excel 10.0 Object Library"
Code : Sélectionner tout - Visualiser dans une fenêtre à part xlSheet.Range("K2").Value = "=J2/(H2/240)"
Où ai-je fais une erreur
Merci.
Partager