CODE PERMETTANT DE MANIPULER LES OBJETS EXCEL EN .NET
TOTOCHITO
Messages postés
63
Date d'inscription
lundi 13 septembre 2004
Statut
Membre
Dernière intervention
16 novembre 2007
-
13 juil. 2006 à 10:39
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 21 sept. 2011 à 14:37
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 21 sept. 2011 à 14:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/38534-code-permettant-de-manipuler-les-objets-excel-en-net
https://codes-sources.commentcamarche.net/source/38534-code-permettant-de-manipuler-les-objets-excel-en-net
21 sept. 2011 à 14:37
Il faut remplacer les appxls.ActiveWorkbook.Worksheets("NouveauNom").Range("A1").Value "tyty" par :
> With book.Sheets.Application
.Range("F5").Value = Date.Today.ToString
.Range("F6").Value = "test"
End With
Avec : Dim book As Excel.Workbook et
book = appxls.Workbooks.Open(cheminFormulaire)
Me demande pas pourquoi, juste que cela marche LOL. Bonne prog à tous. ADN
18 mai 2010 à 16:58
je programme avec vb express 2005
j'aurai voulu faire une vérification avec « if ….then »
si un fichier Excel es bien ouvert j'appel une macro qui modifie les onglets et rajoute si nécessaire
et s’il y a aucun fichier Excel je crée un classeur et crée les onglets
mais j’arrive pas à testé si le fichier Excel est ouvert ou pas.
25 juin 2009 à 12:21
29 avril 2009 à 20:00
bonne continuité!
25 avril 2009 à 09:30
mais moi de ma part j'ai essayé en vain la sélection de deux ou trois feuilles pour l'impression.
j'ai passer par l'enregistreur de macros mais pour adapter le code en vb cela devient un gros problème
voici le code que je veux adapter
Sheets(Array("FicheObserv", "Feuil2", "Feuil3")).Select
Sheets("FicheObserv").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
22 avril 2009 à 10:36
Lorsque je test ceci :
'Sélectionner une cellule
sheet = appxls.ActiveWorkbook.Worksheets("NouveauNom")
sheet.Activate()
sheet.Cells(1, 1).Select()
'ou
sheet.Range("A2").Select()
J'ai la meme erreur que BLU!
La solution vient de la déclaration de sheet, ce n'est pas
Dim sheet As Microsoft.Office.Interop.Excel.Workbook
Mais bien
Dim sheet As Microsoft.Office.Interop.Excel.Worksheet
Sinon super source, elle m'aide beaucoup!!!!
1 juil. 2008 à 09:42
Donc si tu vois comment faire...
Et aussi j'aimerais mettre des bordures voyante automatiquement,c'est possible sa?
Merci.
22 juin 2008 à 23:00
Sheets(Array("Feuille 1", "Feuille 2")).Select
Pour info, on m'a donné le lien suivant pour le support VBA et les objets Excel :
http://bvrve.club.fr/Astuces_Michel/12excelvba.html
Cela va peut être t'aider.
Cdt,
Benoit
22 juin 2008 à 10:47
4 mai 2008 à 08:46
Sheets.Add(Type.Missing, appxls.Worksheets[appxls.Worksheets.Count], Type.Missing, Type.Missing);
'corespond à la dernière feuille'
appxls.Worksheets[appxls.Worksheets.Count]
19 févr. 2008 à 20:43
Effectivement la variable contenant le nom de l'onglet semblait être mal évaluée, ce qui du coups plantait le code.
Cdt,
Benoît
6 janv. 2008 à 14:15
une feuille de ton classeur Excel doit porter le nom 'NouveauNom', as-tu vérifer ?
7 nov. 2007 à 14:13
Je suis sous VB 2005 et office 2003.
Le début de code est ok mais sur la sélection d'une cellule le code bloque
'Sélectionner une cellule
sheet appxls.ActiveWorkbook.Worksheets("NouveauNom")
>
Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'Microsoft.Office.Interop.Excel.Workbook'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{000208DA-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante : Cette interface n'est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)).
Avez vous une idée ?
Merci d'avance.
18 oct. 2007 à 09:06
ben c'est bon. par contre on ne peut pas faire un autosize de 2 cellules fusionnées. triste la vie...
voici une fonction qui contient toutes les modifications que je connais à ce jour :
function fctModifyExcelTable(ByVal FilePath, ByRef TabContent)
Dim objExcel
Dim objClasseur
Dim lin
Set objExcel = CreateObject("Excel.Application")
Set objClasseur = objExcel.Workbooks.Open(FilePath)
objExcel.DisplayAlerts = False 'enlève l'alerte (oui=True, non=False)
'objExcel.Application.Visible = True 'Cache le classeur (oui=True, non=False)
objExcel.ActiveWorkbook.Sheets(1).Select 'selection de mon onglet
lin = objExcel.Cells(1,1).Value
objExcel.Selection.Borders.Weight = 4 '= xlThick
objExcel.Selection.ColumnWidth = 12
objExcel.Selection.Font.Name = "Arial"
objExcel.Selection.Font.Size = 11
objExcel.Selection.Font.Bold = True
objExcel.Selection.HorizontalAlignment = &HFFFFEFF4 '= xlCenter
objExcel.Selection.Interior.ColorIndex = 6
objExcel.Selection.NumberFormat = "@"
objXLA.Selection.Borders.LineStyle = 1 '= xlSolid
objXLA.Selection.Borders.Weight = 4 '= xlThick
objExcel.Selection.Borders.LineStyle = 1
objExcel.Selection.Borders.Weight = -4138
objExcel.Selection.Borders(11).LineStyle = -4142
objExcel.Selection.Borders(12).LineStyle = -4142
objExcel.Selection.Interior.ColorIndex = 0
objExcel.Selection.RowHeight = 30
objExcel.Selection.Rows.AutoFit
objExcel.Selection.Columns.AutoFit
'objExcel.ActiveWorkbook.SaveAs FilePath 'sauvegarde le classeur
objExcel.ActiveWorkbook.Save'sauvegarde le classeur
objExcel.ActiveWorkbook.Close 'Fermeture d'Excel
objExcel.DisplayAlerts = True 'remet l'alerte oui=True non=False
objExcel.Application.Visible=True 'remet la visibilité
objExcel.Quit
Set objExcel = Nothing
Set objClasseur = Nothing
end function
17 oct. 2007 à 16:47
Merci Drikce06 pour ces exemples. Au moins c'est clair ;-)
Cela dis, je suis à la recherche de comment modifier la taille d'une ligne ou colonne avec du vbscript. En plus, ça doit être efficace sur une ligne de cellules fusionnées. Mon but étant de permettre la vision de tout le texte se trouvant dans la cellule. et ce en vbscript.
En somme, je suis à la recheche de la même chose que Cacou99. Malheureusement, je bosse pas avec VBA comme l'as dis Renfield et ne vois pas ce que veux dire Mortalino. Par contre ABDELJAWAD86, penses-tu que cela donne aussi du vbs?
5 oct. 2007 à 14:01
enfaite j'ai fait une importation depuis un fichier texte et il y'a des lignes vierge sous excel et ce que quelqu'un aurait une commande pour supprimer les lignes vierges?
12 août 2007 à 16:41
tu vas sur excel,n'importe quelle classeur tu crées une macro pour redimentionner une cellule, et aprés excel va générer le code que tu pourras l'analyser ds macro->Visual Basic Editor->module x
alors bref t'as rien a faire plus facile que de le dire copie-->coller avec un peu de programmation que t'as ds la tête
ciao
25 juil. 2007 à 17:13
25 juil. 2007 à 17:10
25 juil. 2007 à 17:08
Merci pour toutes ces informations mais qui pour moi son malheuresement insufisante...
Pourriez vous m'indiquer ou vous trouvé toutes ces syntaxes car je ne les ai pas trouvé.
Je suis a la recherche de la ligne de code pour changer la taille des cellules, colonnes et ligne ...
Merci d'avance ..
Pitch
16 juil. 2007 à 17:42
Merci pour ton code, mais comme Jo_Pistol le demande, moi j'ai un soucis pour créer un graphe comprenant plusieurs series.
Je me sert de appxls.ActiveChart.SeriesCollection(1).XValues & appxls.ActiveChart.SeriesCollection(1).Values mais je n'arrive pas a passer les paramètres, et lorsque je "crois" les passer, en fait, mon graphe reste à {1}
Si quelqu'un à déjà eu le soucis, merci de m'expliquer pourquoi cela ne fonctionne pas.
10 juil. 2007 à 06:18
Est-il possible de generer un graph, a partir d'une table?
merci
23 févr. 2007 à 22:26
je vais chercher
23 févr. 2007 à 11:32
23 févr. 2007 à 11:28
comment fais-tu pour lire la valeur d'une cellule en voulant préciser le n°ligne et N° colonne et non pas son adresse du type "B2" car je n'y arrive pas .
Merci d'avance
25 janv. 2007 à 13:32
pour l'instant mes données s'incrive bien dans mon fichier excel et s'enregistre en *.xls
mes références installées sont office11 et excel.
je voudrais affiché mes données dans une form, j'avais pensé a le sauvegarder en html pour ensuite l'afficher.
j'ai déja pas mal cherché moi meme et sur le net, mais je reste bloqué. encore merci pour votre aide
@@@+
25 janv. 2007 à 13:16
25 janv. 2007 à 13:11
j'ai deja fait cette opération mais je n'arrive pas à réadapter le code (est ce qu'il faut rajouter une référence a vb?). si quelqu'un a deja réussi s'il pouvais publier la solution sa serait sympa.
25 janv. 2007 à 06:31
Billoux70 : dans excel, fichier Enregistrer sous... et choisi le format html.
Enregistre toi pendant que tu fais cette opération, tu auras la syntaxe et une adaptation sera alors a faire pour exploiter en DotNet
@++
22 janv. 2007 à 10:48
Je debute en programation j'aurais une petite question à vous poser.
Comment fait t'on pour enregistrer un classeur dans un autre format que le xls ("htm")?
merci pour votre (vos) réponse(s)
17 oct. 2006 à 16:04
cool ca fonctionne !
merci et bonne fin de journée
christophe
un bouillonnais
17 oct. 2006 à 14:45
sheet.Range("A1:A3").Merge()
17 oct. 2006 à 14:39
est il possible de fussioner des cellules !?
et si oui comment !?
Je vous remercie
Christophe
6 oct. 2006 à 09:59
Celà est du à une différence de langue entre excel et visual.
Il faut rajouter cette ligne:
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
Bien sûr ca dépend de la config que l'on a.
Merci quand meme en tout cas.
6 oct. 2006 à 09:48
6 oct. 2006 à 09:26
super code mais chez moi j'obtiens une erreur à la ligne:
appxls.Workbooks.Add() ' Old Format or Invalid Type Library.
J'utilise pourtant la reference excel version 11. Je suis sur visual studio 2003.
Quelqu'un a une idée?
Merci.
16 août 2006 à 13:30
ton programme m'aide bcp mais sait tu comment on pourrai faire pour créer un graph a partir de valeur dans un tableau?
merci
17 juil. 2006 à 13:06
14 juil. 2006 à 01:04
++
Mortalino
13 juil. 2006 à 14:39
13 juil. 2006 à 13:13
Cool vraiment cool ton p'tit exemple ..ca merite une bonne note ;-) !
De plus, ca tombe bien je dois generer avec du code C# un rapport sous excel ..
Ca va bien m'aider !
Bonne continuation
Christophe
Un bouillonnais
13 juil. 2006 à 11:34
13 juil. 2006 à 11:26
13 juil. 2006 à 11:10
quel office utilises tu car j'ai un programme qui tourne avec de l'exportation de données vers excel et j'ai des probleme de libération de mémoire et j'ai l'impression que office 97 et xp pro ne font pas bon ménages.
13 juil. 2006 à 10:52
Par exemple: Dim appxls as Excel.Application suffit.
13 juil. 2006 à 10:39
petite question quelle reference ajoutes tu pour faire référence à
microsoft.office.interop.excel.application
Je travaille avec office 97 et je n'arrive pas à trouver la librairie à charger