J'ai une appli qui crée une feuille Excel et la remplit avec un ensemble de
données provenant de l'extérieur. Tout fonctionne jusqu'à la fin où je
cherche à sélectionner toutes les cellules, à les centrer et changer la
taille de police..Le problème vient de l'accès à la propriété Selection :
Si quelqu'un peut me dire ce que je fais faux...
extrait du code :
....
dim ws as object
' On attaque la dernière feuille
set ws = xlApp.Application.worksheets(xlApp.Application.worksheets.count)
ws.Activate
ws.Cells.Select
' C'est là où çà coince !!!
with ws.Selection
.HorizontalAlignment = xlCenter
end with
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
news.free.fr
C'est bon...J'ai trouvé:
' C'est là où çà coince !!! with ws.Selection .HorizontalAlignment = xlCenter end with
à remplacer par
with xlapp.application.Selection .HorizontalAlignment = xlCenter end with
Si çà peut servir à d'autres...
Philippe
"news.free.fr" a écrit dans le message de news: 44edc514$0$12819$
Bonjour,
J'ai une appli qui crée une feuille Excel et la remplit avec un ensemble de données provenant de l'extérieur. Tout fonctionne jusqu'à la fin où je cherche à sélectionner toutes les cellules, à les centrer et changer la taille de police..Le problème vient de l'accès à la propriété Selection :
Si quelqu'un peut me dire ce que je fais faux...
extrait du code : .... dim ws as object ' On attaque la dernière feuille set ws = xlApp.Application.worksheets(xlApp.Application.worksheets.count) ws.Activate ws.Cells.Select
' C'est là où çà coince !!! with ws.Selection .HorizontalAlignment = xlCenter end with
Merci d'avance
Philippe
C'est bon...J'ai trouvé:
' C'est là où çà coince !!!
with ws.Selection
.HorizontalAlignment = xlCenter
end with
à remplacer par
with xlapp.application.Selection
.HorizontalAlignment = xlCenter
end with
Si çà peut servir à d'autres...
Philippe
"news.free.fr" <Phil@nospam.net> a écrit dans le message de news:
44edc514$0$12819$626a54ce@news.free.fr...
Bonjour,
J'ai une appli qui crée une feuille Excel et la remplit avec un ensemble
de données provenant de l'extérieur. Tout fonctionne jusqu'à la fin où je
cherche à sélectionner toutes les cellules, à les centrer et changer la
taille de police..Le problème vient de l'accès à la propriété Selection :
Si quelqu'un peut me dire ce que je fais faux...
extrait du code :
....
dim ws as object
' On attaque la dernière feuille
set ws = xlApp.Application.worksheets(xlApp.Application.worksheets.count)
ws.Activate
ws.Cells.Select
' C'est là où çà coince !!!
with ws.Selection
.HorizontalAlignment = xlCenter
end with
' C'est là où çà coince !!! with ws.Selection .HorizontalAlignment = xlCenter end with
à remplacer par
with xlapp.application.Selection .HorizontalAlignment = xlCenter end with
Si çà peut servir à d'autres...
Philippe
"news.free.fr" a écrit dans le message de news: 44edc514$0$12819$
Bonjour,
J'ai une appli qui crée une feuille Excel et la remplit avec un ensemble de données provenant de l'extérieur. Tout fonctionne jusqu'à la fin où je cherche à sélectionner toutes les cellules, à les centrer et changer la taille de police..Le problème vient de l'accès à la propriété Selection :
Si quelqu'un peut me dire ce que je fais faux...
extrait du code : .... dim ws as object ' On attaque la dernière feuille set ws = xlApp.Application.worksheets(xlApp.Application.worksheets.count) ws.Activate ws.Cells.Select
' C'est là où çà coince !!! with ws.Selection .HorizontalAlignment = xlCenter end with
