automatisation excelRésolu

Question

Bonjour j'ai 2 questions:

  la premi&#232;re c'est comment modifier les polices sous exel depuis
un programe vb (je vais donner ici le code o&#249; j'&#233;cris juste bonjours
dans une cellule mais j'aimerai savoir comment faire pour avoir le
texte par exemple en rouge? la seconde est comment enregistrer
directement le fichier .xls sous un nom que j'aurai donner en ferment
le programe :  



Dim app As Object

Set app = CreateObject("Excel.Application")



app.Visible = True

app.workbooks.Add  '(cr&#233;e une feuille)



     'donc je veux ici inserer un bonjour en rouge

app.activesheet.range("A1:A1").Value = "Bonjour"



     'puis ici avant de fermer enregistrer la nouvelle feuille sous un nom ex f1.xls

app.workbooks.Close

app.Application.Quit

End

mrdep1978 · Accepted Answer

Dim app As Object
dim Classeur As Object
Set app = CreateObject("Excel.Application")

app.Visible = True
Set Classeur=app.workbooks.Add()  '(cr&#233;e une feuille)

     'donc je veux ici inserer un bonjour en rouge
with Classeur.activesheet.range("A1:A1")
   .Value = "Bonjour"
   .Font.Color = rgb(255,0,0)    'ou vbRed
end With

     'puis ici avant de fermer enregistrer la nouvelle feuille sous un nom ex f1.xls
Classeur.SaveAs("c:\f1.xls")
Classeur.Close
app.Quit
End

lilington · Answer

Merci pour la r&#233;ponse c'st excellent .mais o&#249; puis touver la liste des fonction par exemple 





.Add , .Font.Color ,  .SaveAs etc... serait mieux que de passer mon temps &#224; poser des questions

lilington · Answer

j'ai une petite erreure avec le classeur.SaveAs ()

  l'objet de g&#232;re pas cette procedure ou methode.

donc pour les couleurs &#231;a marche mais pas pour la sauvegarde

mrdep1978 · Answer

As tu bien modifi&#233; la ligne de cr&#233;ation d'un nouveau classeur ?
Set Classeur = app.Workbooks.Add()

Pour avoir la liste des fonctions et &#233;l&#233;ments dispo, le mieux est d'utiliser l'aide VBA d'Excel (&#224; condition de l'avoir install&#233;e avec Excel).

Tu peux &#233;galement cr&#233;er des macros depuis Excel, puis aller voir le code qui a &#233;t&#233; g&#233;n&#233;r&#233; dans les modules VBA

lilington · Answer

C'est bon javais pas vu la ligne : Set Classeur = app.Workbooks.Add()

l&#224; &#231;a marche mais une derni&#232;re chose ? comment on fait un macros sous excel apr&#232;s je t'emb&#234;te plus promis.

lilington · Answer

tout compte fait c'est pas la peine j'ai d&#233;ja vu merci quand m&#234;me.

cs_jamel · Answer

djoxxxxxxxx

Automatisation excel

7 réponses

Discussions similaires