[VBA-PP]fonction qui écrit un chiffre dans une cellule excel

Bonjour,

j'aimerais créer un module vb qui une fois éxécuter, rajouterai 1 à une cellule spécifieé et dans un fichier excel existant.

Comment faire ?

voir FAQ et tutoriaux VB

ok merci, j'ai réussi à ajouter ce que je voulais dans une cellule précise.

Maintenant mon problème c'est que ce modul vba doit être éxécuter en tant que macro depuis powerpoint, et lorsque j'essaye, ca ne marche pas.

voici mon code

Citation:

---

Sub plusun()
Dim ObjCell As Range
For Each ObjCell In Range("B2").Cells
ObjCell.Value = ObjCell.Value + 1
Next
End Sub

---

en fait ce que je veux, c'est que un bouton powerpoint éxécute ce macro, qui sera attaché à une feuille excel, c'est à dire que les cellule selectionné dans ce code soient celle d'un fichier excel spécifique.

Comment faire pour que ce macro marche depuis powerpoint ?
comment faire pour attacher un fichier excel à ce code ?

merci bp d'avance de votre aide

tiens regarde cela ... ( sans t'occuper du mflexgrid..) cela devrai t'aiguiller ..

http://vb.developpez.com/faq/?page=Office#excel2flex

merci bbil, mais pas vraiment compris !!!

il faut que j'utilise MsFlexGrid ? c'est quoi ?

désolé, je suis un réel débutant en visual basic...

Citation:

---

Envoyé par alpking

merci bbil, mais pas vraiment compris !!!

il faut que j'utilise MsFlexGrid ? c'est quoi ?

désolé, je suis un réel débutant en visual basic...

---

non oublie le msFlexgrid..., qui est en gros contrôle grille, que l'on peu placer sur une Form VB... mais pour le reste ouverture du classeur et accés à ces données tu utilise le même principe....

donc j'utilise le code comme ça :

Citation:

---

Public Sub Excel2Flexgrid(flexgrid As MSFlexGrid, ByVal fichier As String)

Dim xlapp As Excel.Application
Dim classeur As Excel.Workbook, feuille As Excel.Worksheet, Plage As Excel.Range

Set xlapp = New Excel.Application
xlapp.DisplayAlerts = False
Set classeur = xlapp.Workbooks.Open(fichier)
Set feuille = xlapp.ActiveSheet
Set Plage = feuille.Range("A1").CurrentRegion


Set Plage = Nothing
Set feuille = Nothing
classeur.Close False
Set classeur = Nothing
Set xlapp = Nothing

End Sub

---

ca ne marche pas ???

comment faire ?

tiens voila le code un peu modifier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() Dim xlapp As Excel.Application Dim classeur As Excel.Workbook Dim feuille As Excel.Worksheet Set xlapp = New Excel.Application xlapp.Visible = True fichier = "c:\temp\classeur2.xls" Set classeur = xlapp.Workbooks.Open(fichier) Set feuille = xlapp.ActiveSheet feuille.Range("A1") = "Rajout du texte en cellule A1"     Set feuille = Nothing   classeur.Close True 'quitte en sauvant Set classeur = Nothing Set xlapp = Nothing End Sub

---

Attention il faut rajouter une référence à microsoft excel ... (Menu VBE, outils Référence, Microsoft excel 9.0 ..)

merci bp bp bbil.

ca marche presque : ca ouvre bien excel, mais ensuite j'ai le message d'erreur suivant :

"erreur d'éxécution 1004 : la méthode de l'objet workbooks à échoué"

voila le code

Citation:

---

Private Sub CommandButton1_Click()
Dim xlapp As Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet
Set xlapp = New Excel.Application
xlapp.Visible = True
fichier = "/Users/Bruce/Desktop/resultats.xls"
Set classeur = xlapp.Workbooks.Open(fichier)
Set feuille = xlapp.ActiveSheet
feuille.Range("A1") = "Rajout du texte en cellule A1"


Set feuille = Nothing

classeur.Close True 'quitte en sauvant
Set classeur = Nothing
Set xlapp = Nothing

End Sub

---

ensuite si je clique sur "déboguage", il me surligne en jaune la ligne suivante :

Citation:

---

Set classeur = xlapp.Workbooks.Open(fichier)

---

en tout cas, vraiment merci

en fait c'est tout bon, j'avais juste mal entré mon chemin d'accès au fichier...

:D :D :D :D

merci