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 ?
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 ?
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
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.Sub plusun()
Dim ObjCell As Range
For Each ObjCell In Range("B2").Cells
ObjCell.Value = ObjCell.Value + 1
Next
End Sub
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...
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....Envoyé par alpking
donc j'utilise le code comme ça :
ca ne marche pas ???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
comment faire ?
tiens voila le code un peu modifier
Attention il faut rajouter une référence à microsoft excel ... (Menu VBE, outils Référence, Microsoft excel 9.0 ..)
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
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
ensuite si je clique sur "déboguage", il me surligne en jaune la ligne suivante :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
en tout cas, vraiment merciSet classeur = xlapp.Workbooks.Open(fichier)
en fait c'est tout bon, j'avais juste mal entré mon chemin d'accès au fichier...
merci
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager