Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1090 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macros MS Publisher 2007 (Topic Unique ?)

 
 



Dernière réponse
Sujet : Macros MS Publisher 2007 (Topic Unique ?)
demars Ouais, donc le "problème" vient du Add.
La seule solution est donc If Npages1>1 ou pas. OK, je fais ça cet après midi :)
:jap:

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
demars Ouais, donc le "problème" vient du Add.
La seule solution est donc If Npages1>1 ou pas. OK, je fais ça cet après midi :)
:jap:
rufo Ben c'est normal. Tu as au départ forcément une page X et une page Y (donc 1 et 1).
Dans le Add, à chaque fois, on a Count:=(Npage - 1). Donc, si Npage = 2, tu vas avoir une seule duplication de la page, tu te retrouveras avec 1+ (2-1) = 2 exemplaires de la page X (et même chose pour Y).
Si Npage = 1, tu veux donc que 1 exemplaire de la page X, donc, pas de duplication (Add) puisque tu l'as déjà. :o
demars Merci :jap:
Ce qui est tout de même "bizarre", c'est que la duplication fonctionne si n>1, mais pas si n=1. Comme résultat on a donc soit 2 soit 0 !
Je vais voir le nouveau code cet aprèm' .
rufo Ben si tu veux qu'une seule page de la page X, il ne faut pas exécuter l'instruction qui ajoute une page X (qui porterait donc à 2 pages X dans le PDF). Les instructions 14 et 17 doivent donc être exécutées si Npage1 est > 1 pour l'instruction 17 et si Npage2 > 1 pour l'instruction 14.
demars [:louisledeboucheur]
J'ai un petit souci que je n'arrive pas à démêler avec ma macro qui permet de reproduire 2 pages en X et Y exemplaires.
Ca fonctionne bien SAUF quand je veux UN seul exemplaire d'une des 2 pages !

Code :
  1. Sub Sauver2PagesPDF_Box()
  2.     Dim chemin, pdfpath As String, page1, page2, PageNew1, PageNew2 As Page, Tempo As New Publisher.Application, _
  3.     Npage1, Npage2 As Long
  4.         Set page1 = ActiveDocument.Pages(1)
  5.         Set page2 = ActiveDocument.Pages(2)
  6.             chemin = ActiveDocument.Name
  7.             pdfpath = Left(chemin, Len(chemin) - 3)
  8.             Npage1 = InputBox("Combien de page1 ?", "Titre", 1)
  9.             Npage2 = InputBox("Combien de page2 ?", "Titre", 1)
  10.                 Tempo.Open Filename:="D:\Ecole\Autres\_Classe_\Imprimer\test.pub"
  11.                     With ActiveDocument
  12.                         .Pages(2).Shapes.Range.Copy
  13.                             Tempo.ActiveDocument.Pages(2).Shapes.Paste
  14.                             Set PageNew2 = Tempo.ActiveDocument.Pages.Add(Count:=(Npage2 - 1), After:=2, DuplicateObjectsOnPage:=2)
  15.                         .Pages(1).Shapes.Range.Copy
  16.                             Tempo.ActiveDocument.Pages(1).Shapes.Paste
  17.                             Set PageNew1 = Tempo.ActiveDocument.Pages.Add(Count:=(Npage1 - 1), After:=1, DuplicateObjectsOnPage:=1)
  18.                     End With
  19.                 Tempo.ActiveDocument.ExportAsFixedFormat pbFixedFormatTypePDF, _
  20.                     "D:\Ecole\Autres\_Classe_\Imprimer\" & pdfpath & "pdf"
  21.             Tempo.ActiveDocument.Close
  22.         Set Tempo = Nothing
  23. ActiveDocument.Save
  24. End Sub


Les lignes 14 et 17 indiquent le nombre de pages à créer dans le fichier temporaire. Mais si l'on met 1, ça fait 0 (1-1) et donc ça bugge !
Si je mets 2, j'ai bien 2 exemplaires !
Où puis-je donc m'être trompé ??

 

:jap:
demars [:louisledeboucheur]  
Bon, j'ai amélioré le processus en rajoutant une boîte de dialogue au début de la macro, qui permet de demander combien de page1, de page2. Faudrait que je fasse ça au top en mettant une boucle, mais bon, vu mon objectif, c'est suffisant. Ptêt que je mettrai une 3ème page, mais bon...
 
Prochain objectif, que la macro soit cliquable directement sur un bouton dans la 1ère page. Pour l'instant, j'ai pas trouvé (alors que dans Excel, ça prend 5 secondes...)
 
