[Office][VBA Excel> C#] Comment transcrire cette macro ?

Version imprimable

Bonjour,

J'essaie d'effectuer la conversion de la macro VBA Excel suivante en C# :

Voici le code VBA :
Code:

1 2 3 4 5 6 7 Sub CreationRond() ActiveSheet.Shapes.AddShape(msoShapeOval, 179.25, 76.5, 393#, 393#).Select Selection.Characters.Text = "Ceci est un texte dans mon rond." Selection.HorizontalAlignment = xlCenter End Sub
Ma sélection est donc faite

... et je deviens complètement fou avec cette sélection ...

Le code C# que j'ai essayé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 object oMissing = System.Reflection.Missing.Value ; Excel.Application excelApp = null ; Excel._Workbook classeur = null ; Excel._Worksheet feuille = null ; Excel.Shape forme = null ; Excel.Shapes formes = null ; excelApp = new Excel.ApplicationClass() ; classeur = excelApp.Workbooks.Add(oMissing) ; feuille = (Excel._Worksheet)classeur.ActiveSheet ; feuille.Shapes.AddShape (Microsoft.Office.Core.MsoAutoShapeType.msoShapeOval,50,50,50,50). Select(oMissing) ;
J'ai a peu près tout tenté pour récupérer cette forme sélectionnée et essayé d'appliquer un changement de caractères, mais je n'y parviens pas...

Il y a quelque chose que je ne dois pas bien comprendre.

18/07/2005, 10h47
zeavan

je ne suis pas sur d'avoir compris ce que tu veuxfaire :?
tu essaie de recupere le texte situe dans la surface d'un rond virtuel sur une page excel c'est bien ca ??
ou rien avoir :oops:

dis moi ce que tu veux faire .
18/07/2005, 11h05
Kcirtap

Citation:

Envoyé par zeavan

tu essaie de recupere le texte situe dans la surface d'un rond virtuel sur une page excel c'est bien ca ??

C'est presque ça. :P

Dans Excel, tu as la possibilité d'ajouter des dessins prédéfinis (ronds, carrée, étoiles, etc.).
Lorsque tu crées l'un de ces dessins, tu peux cliquer avec le bouton de droite pour obtenir le menu contextuel et là, tu trouve la rubrique "Ajouter du texte".

J'arrive parfaitement bien à ajouter du texte à un dessin dans une macro VBA d'Excel, mais je ne parviens pas à transcrire cette macro en C#.

En VBA, tu sélectionnes le dessin (Shape) et à partir de l'objet Selection, tu peux atteindre l'attribut Characters.Text comme le montre le code de mon premier message.

Mon problème est qu'en C#, j'arrive à sélectionner une forme, mais je ne parviens à récupérer cette sélection.
J'ai bien essayé de passer par l'application Excel (Excel.Application.Selection), mais je ne trouve pas l'attribut Characters ensuite.

Saurais-tu d'où pourrait venir mon problème :?: :roll:
18/07/2005, 15h42
prem's

Citation:

Envoyé par Kcirtap

J'ai bien essayé de passer par l'application Excel (Excel.Application.Selection), mais je ne trouve pas l'attribut Characters ensuite.

tu as essayer et ça compile pas, ou il n'est juste pas présent dans la complétion ?
18/07/2005, 15h48
Kcirtap

Citation:

Envoyé par prem's

tu as essayer et ça compile pas, ou il n'est juste pas présent dans la complétion ?

Il n'est pas présent dans la complétion...
18/07/2005, 15h55
prem's

essaye voir si ça passe quand meme. suivant ce que donne Excel.Application.Selection comme "type" ça peut passer. si ça compile pas par contre c'est que c'est pas possible du tout :wink:
18/07/2005, 17h00
Kcirtap

Citation:

Envoyé par prem's

essaye voir si ça passe quand meme. suivant ce que donne Excel.Application.Selection comme "type" ça peut passer. si ça compile pas par contre c'est que c'est pas possible du tout :wink:

Ca marche.

Je fais mes tests et je vous donne des nouvelles. 8)

Il en aura fallu ...

Bon sang ! Ca fonctionne!!! :lahola:

Après plusieurs tentatives et surtout quelques :arf: , je suis finalement parvenu à un résultat.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
string nomFichier = @"c:\temp\test.xls" ;
 
object oMissing = System.Reflection.Missing.Value ;
Excel.Application excelApp = null ;
Excel._Workbook classeur = null ;
Excel._Worksheet feuille = null ;
Excel.Shape forme = null ;
Excel.Shapes formes = null ;
 
excelApp = new Excel.ApplicationClass() ;
 
 
//initialisation de l’application Excel
if (excelApp == null)
{
    Console.WriteLine("Erreur initialisation de l'application Excel.") ;
    return ;
}
else
{
    excelApp.Visible = true ;
}
 
//test de l’existence du fichier
if (File.Exists(nomFichier))
{
    Console.WriteLine("Le fichier " + nomFichier + " existe.") ;
    File.Delete(nomFichier) ;
    Console.WriteLine(nomFichier + " a été supprimé!") ;
}
else
{
    Console.WriteLine("Le fichier " + nomFichier + " n'existe pas.") ;
}
 
//initialisation du classeur
classeur = excelApp.Workbooks.Add(oMissing) ;
 
//initialisation de la feuille
feuille = (Excel._Worksheet)classeur.ActiveSheet ;
 
//création de la forme en l’ajoutant à la collection de la feuille
//sélection de la forme
feuille.Shapes.AddShape
(Microsoft.Office.Core.MsoAutoShapeType.msoShapeOval, 50, 0, 0,
 0).Select(oMissing) ;
 
//ajout et formatage du texte
((Excel.Oval) excelApp.Selection).Caption = "Test”
((Excel.Oval) excelApp.Selection).HorizontalAlignment =
 Excel.XlHAlign.xlHAlignCenter ;
((Excel.Oval) excelApp.Selection).VerticalAlignment =
 Excel.XlVAlign.xlVAlignCenter ;
((Excel.Oval) excelApp.Selection).Font.Name = "Arial Black" ;
((Excel.Oval) excelApp.Selection).Font.Color = 3 ;
 
//sauvegarde du classeur Excel
classeur.SaveAs(nomFichier,
               XlFileFormat.xlExcel7,
               oMissing,
               oMissing,
               oMissing,
               oMissing,
               XlSaveAsAccessMode.xlNoChange,
               oMissing,
               oMissing,
               oMissing,
               oMissing,
               oMissing) ;
 
//fermeture du classeur
classeur.Close(false,oMissing,oMissing) ;
 
//sortie de l’application
excelApp.Quit() ;

Je dois dire que j'ai été pas mal induit en erreur par le code VBA. La propriété du texte de la forme ne porte pas le même nom en C# qu'en VBA...

J'espère que ce bout de code pourra être utile à d'autres.

Un grand :merci: à tous pour votre aide.

A bientôt

Patrick