Discussion :

[djodjo]

Bonjour,

Je suis débutant totalement en vb et j'ai le soucis suivant.

Dans le but d'une présentation powerpoint, je dois à un moment permettre de cliquer sur une zone laquelle va incrémenter une cellule d'un document excel. (Si j'ai dejà 5 dans ma cellule et que la zone dois ajouter 20, dans ma cellule je souhaiterais avoir 25).

Je vous remercie de votre aide ...

[ouskel'n'or]

Comme tu ne dis pas tout, j'ai dû supposer
Un textbox et un bouton dans ta diapo
Le nombre dans le Txtbox, le bouton pour valider

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
Private Sub CommandButton1_Click()
Call CopierLaValeurDuneCelluleExcelDansPPT(Val(TextBox1.Value))
End Sub
 
Sub CopierLaValeurDuneCelluleExcelDansPPT(Valeur)
Dim XlAppli As Object
Dim XlCl As Workbook
Dim Xlfl As Worksheet
    Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
    Set XlCl = XlAppli.Workbooks.Open("D:\xls\Fichier.xls") '< le classeur
    Set Xlfl = XlCl.Worksheets("feuil1") '< la feuille
    With Xlfl
        .Range("D2").Value = .Range("D2").Value + Valeur ' < La cellule
    End With
    On Error Resume Next
    XlCl.Close True 'Enregistrement du fichier.xls
    XlAppli.Quit
    Set XlAppli = Nothing
    Set XlCl = Nothing
    Set Xlfl = Nothing
End Sub

Testé -> OK
A+

NB - Demande de valider la référence Microsoft Excel 10.0 Object Library

[djodjo]

Merci pour ta réponse ... ca m'arrange, je suis désolé si j'avais mal précisé mais j'avoue que je connais tres mal !!!

En tout cas tu me retire une belle épine du pied car c'etait tres urgent !!!!