Discussion :

[guestCam]

Bonjour,
ça fait des heures que je calle sur cette erreur. J'ouvre Excel puis je remplie un classeur avec les donnes venant de ma table.

J'ai une variable publique(

Public Z as New Excel.Application

) et une methode centerHorizontal permettant de centrer les données dans les cellules. Voici la méthode:

private sub centerHoritonzal(ligne as Long, colonne as Long, Z as Excel.Application)

Z.Cells(ligne.colonne).Select
with Selection
.HorizontalAlignment=XlCenter
end width

Lors de la première ouverture de Excel(lorsque je clique sur le bouton qui ouvre Excel), la méthode fonctionne bien. Mais lorsque je clique sur un autre bouton qui ouvre aussi Excel la méthode ne fonctionne plus. ça calle sur .HorizontalAlignment(car Selection=nothing) et je ne comprend pas pourquoi.

Et si je vais dans le menu Exécution -> réinitialiser, ça fonctionne de nouveau.

Merci d'avance pour votre aide.

[koyot3]

salut
ca ne serait pas parce que tu ouvres 2 fois Excel sans le fermer...

tu commences par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim XLApp As Excel.Application

mais rajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
XLApp.Quit
Set XLApp = Nothing

a la fin ....

bon courage

[guestCam]

J'ai fait cela, mais malheureusement il y a pas d'effet. Ce qui est bizarre est que les données sont bien remplies dans le classeur; mais dès que j'utilise

select

pour selectionner une cellule à mettre en forme, ça bloque dans le bloc

With Selection

.

[Oleff]

Bonjour,
Je ne suis plus sur de la syntaxe mais il me semble qu'avec la référence à l'objet ou à l'application ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlsApp.selection

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

z.activesheet.activecell