J'ai aussi mis la FP à jour, des fois que certains cherchent de la macro publisher (la page a été lue 2000 fois pour 60 messages, y a ptêt des clients !)
demars Bon, vu que ça part en HS, il faut que je pense à trouver un truc nouveau à faire pour mes macro Publisher  [:eraser17]  
Je mets tout ça à jour d'ici ce week-end !
rat de combat Vous savez, il y a le manchot aussi si vous en avez marre des caprices Microsoft. :o :o :o
rufo

gatsu35 a écrit :


C'est ce que je dis, un windows sur deux était merdique pour certaines version, à chaque fois que MS proposait un changement.
 
 
Win 98 => winME => Win XP => Vista => Win 7 => Win 8 => Win 10 => Win 11
 
Win Me : le roi des écrans bleus, n'apportait pas grand chose par rapport à Win98, mais surtout plein d'instabilité
Vista : Il est sorti avec une super interface Aero, mais alors ce truc était putain de lent, mais putain de lent, et buggé
Win 8 : Il a apporté un changement d'interface avec l'interface metro et le système de tuiles à la con pour faire comme sur les tablettes. Il avait viré le menu démarré et tout le monde s'est plaint, il a fallu attendre une v2 pour qu'ils daignent nous rendre le menu
Win 11 : Il est arrivé avec pas mal d'incompatibilités, et aussi un putain de dock et pleins de fonctionnalités en moins au niveau de l'interface. En somme ils ont merdé.
 
J'ai l'impression qu'ils font exprès.


1 sur 2 est foireux. MS fait des tests de changements d'architecture/paradigme. Ils voient ce qui plaît pas et corrigent dans l'OS suivant. POur rappel, MS avait dit que Win10 était le dernier OS... Et il y a eu Win11  :sarcastic:

demars Et encore, on a échappé à Win9 :o :o :o
gatsu35

rufo a écrit :


Quelle hérésie ! Win ME était une bouze infâme qui n'a jamais marché contrairement à WinXP qui tenait la route  :kaola:


C'est ce que je dis, un windows sur deux était merdique pour certaines version, à chaque fois que MS proposait un changement.
 
 
Win 98 => winME => Win XP => Vista => Win 7 => Win 8 => Win 10 => Win 11
 
Win Me : le roi des écrans bleus, n'apportait pas grand chose par rapport à Win98, mais surtout plein d'instabilité
Vista : Il est sorti avec une super interface Aero, mais alors ce truc était putain de lent, mais putain de lent, et buggé
Win 8 : Il a apporté un changement d'interface avec l'interface metro et le système de tuiles à la con pour faire comme sur les tablettes. Il avait viré le menu démarré et tout le monde s'est plaint, il a fallu attendre une v2 pour qu'ils daignent nous rendre le menu
Win 11 : Il est arrivé avec pas mal d'incompatibilités, et aussi un putain de dock et pleins de fonctionnalités en moins au niveau de l'interface. En somme ils ont merdé.
 
J'ai l'impression qu'ils font exprès.
rufo Win8 était quand même vachement plus abouti que Win ME ;)
demars

rufo a écrit :


Quelle hérésie ! Win ME était une bouze infâme qui n'a jamais marché contrairement à WinXP qui tenait la route  :kaola:


C'est ce qu'il dit, non ? (j'ai eu XP super longtemps, j'ai eu du mal à m'en séparer !)
rufo

gatsu35 a écrit :

Win8 est à win10 ce que windows vista est à Win 7 ou win ME à win XP


Quelle hérésie ! Win ME était une bouze infâme qui n'a jamais marché contrairement à WinXP qui tenait la route  :kaola:

demars

gatsu35 a écrit :

Win8 est à win10 ce que windows vista est à Win 7 ou win ME à win XP


OK, je vois :D

 

Ce sont mes collègues qui ont eu du Win8, moi je suis passé du Win7 à Win10 à mon boulot.
gatsu35 Win8 est à win10 ce que windows vista est à Win 7 ou win ME à win XP
demars

rufo a écrit :

C'est pas le propos. Win8 n'est plus supporté :o


oui, je sais  

Spoiler :

:o
rufo C'est pas le propos. Win8 n'est plus supporté :o
demars

gatsu35 a écrit :


pas win 8 mais Win 10 ça le fera


Ah oui ? C'est mieux optimisé ?
gatsu35

demars a écrit :


Alors :
- Mon PC en 2013 n'était pas un top rapidité, mais un PC très protégé (antivirus, adblock, anti-malware) + une certaine qualité de matériel même si pas de dernière mode. Passer en Win 8 aurait été trop difficile vis à vis de la RAM je pense (4 Go), et puis Win7 marchait très bien.
- pour les sites internets plus lourds, plus gros, plus "dynamiques", je suis bien obligé de passer parfois par un Chrome qui est bien plus "souple" que mon FF ultra-protecteur, mais c'est assez limité. Les vrais bons sites importants (impôts par exemple) sont très bien sous FF et n'ont pas whatmille cookies d'on sait pas où.
- le truc qui me fait peur, comme la fois précédente, c'est le crash du DD. Mes données sont sauvegardées ailleurs (et n'ont pas une importance si extraordinaire) mais il faudrait racheter un PC probablement. A 400 €, c'est pas si énorme non plus (mon dernier m'avait coûté 350 € (sans écran) à monter moi-même chez LDLC ;) )
Le prochain PC est prévu pour dans pas longtemps, ce serait logique.


