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

 


 Mot :   Pseudo :  
 
 Page :   1  2
Page Suivante
Auteur Sujet :

Macros MS Publisher 2007 (Topic Unique ?)

n°2429615
rufo
Pas me confondre avec Lycos!
Posté le 18-10-2022 à 15:01:38  profilanswer
 

Reprise du message précédent :

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:  


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
mood
Publicité
Posté le 18-10-2022 à 15:01:38  profilanswer
 

n°2429625
slr56
Tout problème a sa solution.
Posté le 18-10-2022 à 15:54:00  profilanswer
 

 

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


Message édité par slr56 le 18-10-2022 à 15:54:19

---------------
Configurations type du moment : https://forum.hardware.fr/hfr/Hardw [...] 1331_1.htm  https://www.jouannetphotographe.com
n°2429631
rufo
Pas me confondre avec Lycos!
Posté le 18-10-2022 à 17:14:38  profilanswer
 

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.


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2429649
demars
Posté le 18-10-2022 à 17:59:27  profilanswer
 

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.

Message cité 1 fois
Message édité par demars le 18-10-2022 à 17:59:56
n°2429655
rufo
Pas me confondre avec Lycos!
Posté le 18-10-2022 à 19:18:04  profilanswer
 

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. ;)


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2429656
MaybeEijOr​Not
but someone at least
Posté le 18-10-2022 à 19:27:00  profilanswer
 

Win3.1 sur un DD démarre aussi vite que Win10/11 avec un SSD. :kaola:


---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.
n°2429663
demars
Posté le 18-10-2022 à 20:57:57  profilanswer
 

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...

n°2429710
gatsu35
Blablaté par Harko
Posté le 19-10-2022 à 15:02:21  profilanswer
 

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


---------------
Blablaté par Harko
n°2429712
demars
Posté le 19-10-2022 à 15:55:08  profilanswer
 

gatsu35 a écrit :


pas win 8 mais Win 10 ça le fera


Ah oui ? C'est mieux optimisé ?

n°2429714
rufo
Pas me confondre avec Lycos!
Posté le 19-10-2022 à 16:01:34  profilanswer
 

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


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
mood
Publicité
Posté le 19-10-2022 à 16:01:34  profilanswer
 

n°2429715
demars
Posté le 19-10-2022 à 16:03:17  profilanswer
 

rufo a écrit :

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


oui, je sais  

Spoiler :

:o

n°2429720
gatsu35
Blablaté par Harko
Posté le 19-10-2022 à 16:46:35  profilanswer
 

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

Message cité 2 fois
Message édité par gatsu35 le 19-10-2022 à 16:47:03

---------------
Blablaté par Harko
n°2429725
demars
Posté le 19-10-2022 à 16:53:19  profilanswer
 

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.


Message édité par demars le 19-10-2022 à 16:53:57
n°2429748
rufo
Pas me confondre avec Lycos!
Posté le 19-10-2022 à 18:51:27  profilanswer
 

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:


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2429751
demars
Posté le 19-10-2022 à 18:55:31  profilanswer
 

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 !)


Message édité par demars le 19-10-2022 à 18:55:55
n°2429769
rufo
Pas me confondre avec Lycos!
Posté le 19-10-2022 à 20:30:23  profilanswer
 

Win8 était quand même vachement plus abouti que Win ME ;)


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2429772
gatsu35
Blablaté par Harko
Posté le 19-10-2022 à 20:48:24  profilanswer
 

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.

Message cité 1 fois
Message édité par gatsu35 le 19-10-2022 à 20:49:01

---------------
Blablaté par Harko
n°2429780
demars
Posté le 19-10-2022 à 21:30:26  profilanswer
 

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

n°2429781
rufo
Pas me confondre avec Lycos!
Posté le 19-10-2022 à 21:41:51  profilanswer
 

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:


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2429789
rat de com​bat
attention rongeur méchant!
Posté le 20-10-2022 à 00:45:24  profilanswer
 

Vous savez, il y a le manchot aussi si vous en avez marre des caprices Microsoft. :o :o :o

n°2429841
demars
Posté le 20-10-2022 à 12:26:16  profilanswer
 

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 !

n°2430488
demars
Posté le 27-10-2022 à 22:15:49  profilanswer
 

[: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 !)

n°2431934
demars
Posté le 10-11-2022 à 20:05:48  profilanswer
 

[: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:


Message édité par demars le 10-11-2022 à 20:06:21
n°2431949
rufo
Pas me confondre avec Lycos!
Posté le 10-11-2022 à 23:04:42  profilanswer
 

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.


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2431997
demars
Posté le 11-11-2022 à 13:11:46  profilanswer
 

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' .

n°2432008
rufo
Pas me confondre avec Lycos!
Posté le 11-11-2022 à 13:49:18  profilanswer
 

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


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2432009
demars
Posté le 11-11-2022 à 14:04:43  profilanswer
 

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:

mood
Publicité
Posté le   profilanswer
 

 Page :   1  2
Page Suivante

Aller à :
Ajouter une réponse
 

Sujets relatifs
[BATCH MS-DOS] Code retour ERRORLEVEL différent suivant mode lancementPiloté en VBA, Word 2013 se comporte différemment que Word 2007/10
Souci de conversion de code 2007 vers 2013[Divers]Cherche compileur C++ sur MS Windows 7 32bits : => portmidi
Build sur Gnu/Linux pour MS Windows et/ou MacSelection de valeurs d'un champ TCD fonctionne sur 2007 mais pas 2010
[Excel 2007] Problème pour trouver le nombre de ligne d'une feuilleProblème Macro excel 2007
Boucle et opération sur string en MS-DOSComment répartir aléatoirement 500h par an avec EXCEL 2007?
Plus de sujets relatifs à : Macros MS Publisher 2007 (Topic Unique ?)


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