pcsoft.fr.windevCopyright 2026, PC SOFT3 Mar 2020 15:07:33 Z28 Feb 2020 10:56:52 ZBonjour, Nous avons du très vieux code (ca date de 2002, crée par mon prédécesseur) qui nous permet de faire du publipostage pour faire des étiquettes produit (on crée un nombre illimité pour différents raisons/clients/produits à la carte et ont une bibliothèque des "modèles" étiquette.) Ce code utilise écrit des données dans un nouveau document Word, puis il remplace un fichier word " base de données " qui est le document source de tous nos modèles d'étiquettes existantes. Le problème aujourd'hui c'est qu'il n'y pas une personne mais trois qui impriment les étiquettes et s'ils font en même temps, personne A rempli le fichier BDD et avant qu'il puisse imprimer ses étiquettes personne B vient et écrase le fichier de BDD avec d'autres données. Alors les données de personne B impriment chez personne A. J'aimerais protegee ce document BDD quand personne A le enregistre, et le déprotéger quand il aurait fini d'imprimer. Je ne peux pas utiliser fbloque je pense parce que je n'ouvre pas le document en question, je l'écrase. Je pense qu'il faut utiliser protect/unprotect mais je ne sais pas trop le faire (j'essaie ici) Tous mes essais avait des erreurs :) Avec ce code ci, j'ai une erreur sur unprotect, en disant que mon fichier est déjà déprotégé, peut-être parce que je ferme au milieu pour jongler entre documents actives? Merci pour votre aide, Voici le code, c'est SAI_DOCUMENTBDD que je dois protéger: SI SAI_DOCUMENTBDD="" ALORS Info("Aucune base de données n'a été sélectionné") RepriseSaisie(SAI_DOCUMENTBDD) RETOUR FIN // vérifie existence du fichier BDD SI fRep(SAI_DOCUMENTBDD,frFichier)="" ALORS Erreur("La base de données " +SAI_DOCUMENTBDD+" est introuvable") RETOUR FIN NomDocument=SAI_DOCUMENT //nom du document sélectionné //vérifie si un modèle est sélectionné SI NomDocument="" ALORS Info("Aucun modèle n'a été sélectionné") RepriseSaisie(SAI_DOCUMENT) RETOUR FIN // vérifie existence du modèle SI fRep(NomDocument,frFichier)="" ALORS Erreur("Le modèle " +NomDocument+" est introuvable") RETOUR FIN BTN_Ferme..Etat = Grisé; BTN_Ferme..Visible=Vrai Sablier(Vrai) Message("Préparations des enregistrements à imprimer") //Ajout de la ligne de titre- Si on ajoute des champs ici il faut ajouter des colonnes dans bdetiq.doc qui devient plein horizontalement ch_listeetiq="Annee"+TAB+"RefProduitClient"+TAB+"NomProduit1"+TAB+"NomProduit2"+TAB+"NomClient"+TAB+"NumeroEtiq"+... TAB+"NumCde"+TAB+"posteCde"+TAB+"CodeProduit"+TAB+"Dimension1"+TAB+"Dimension2"+TAB+"Dimension3"+... TAB+"Caract1"+TAB+"Semaine"+TAB+"SAI_REFCDECLI"+TAB+"SAI_VPOSTE"+TAB+"SAI_MARQUAGE"+TAB+"SAI_AnneePeremption"+TAB+"Mois"+TAB+"Trimestre"+TAB+"SAI_PAS"+TAB+"SAI_QTEDEM" nNbCol=ChaîneOccurrence(ch_listeetiq,TAB)+1 //on compte le nombre de colonnes en comptant les tabs + 1 NbLig=SAI_NbreEtiq SI NbLig=0 ALORS RepriseSaisie(SAI_NbreEtiq) SI NbLig>0 ALORS SI PAS InitWord(gMail,WordVisible) ALORS Message() Sablier(Faux) BTN_Ferme..Etat = Actif; BTN_Ferme..Visible=Vrai //Ferme les documents gMail>>Documents>>close(OLEFalse) //Fermer Word Message("Fermeture de Word") gMail>>Quit() libérer gMail RETOUR FIN //---------DEBUT Préparation du document de données pour fusion------------// POUR i1=1 À SAI_NbreEtiq Message("Préparation du document de fusion") //Sélectionne uniquement les clients sélectionnés SI NomFichier = "CDELIG" ALORS sLignecmde = CDELIG.CLELIG SINON sLignecmde = F_CMDEINTERNE.CLELIG FIN SI PAS InfoPosteCmde(sLignecmde,UnClient,SAI_NumEtiqDeb+i1-1) ALORS Info("Poste de commande non trouvé") RETOUR SINON SI Taille(ch_listeetiq)+Taille(UnClient)>(32*1024) ALORS //Capacité maximum atteinte //Limite des chaines de caractères du VBA PrepareFusion(nNbCol,ch_listeetiq) ch_listeetiq=UnClient SINON //+= prépare ch_listeetiq +=RC+UnClient FIN FIN FIN SI ch_listeetiq<>"" ALORS //Fin de la liste PrepareFusion(nNbCol,ch_listeetiq) ch_listeetiq="" FIN //Voir ici si document en utilisation et sinon protege le //Enregistrer le document sous le nom "bdetiq.doc" QUAND EXCEPTION DANS gMail>>ActiveDocument>>SaveAs(SAI_DOCUMENTBDD) gMail>>Documents>>open(SAI_DOCUMENTBDD,OLEFaux,OLEFaux) //SAI_DOCUMENTBDD SI gMail>>ActiveDocument>>ProtectionType=2 ALORS Info("Document en cours d'utilisation par "+gMail>>ActiveDocument>>BuiltInDocumentProperties(3)>>value()) SINON gMail>>ActiveDocument>>protect(2,True,"password") FIN FAIRE Erreur("Impossible de faire le publipostage. Vérifier que le fichier "+SAI_DOCUMENTBDD +" est fermé et non utilisé et réessayer."+RC+RC,ExceptionInfo()) RETOUR FIN //---------FIN Préparation du document de données pour fusion------------// //---------DEBUT Préparation de la fusion------------// //Fermeture des documents Word gMail>>Documents>>close(OLEFalse) Multitâche(-30) Message("Ouverture de la lettre type") QUAND EXCEPTION DANS //Ouverture de la lettre type gMail>>Documents>>open(NomDocument,OLEFaux,OLEFaux) //SAI_DOCUMENT Multitâche(-30) Message("Fusion") FAIRE Erreur("Impossible d'ouvrir le document. Vérifiez qu'il n'est pas déjà ouvert et que vous avez paramétré votre ordinateur(onglet Paramétrage du poste)."+RC+ExceptionInfo()) RETOUR FIN //Prépare le publipostage vers un nouveau document QUAND EXCEPTION DANS gMail>>ActiveDocument>>MailMerge>>Destination=wdSendToNewDocument Multitâche(-30) // on fusionne vers un nouveau document gMail>>ActiveDocument>>MailMerge>>Execute(OLEFaux) Multitâche(-30) FAIRE Erreur("Impossible de faire le publipostage.",ExceptionInfo()) RETOUR FIN //---------FIN Préparation de la fusion------------// //Fermeture des documents Word SAI_DOCUMENT (modèle d'étiquette) QUAND EXCEPTION DANS gMail>>Documents>>Item(NomDocument)>>close(wdDoNotSaveChanges) FAIRE Erreur("Erreur sur le fermeture automatique de modèle d'étiquettes.",ExceptionInfo()) RETOUR FIN SI INT_APERCU = Faux ALORS //on imprime directement //Imprimer sur Lettres Type1 QUAND EXCEPTION DANS gMail>>ActiveDocument>>printout //Fermer Lettres Type 1 gMail>>Documents>>Item("Lettres Types1")>>close(wdDoNotSaveChanges) FAIRE Erreur("Erreur sur l'impression et fermeture de document des étiquettes crée.",ExceptionInfo()) RETOUR FIN FIN //deproteger le document gMail>>Documents>>open(SAI_DOCUMENTBDD,OLEFaux,OLEFaux) //SAI_DOCUMENTBDD gMail>>ActiveDocument>>unprotect("password") gMail>>Documents>>close(OLEFalse) libérer gMail //temp gris pour test30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)KC76pcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237437/read.awp3 Mar 2020 15:07:33 ZLe problème c'est le nombre de modèles déjà existantes et le fait que les étiquettes peuvent être tellement différent dans chaqu…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237437/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237437/read.awpProtéger un document wordVoroltinquopcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237433/read.awp3 Mar 2020 12:11:33 ZIl y a aussi la possibilité de créer un état étiquette basé sur un fichier texte -- Il y a peut être plus simple, mais, ça t…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237433/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237433/read.awpProtéger un document wordKC76pcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237430/read.awp3 Mar 2020 10:59:44 Zou bien changer la source dans le code, j'essaie avec gMail>>MailMerge>>OpenDataSource>>Name= SAI_DOCUMENTBDD avant gMa…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237430/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237430/read.awpProtéger un document wordKC76pcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237423/read.awp3 Mar 2020 09:16:52 ZBonjour, C'est ca presque que je voulais faire, mais comment je gère la source de données dans les document modèles du publipost…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237423/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237423/read.awpProtéger un document wordVoroltinquopcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237417/read.awp2 Mar 2020 18:08:39 ZKC76 a écrit : > ca ne serait pas compliqué d'assurer que les bonnes étiquettes sortent au bon endroit? > Es-tu allé regarde…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237417/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237417/read.awpProtéger un document wordPascal FERRACCIpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237411/read.awp2 Mar 2020 15:23:02 ZBonjour, Générer un nom unique par utilisateur pour le document word soit an ajoutant un GUID au nom initial, soit en ajoutant …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237411/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237411/read.awpProtéger un document wordKC76pcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237397/read.awp2 Mar 2020 09:23:16 ZMerci de votre idée, Je n'ai pas précisé, mais chaque personne a son logiciel qui tourne sur son pc avec imprimante local (t…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237397/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237397/read.awpProtéger un document wordtestpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237377/read.awp28 Feb 2020 16:09:13 Zplutot que de protéger le document word, tu peux créer une file d'attente et ne faire qu'un seul mailmerge à la fois 1. tu extr…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237377/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237377/read.awpProtéger un document wordKC76pcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237369/read.awp28 Feb 2020 12:43:44 ZNon, je n'ai pas pensé, je regarderai ca lundi, je ne n'utilise pas du tout groupware utilisateur pour le moment. mercihttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237369/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237369/read.awpProtéger un document wordVoroltinquopcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237367/read.awp28 Feb 2020 11:36:40 ZBonjour, As tu pensé au groupware utilisateur. Le premier utilisateur serait dans un groupe "temporaire" qui aurait les droits…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237367/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237362-proteger-document-word-237367/read.awpProtéger un document word