voila mon problème qui semble tout bête : je pilote une feuille excel depuis
VB avec mise en forme et tout et tout.
Tout va bien sauf que je ne parviens pas à insérer un saut de page comme il
faut. (snif)
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
X
Bonjour,
Je ne sais pas si c'ets ça que tu cherches:
Printer.NewPage ' LF --------------------------
"Cé-go" <Cé a écrit dans le message de news:
Bonjour
voila mon problème qui semble tout bête : je pilote une feuille excel depuis VB avec mise en forme et tout et tout. Tout va bien sauf que je ne parviens pas à insérer un saut de page comme il faut. (snif)
Est ce que quelqu'un peut m'aider ?
Merci d'avance
Bonjour,
Je ne sais pas si c'ets ça que tu cherches:
Printer.NewPage ' LF
--------------------------
"Cé-go" <Cé-go@discussions.microsoft.com> a écrit dans le message de news:
0EAE42C6-C38B-4932-858C-D0FD7718B1C2@microsoft.com...
Bonjour
voila mon problème qui semble tout bête : je pilote une feuille excel
depuis
VB avec mise en forme et tout et tout.
Tout va bien sauf que je ne parviens pas à insérer un saut de page comme
il
faut. (snif)
voila mon problème qui semble tout bête : je pilote une feuille excel depuis VB avec mise en forme et tout et tout. Tout va bien sauf que je ne parviens pas à insérer un saut de page comme il faut. (snif)
Est ce que quelqu'un peut m'aider ?
Merci d'avance
Cé-go
bin non.
Le but de mon boulot c'est justement de me passer de l'objet printer en utilisant l'objet Excel application.
Exemple de mon code en dessous : ------------------------------------------------------------------------ Dim oXL As Excel.Application Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet ' Start Excel and get Application object. Set oXL = CreateObject("Excel.Application") oXL.Visible = True
' Get a new workbook. Set oWB = oXL.Workbooks.Add
Set oSheet = oWB.Sheets(1) oSheet.Activate ------------------------------------------------------
Merci pour ta réponse rapide en tout cas
"X" a écrit :
Bonjour,
Je ne sais pas si c'ets ça que tu cherches:
Printer.NewPage ' LF --------------------------
bin non.
Le but de mon boulot c'est justement de me passer de l'objet printer
en utilisant l'objet Excel application.
Exemple de mon code en dessous :
------------------------------------------------------------------------
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
' Start Excel and get Application object.
Set oXL = CreateObject("Excel.Application")
oXL.Visible = True
' Get a new workbook.
Set oWB = oXL.Workbooks.Add
Set oSheet = oWB.Sheets(1)
oSheet.Activate
------------------------------------------------------
Le but de mon boulot c'est justement de me passer de l'objet printer en utilisant l'objet Excel application.
Exemple de mon code en dessous : ------------------------------------------------------------------------ Dim oXL As Excel.Application Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet ' Start Excel and get Application object. Set oXL = CreateObject("Excel.Application") oXL.Visible = True
' Get a new workbook. Set oWB = oXL.Workbooks.Add
Set oSheet = oWB.Sheets(1) oSheet.Activate ------------------------------------------------------
Merci pour ta réponse rapide en tout cas
"X" a écrit :
Bonjour,
Je ne sais pas si c'ets ça que tu cherches:
Printer.NewPage ' LF --------------------------
Jacques93
Bonjour Cé-go, Cé-go a écrit :
Bonjour
voila mon problème qui semble tout bête : je pilote une feuille excel depuis VB avec mise en forme et tout et tout. Tout va bien sauf que je ne parviens pas à insérer un saut de page comme il faut. (snif)
Pour un saut de ligne avant la ligne 20, par exemple :
oSheet.HPageBreaks.Add Range("A21")
-- Cordialement,
Jacques.
Bonjour Cé-go,
Cé-go a écrit :
Bonjour
voila mon problème qui semble tout bête : je pilote une feuille excel depuis
VB avec mise en forme et tout et tout.
Tout va bien sauf que je ne parviens pas à insérer un saut de page comme il
faut. (snif)
Pour un saut de ligne avant la ligne 20, par exemple :
voila mon problème qui semble tout bête : je pilote une feuille excel depuis VB avec mise en forme et tout et tout. Tout va bien sauf que je ne parviens pas à insérer un saut de page comme il faut. (snif)
Pour un saut de ligne avant la ligne 20, par exemple :
oSheet.HPageBreaks.Add Range("A21")
-- Cordialement,
Jacques.
Driss HANIB
salut Cé-go
ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais exactement les commandes que tu veux avoir, termine ta macro et va voir le code généré par tes commandes et tu auras exactement (avec peut être une adamptation) les lignes à mettre dans ton prog VB.
Driss
"Cé-go" a écrit dans le message de news:
Bonjour
voila mon problème qui semble tout bête : je pilote une feuille excel
depuis
VB avec mise en forme et tout et tout. Tout va bien sauf que je ne parviens pas à insérer un saut de page comme
il
faut. (snif)
Est ce que quelqu'un peut m'aider ?
Merci d'avance
salut Cé-go
ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais
exactement les commandes que tu veux avoir, termine ta macro et va voir le
code généré par tes commandes et tu auras exactement (avec peut être une
adamptation) les lignes à mettre dans ton prog VB.
Driss
"Cé-go" <C-go@discussions.microsoft.com> a écrit dans le message de
news:0EAE42C6-C38B-4932-858C-D0FD7718B1C2@microsoft.com...
Bonjour
voila mon problème qui semble tout bête : je pilote une feuille excel
depuis
VB avec mise en forme et tout et tout.
Tout va bien sauf que je ne parviens pas à insérer un saut de page comme
ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais exactement les commandes que tu veux avoir, termine ta macro et va voir le code généré par tes commandes et tu auras exactement (avec peut être une adamptation) les lignes à mettre dans ton prog VB.
Driss
"Cé-go" a écrit dans le message de news:
Bonjour
voila mon problème qui semble tout bête : je pilote une feuille excel
depuis
VB avec mise en forme et tout et tout. Tout va bien sauf que je ne parviens pas à insérer un saut de page comme
il
faut. (snif)
Est ce que quelqu'un peut m'aider ?
Merci d'avance
X
Ah :o) Désolé alors...
"Cé-go" a écrit dans le message de news:
bin non.
Le but de mon boulot c'est justement de me passer de l'objet printer en utilisant l'objet Excel application.
Exemple de mon code en dessous : ------------------------------------------------------------------------ Dim oXL As Excel.Application Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet ' Start Excel and get Application object. Set oXL = CreateObject("Excel.Application") oXL.Visible = True
' Get a new workbook. Set oWB = oXL.Workbooks.Add
Set oSheet = oWB.Sheets(1) oSheet.Activate ------------------------------------------------------
Merci pour ta réponse rapide en tout cas
"X" a écrit :
Bonjour,
Je ne sais pas si c'ets ça que tu cherches:
Printer.NewPage ' LF --------------------------
Ah :o) Désolé alors...
"Cé-go" <Cgo@discussions.microsoft.com> a écrit dans le message de news:
3B1E5FA0-643A-444A-BC25-3DF1C61E0B30@microsoft.com...
bin non.
Le but de mon boulot c'est justement de me passer de l'objet printer
en utilisant l'objet Excel application.
Exemple de mon code en dessous :
------------------------------------------------------------------------
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
' Start Excel and get Application object.
Set oXL = CreateObject("Excel.Application")
oXL.Visible = True
' Get a new workbook.
Set oWB = oXL.Workbooks.Add
Set oSheet = oWB.Sheets(1)
oSheet.Activate
------------------------------------------------------
Le but de mon boulot c'est justement de me passer de l'objet printer en utilisant l'objet Excel application.
Exemple de mon code en dessous : ------------------------------------------------------------------------ Dim oXL As Excel.Application Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet ' Start Excel and get Application object. Set oXL = CreateObject("Excel.Application") oXL.Visible = True
' Get a new workbook. Set oWB = oXL.Workbooks.Add
Set oSheet = oWB.Sheets(1) oSheet.Activate ------------------------------------------------------
Merci pour ta réponse rapide en tout cas
"X" a écrit :
Bonjour,
Je ne sais pas si c'ets ça que tu cherches:
Printer.NewPage ' LF --------------------------
Cé-go
Merci Jacque93, ca marche... mais que la première fois !(?)
J'ai mis le code suivant : oSheet.HPageBreaks.Add Range(oSheet.Cells(Currow, FirstCol), oSheet.Cells(CurrRow, LastCol))
Je lance l'appli, puis le print => tout est OK sous excel, y compris les sauts de page...
Par contre, si je ne ferme pas mon appli, je ferme excel, je relance le print => tout est OK sous excel sauf qu'il ne me fait plus les sauts de pages(????)
Pourtant, je ferme bien tout mes objets comme vous pouvez le voir dans mon premier message ...
Si vous parvenez à me sauver... là je m'arrache les cheveux
Merci Driss pour le conseil. Je vais essaye de voir ce que j'obtiens ...
"Driss HANIB" a écrit :
salut Cé-go
ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais exactement les commandes que tu veux avoir, termine ta macro et va voir le code généré par tes commandes et tu auras exactement (avec peut être une adamptation) les lignes à mettre dans ton prog VB.
Driss
"Cé-go" a écrit dans le message de news: > Bonjour > > voila mon problème qui semble tout bête : je pilote une feuille excel depuis > VB avec mise en forme et tout et tout. > Tout va bien sauf que je ne parviens pas à insérer un saut de page comme il > faut. (snif) > > Est ce que quelqu'un peut m'aider ? > > Merci d'avance > >
Merci Jacque93, ca marche... mais que la première fois !(?)
J'ai mis le code suivant : oSheet.HPageBreaks.Add Range(oSheet.Cells(Currow,
FirstCol), oSheet.Cells(CurrRow, LastCol))
Je lance l'appli, puis le print => tout est OK sous excel, y compris les
sauts de page...
Par contre, si je ne ferme pas mon appli, je ferme excel, je relance le
print => tout est OK sous excel sauf qu'il ne me fait plus les sauts de
pages(????)
Pourtant, je ferme bien tout mes objets comme vous pouvez le voir dans mon
premier message ...
Si vous parvenez à me sauver... là je m'arrache les cheveux
Merci Driss pour le conseil. Je vais essaye de voir ce que j'obtiens ...
"Driss HANIB" a écrit :
salut Cé-go
ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais
exactement les commandes que tu veux avoir, termine ta macro et va voir le
code généré par tes commandes et tu auras exactement (avec peut être une
adamptation) les lignes à mettre dans ton prog VB.
Driss
"Cé-go" <C-go@discussions.microsoft.com> a écrit dans le message de
news:0EAE42C6-C38B-4932-858C-D0FD7718B1C2@microsoft.com...
> Bonjour
>
> voila mon problème qui semble tout bête : je pilote une feuille excel
depuis
> VB avec mise en forme et tout et tout.
> Tout va bien sauf que je ne parviens pas à insérer un saut de page comme
il
> faut. (snif)
>
> Est ce que quelqu'un peut m'aider ?
>
> Merci d'avance
>
>
Merci Jacque93, ca marche... mais que la première fois !(?)
J'ai mis le code suivant : oSheet.HPageBreaks.Add Range(oSheet.Cells(Currow, FirstCol), oSheet.Cells(CurrRow, LastCol))
Je lance l'appli, puis le print => tout est OK sous excel, y compris les sauts de page...
Par contre, si je ne ferme pas mon appli, je ferme excel, je relance le print => tout est OK sous excel sauf qu'il ne me fait plus les sauts de pages(????)
Pourtant, je ferme bien tout mes objets comme vous pouvez le voir dans mon premier message ...
Si vous parvenez à me sauver... là je m'arrache les cheveux
Merci Driss pour le conseil. Je vais essaye de voir ce que j'obtiens ...
"Driss HANIB" a écrit :
salut Cé-go
ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais exactement les commandes que tu veux avoir, termine ta macro et va voir le code généré par tes commandes et tu auras exactement (avec peut être une adamptation) les lignes à mettre dans ton prog VB.
Driss
"Cé-go" a écrit dans le message de news: > Bonjour > > voila mon problème qui semble tout bête : je pilote une feuille excel depuis > VB avec mise en forme et tout et tout. > Tout va bien sauf que je ne parviens pas à insérer un saut de page comme il > faut. (snif) > > Est ce que quelqu'un peut m'aider ? > > Merci d'avance > >
Cé-go
Ca y est, j'ai trouvé le problème !
dans ma précédente ligne j'avais oublié de faire référence à osheet
le code devient : oSheet.HPageBreaks.Add Before:=OSHEET.Range(oSheet.Cells(CurrRow + 1, FirstCol), oSheet.Cells(CurrRow + 1, LastCol))
Merci à tous.
J'ai beaucoup apprécié les échanges. Maintenant que je suis inscrit, je vais venir régulièrement pour aider (si je peux)
"Cé-go" a écrit :
Merci Jacque93, ca marche... mais que la première fois !(?)
J'ai mis le code suivant : oSheet.HPageBreaks.Add Range(oSheet.Cells(Currow, FirstCol), oSheet.Cells(CurrRow, LastCol))
Je lance l'appli, puis le print => tout est OK sous excel, y compris les sauts de page...
Par contre, si je ne ferme pas mon appli, je ferme excel, je relance le print => tout est OK sous excel sauf qu'il ne me fait plus les sauts de pages(????)
Pourtant, je ferme bien tout mes objets comme vous pouvez le voir dans mon premier message ...
Si vous parvenez à me sauver... là je m'arrache les cheveux
Merci Driss pour le conseil. Je vais essaye de voir ce que j'obtiens ...
"Driss HANIB" a écrit :
> salut Cé-go > > ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais > exactement les commandes que tu veux avoir, termine ta macro et va voir le > code généré par tes commandes et tu auras exactement (avec peut être une > adamptation) les lignes à mettre dans ton prog VB. > > Driss > > "Cé-go" a écrit dans le message de > news: > > Bonjour > > > > voila mon problème qui semble tout bête : je pilote une feuille excel > depuis > > VB avec mise en forme et tout et tout. > > Tout va bien sauf que je ne parviens pas à insérer un saut de page comme > il > > faut. (snif) > > > > Est ce que quelqu'un peut m'aider ? > > > > Merci d'avance > > > > > > >
Ca y est, j'ai trouvé le problème !
dans ma précédente ligne j'avais oublié de faire référence à osheet
le code devient : oSheet.HPageBreaks.Add
Before:=OSHEET.Range(oSheet.Cells(CurrRow + 1, FirstCol),
oSheet.Cells(CurrRow + 1, LastCol))
Merci à tous.
J'ai beaucoup apprécié les échanges. Maintenant que je suis inscrit, je vais
venir régulièrement pour aider (si je peux)
"Cé-go" a écrit :
Merci Jacque93, ca marche... mais que la première fois !(?)
J'ai mis le code suivant : oSheet.HPageBreaks.Add Range(oSheet.Cells(Currow,
FirstCol), oSheet.Cells(CurrRow, LastCol))
Je lance l'appli, puis le print => tout est OK sous excel, y compris les
sauts de page...
Par contre, si je ne ferme pas mon appli, je ferme excel, je relance le
print => tout est OK sous excel sauf qu'il ne me fait plus les sauts de
pages(????)
Pourtant, je ferme bien tout mes objets comme vous pouvez le voir dans mon
premier message ...
Si vous parvenez à me sauver... là je m'arrache les cheveux
Merci Driss pour le conseil. Je vais essaye de voir ce que j'obtiens ...
"Driss HANIB" a écrit :
> salut Cé-go
>
> ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais
> exactement les commandes que tu veux avoir, termine ta macro et va voir le
> code généré par tes commandes et tu auras exactement (avec peut être une
> adamptation) les lignes à mettre dans ton prog VB.
>
> Driss
>
> "Cé-go" <C-go@discussions.microsoft.com> a écrit dans le message de
> news:0EAE42C6-C38B-4932-858C-D0FD7718B1C2@microsoft.com...
> > Bonjour
> >
> > voila mon problème qui semble tout bête : je pilote une feuille excel
> depuis
> > VB avec mise en forme et tout et tout.
> > Tout va bien sauf que je ne parviens pas à insérer un saut de page comme
> il
> > faut. (snif)
> >
> > Est ce que quelqu'un peut m'aider ?
> >
> > Merci d'avance
> >
> >
>
>
>
dans ma précédente ligne j'avais oublié de faire référence à osheet
le code devient : oSheet.HPageBreaks.Add Before:=OSHEET.Range(oSheet.Cells(CurrRow + 1, FirstCol), oSheet.Cells(CurrRow + 1, LastCol))
Merci à tous.
J'ai beaucoup apprécié les échanges. Maintenant que je suis inscrit, je vais venir régulièrement pour aider (si je peux)
"Cé-go" a écrit :
Merci Jacque93, ca marche... mais que la première fois !(?)
J'ai mis le code suivant : oSheet.HPageBreaks.Add Range(oSheet.Cells(Currow, FirstCol), oSheet.Cells(CurrRow, LastCol))
Je lance l'appli, puis le print => tout est OK sous excel, y compris les sauts de page...
Par contre, si je ne ferme pas mon appli, je ferme excel, je relance le print => tout est OK sous excel sauf qu'il ne me fait plus les sauts de pages(????)
Pourtant, je ferme bien tout mes objets comme vous pouvez le voir dans mon premier message ...
Si vous parvenez à me sauver... là je m'arrache les cheveux
Merci Driss pour le conseil. Je vais essaye de voir ce que j'obtiens ...
"Driss HANIB" a écrit :
> salut Cé-go > > ce que tu peux faire c'est, dans Excel, crée une nouvelle macro et fais > exactement les commandes que tu veux avoir, termine ta macro et va voir le > code généré par tes commandes et tu auras exactement (avec peut être une > adamptation) les lignes à mettre dans ton prog VB. > > Driss > > "Cé-go" a écrit dans le message de > news: > > Bonjour > > > > voila mon problème qui semble tout bête : je pilote une feuille excel > depuis > > VB avec mise en forme et tout et tout. > > Tout va bien sauf que je ne parviens pas à insérer un saut de page comme > il > > faut. (snif) > > > > Est ce que quelqu'un peut m'aider ? > > > > Merci d'avance > > > > > > >
