Discussion :

[ver_for]

Bonjour

Je crée un fichier xls à partir d'access. Voici ci dessous une partie du code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
 
Set xlSheet = xlBook.Worksheets.Add
 xlSheet.Name = "IVA"
 
K = 3
 
xlSheet.Cells(K + 4, 3) = xlSheet.Cells(K + 5, 3).Value

avec cette dernièer ligne de code

Code :

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

1
2
3
 
 
xlSheet.Cells(K + 4, 3) = xlSheet.Cells(K + 5, 3).Value

La valeur d'une cellule est copiée dans une autre cellule.

Lorsque j'ouvre par la suite mon fichier Excel, les nombres sont présents mais pas la formule =D3 qui permettrai de mettre à jour automatiquement les données si des modifications sont faites manuellement sur le fichier.

Comment puis-je insérer une formule sur le fichier excel à partir d'Access?


Merci pour vos réponses.

[Invité]

Bonjour

Pour insérer une formule regarde du coté de FormulaLocal dans l'aide VBA d'Excel.

Philippe

[ver_for]

Merci! J'ai résolu avec:

Code :

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

1
2
3
 
 
xlSheet.Cells(Ligne, 4) = "=SUM(D2:D" & Ligne - 1 & ")"

ou

Code :

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

1
2
3
 
 
xlSheet.Cells(Ligne, 4).FormulaLocal = "=SOMME(D2:D" & Ligne - 1 & ")"

Bonjour

Pour insérer une formule regarde du coté de FormulaLocal dans l'aide VBA d'Excel.

Philippe