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

**alpking** · 26/04/2006, 12h54

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 ?

**SfJ5Rpw8** · 26/04/2006, 13h00

voir FAQ et tutoriaux VB

**alpking** · 26/04/2006, 15h12

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

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

**SfJ5Rpw8** · 26/04/2006, 15h17

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

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

**alpking** · 26/04/2006, 15h37

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

**SfJ5Rpw8** · 26/04/2006, 15h52

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

**alpking** · 26/04/2006, 16h05

donc j'utilise le code comme ça :

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 ?

**SfJ5Rpw8** · 26/04/2006, 16h16

tiens voila le code un peu modifier

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

**alpking** · 26/04/2006, 19h05

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

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 :

Set classeur = xlapp.Workbooks.Open(fichier)

en tout cas, vraiment merci