Discussion :

[zoom61]

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 :

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."

Et cela me met que j'ai une erreur sur la ligne :

Code :

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

xlSheet.Range("K2").Value = "=J2/(H2/240)"

J'ai bien activé la librairie "Microsoft Excel 10.0 Object Library"

Où ai-je fais une erreur

Merci.

[zoom61]

Il manquait juste :

Code :

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

Set xlSheet = xlApp.Sheets("requete_1")