pas win 8 mais Win 10 ça le fera
demars

rufo a écrit :

Vieux PC --> remplacement du HDD par un SSD à 20€ (120 Go) + passage en Win10, même avec 2 Go de RAM, ça le fait très bien si c'est pour de la bureautique. ;)


Oui, un SSD, ce serait bien (j'ai ça sur le portable de ma femme), mais tout de même une carte vidéo un peu plus récente serait pas du luxe.
Cela dit, à y réfléchir, je vois pas trop ce qui pourrait bien me faire "envie", contrairement à il y a 20 ans :D  J'ai pas vraiment de besoins importants.
Je crois que ce qui me fera un peu attendre, c'est de savoir que certains logiciels que j'utilise, et qui sont très pratiques, ne fonctionneront plus sous Win10...
MaybeEijOrNot Win3.1 sur un DD démarre aussi vite que Win10/11 avec un SSD. :kaola:
rufo Vieux PC --> remplacement du HDD par un SSD à 20€ (120 Go) + passage en Win10, même avec 2 Go de RAM, ça le fait très bien si c'est pour de la bureautique. ;)
demars

TotalRecall a écrit :

Un PC ça ne ralentit pas avec le temps (enfin sauf si on y installe des tas de saloperies), ça devient juste obsolète avec l'apparition des nouveaux logiciels et besoins.
Donc si toi tu en fais la même chose qu'il y a 10 ans, il fonctionnera de façon toute aussi satisfaisante qu'à l'époque [:spamafote].

 

Concernant les failles logicielles, 99% des risques sont liés à l'utilisation, si ton PC est derrière un routeur correctement configuré et que tu ne lances pas toutes les saloperies que tu reçois par mail, ça ne risque pas grand chose même avec un vieil OS.
Et l'âge du PC n'empêche pas d'avoir un firewall et/ou un antivirus correctement mis à jour.

 

A la rigueur tu aurais pu faire l'upgrade en Windows 8 ou supérieur, mais je comprends que tu ne veuilles pas changer un truc qui fonctionne pour tes besoins.

 

Je simplifie en excluant les trucs genre : risques de panne accru avec l'âge, sites Internet de plus en plus lourds, logiciels qui se mettent à jour tous seuls de plus en plus lourds aussi... Sinon le débat devient sans fin.


Alors :
- Mon PC en 2013 n'était pas un top rapidité, mais un PC très protégé (antivirus, adblock, anti-malware) + une certaine qualité de matériel même si pas de dernière mode. Passer en Win 8 aurait été trop difficile vis à vis de la RAM je pense (4 Go), et puis Win7 marchait très bien.
- pour les sites internets plus lourds, plus gros, plus "dynamiques", je suis bien obligé de passer parfois par un Chrome qui est bien plus "souple" que mon FF ultra-protecteur, mais c'est assez limité. Les vrais bons sites importants (impôts par exemple) sont très bien sous FF et n'ont pas whatmille cookies d'on sait pas où.
- le truc qui me fait peur, comme la fois précédente, c'est le crash du DD. Mes données sont sauvegardées ailleurs (et n'ont pas une importance si extraordinaire) mais il faudrait racheter un PC probablement. A 400 €, c'est pas si énorme non plus (mon dernier m'avait coûté 350 € (sans écran) à monter moi-même chez LDLC ;) )
Le prochain PC est prévu pour dans pas longtemps, ce serait logique.
rufo C'est sur un réseau mais pas internet (ligne spécialisée) :o
Et c'est pas moi, je ne travaille pas sur les systèmes concernés.
slr56

rufo a écrit :


heu... :whistle:

 

Ils ont (Tu as :o)  osé le faire dans ta boite ?  :pt1cable:

rufo

slr56 a écrit :


 
 
A la différence près, c'est ce que ce Windows 3.1 n'est pas en réseau contrairement au PC Windows 7 de ce topic.
 


heu... :whistle:  

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR