[Résolu][Writer] Nom de fichier automatique.
Modérateur : Vilains modOOs
Règles du forum
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
[Résolu][Writer] Nom de fichier automatique.
Bonjour le Forum.
Je voudrais si cela est possible que le nom du fichier soit automatiquement issu de valeurs présentes dans ce fichier.
Tout sera beaucoup plus clair avec le fichier joint.
D'avance merci.
Je voudrais si cela est possible que le nom du fichier soit automatiquement issu de valeurs présentes dans ce fichier.
Tout sera beaucoup plus clair avec le fichier joint.
D'avance merci.
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Dernière modification par WD_And_Co le 11 juin 2018 17:01, modifié 2 fois.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- GourOOu
- Messages : 9362
- Inscription : 18 juil. 2008 15:29
- Localisation : F-Oise + F-Savoie
Re: [Writer] Nom de fichier automatique.
AOO 4.1.15 et LibO stable 7.6.6 / macOS Intel 13.6.6 Ventura
Adoptium-temurinJDK-jre_1.8.0_402 / Firefox/Safari/Thunderbird /Time Machine+cloneCCC
Tutoriels du forum pour macOS
Pour sauvegarder vos documents c'est ceinture ET bretelles
Adoptium-temurinJDK-jre_1.8.0_402 / Firefox/Safari/Thunderbird /Time Machine+cloneCCC
Tutoriels du forum pour macOS
Pour sauvegarder vos documents c'est ceinture ET bretelles
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum
Merci Tintin, pour cette piste, mais j'avoue ne rien y comprendre, ni même comment déclencher cette macro.
Je l'ai intégré a mon fichier, mais rien ne change.
Merci Tintin, pour cette piste, mais j'avoue ne rien y comprendre, ni même comment déclencher cette macro.
Je l'ai intégré a mon fichier, mais rien ne change.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- SuppOOrter
- Messages : 1214
- Inscription : 06 avr. 2016 07:26
Re: [Writer] Nom de fichier automatique.
Bonjour,
Le contexte d'utilisation n'est pas très clair mais, à tout hasard, s'il s'agit de publipostage, il est possible d'utiliser un champ de base de données (même non inclus dans le document) comme nom de sauvegarde du ou des documents fusionnés.
Cordialement.
Le contexte d'utilisation n'est pas très clair mais, à tout hasard, s'il s'agit de publipostage, il est possible d'utiliser un champ de base de données (même non inclus dans le document) comme nom de sauvegarde du ou des documents fusionnés.
Cordialement.
AOOo 4.1.7 sur Win10
AOOo 4.1.x sur Linux Mint
LibreOffice 5.x/6.x sur Linux Mint
--
▼ | « Nos défauts devraient nous donner une qualité : l'indulgence pour les défauts des autres » (Rivarol)
AOOo 4.1.x sur Linux Mint
LibreOffice 5.x/6.x sur Linux Mint
--
▼ | « Nos défauts devraient nous donner une qualité : l'indulgence pour les défauts des autres » (Rivarol)
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum
Non ce n'est pas du publipostage, mais effectivement un champ nommé Ref issu d'une base me sert à remplir une partie Ref de la lettre, voir l'exemple joint. Aussi j'aimerai que le changement de valeur du champs Ref change le nom du fichier .
Non ce n'est pas du publipostage, mais effectivement un champ nommé Ref issu d'une base me sert à remplir une partie Ref de la lettre, voir l'exemple joint. Aussi j'aimerai que le changement de valeur du champs Ref change le nom du fichier .
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Writer] Nom de fichier automatique.
Bonjour
Sans la base de données, difficile de te répondre efficacement.
Après pas sûr d'avoir tout compris
Tu peux tester à partir de ton fichier exempleA+
Sans la base de données, difficile de te répondre efficacement.
Après pas sûr d'avoir tout compris
Tu peux tester à partir de ton fichier exemple
Code : Tout sélectionner
Sub Main
Dim oDoc as Object,lesChamps As Object, unChamp As Object
Dim refer as String, laDate as String, NomFichier as String, Adresse as Variant
oDoc = thisComponent
Adresse = Split(oDoc.URL,"/")
Adresse(UBound(Adresse)) = ""
Adresse = Join(Adresse,"/")
refer = oDoc.TextFieldMasters.getByName("com.sun.star.text.fieldmaster.DataBase.Adresses.Contacts.Refer").DependentTextFields(0).Content
lesChamps = oDoc.TextFields.createEnumeration
Do While lesChamps.hasMoreElements
unChamp = lesChamps.NextElement
If unChamp.supportsService("com.sun.star.text.textfield.DateTime") Then
If unChamp.NumberFormat = 10107 Then
laDate = unchamp.Anchor.String
End If
End If
Loop
NomFichier = refer & laDate
adresseDoc = convertToURL(Adresse & NomFichier & ".odt")
oDoc.storeToURL(adresseDoc, Array() )
End Sub
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum
J'ai enfin je pense intégré la Macro à mon fichier exemple. Que je joint à nouveau.
A priori cela fonctionne, car j'ai bien un fichier qui c'est créé avec le bon nom.
1) Le nom du fichier dans la fenêtre de saisie du texte ne change pas ?
2) Quand cette macro se déclenche ?
J'ai passé par exécuté je ne sais pas si c'est bien comme cela qu'il faut faire.
En tout cas bravo.
J'ai enfin je pense intégré la Macro à mon fichier exemple. Que je joint à nouveau.
A priori cela fonctionne, car j'ai bien un fichier qui c'est créé avec le bon nom.
1) Le nom du fichier dans la fenêtre de saisie du texte ne change pas ?
2) Quand cette macro se déclenche ?
J'ai passé par exécuté je ne sais pas si c'est bien comme cela qu'il faut faire.
En tout cas bravo.
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Writer] Nom de fichier automatique.
Re
A+
Oui avec les seuls éléments dont on dispose pour te répondre.WD_And_Co a écrit :J'ai passé par exécuté je ne sais pas si c'est bien comme cela qu'il faut faire.
+1[color=#FF8000]Hubert Lambert[/color] a écrit :Le contexte d'utilisation n'est pas très clair
S'il ne s'agit que d"'un enregistrement spécifique pourquoi ne pas créer directement un formulaire qui affiche les informations voulues ?Piaf a écrit :Sans la base de données
A+
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum
Voici comment j'utilise ce fichier.
Pour mettre le destinataire avec adresse, vos Ref, Nos Ref etc...
Je clique sur la pile de pièces pour ouvrir ma base, puis je choisit la ligne qui me convient, puis copie les données en cliquant sur la lettre munie d'un + vert est un rectangle bleu.
Puis je ferme avec base avec de nouveau un clique sur la pile de pièces.
Une fois la lettre terminée je lance votre macro avec Exécuté.
Un bouton serait le top, mais il ne doit être présent que sur la barre d'outil Writer.
Si l'utilisation formulaire est plus pratique. Pourquoi pas.
Voici comment j'utilise ce fichier.
Pour mettre le destinataire avec adresse, vos Ref, Nos Ref etc...
Je clique sur la pile de pièces pour ouvrir ma base, puis je choisit la ligne qui me convient, puis copie les données en cliquant sur la lettre munie d'un + vert est un rectangle bleu.
Puis je ferme avec base avec de nouveau un clique sur la pile de pièces.
Une fois la lettre terminée je lance votre macro avec Exécuté.
Un bouton serait le top, mais il ne doit être présent que sur la barre d'outil Writer.
Si l'utilisation formulaire est plus pratique. Pourquoi pas.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Writer] Nom de fichier automatique.
Bonjour
Transformation de ta lettre en modèle avec des champs utilisateur à la place des champs de base de données. Créer un formulaire affichant les données voulues et permettant de renseigner et d'enregistrer le fichier WriterLe fichier base de données et le fichier modèle doivent être dans le même répertoire.
Le nouveau fichier est enregistré dans le même répertoire.
A+
Par là j'entendais de renseigner la lettre directement à partir de la base de données.WD_And_Co a écrit :Si l'utilisation formulaire est plus pratique. Pourquoi pas.
Transformation de ta lettre en modèle avec des champs utilisateur à la place des champs de base de données. Créer un formulaire affichant les données voulues et permettant de renseigner et d'enregistrer le fichier Writer
Code : Tout sélectionner
Sub Lettre(oEv as Object)
oForm = oEv.Source.Model.Parent
Adresse = Split(thisDatabaseDocument.URL,"/")
Adresse(UBound(Adresse)) = ""
Adresse = Join(Adresse,"/")
adresseDoc = convertToURL(Adresse & "ModelLettre.ott")
oDoc = StarDesktop.loadComponentFromURL(adresseDoc, "_blank", 0, Array() )
With oDoc
.TextFieldMasters.getByName("com.sun.star.text.fieldmaster.User.Identité").Content = oForm.getByName("txtContact").Text
.TextFieldMasters.getByName("com.sun.star.text.fieldmaster.User.Adresse").Content = oForm.getByName("txtAdresse").Text
.TextFieldMasters.getByName("com.sun.star.text.fieldmaster.User.Adresse2").Content = oForm.getByName("txtAdresse2").Text
.TextFieldMasters.getByName("com.sun.star.text.fieldmaster.User.CPV").Content = oForm.getByName("txtCPV").Text
.TextFieldMasters.getByName("com.sun.star.text.fieldmaster.User.Type").Content = oForm.getByName("txtType").Text
.TextFieldMasters.getByName("com.sun.star.text.fieldmaster.User.IdContact").Content = oForm.getByName("fmtrefContact").CurrentValue
.TextFieldMasters.getByName("com.sun.star.text.fieldmaster.User.Refer").Content = oForm.getByName("txtRefer").Text
End With
lesChamps = oDoc.TextFields.createEnumeration
Do While lesChamps.hasMoreElements
unChamp = lesChamps.NextElement
If unChamp.supportsService("com.sun.star.text.textfield.DateTime") Then
If unChamp.NumberFormat = 10107 Then
laDate = unchamp.Anchor.String
End If
End If
Loop
NomFichier = oForm.getByName("txtRefer").Text & laDate
Nouvadresse = convertToURL(Adresse & NomFichier & ".odt")
If FileExists(Nouvadresse) Then Kill(Nouvadresse)
oDoc.storeAsURL(Nouvadresse, Array())
End Sub
Le nouveau fichier est enregistré dans le même répertoire.
A+
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum.
Merci Piaf. J'ai essayé votre proposition elle me convient parfaitement, mais après le lancement de "ModelLettre.ott" j'ai le message d'erreur suivant "Impossible de charger le contenu des données. Il n'existe pas de requête nommée "Contacts" " à l'ouverture de "Sans nom".
Mais l'utilisation est parfaite. Encore merci.
Merci Piaf. J'ai essayé votre proposition elle me convient parfaitement, mais après le lancement de "ModelLettre.ott" j'ai le message d'erreur suivant "Impossible de charger le contenu des données. Il n'existe pas de requête nommée "Contacts" " à l'ouverture de "Sans nom".
Mais l'utilisation est parfaite. Encore merci.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Writer] Nom de fichier automatique.
Bonjour
L'erreur survient elle avec les fichiers envoyés ou avec tes fichiers originaux ?
Le fichier modèle (.ott) comme le fichier créé ne devrait avoir aucune relation avec la base de données.
A+
Je ne reproduis pas donc difficile de t'aider.WD_And_Co a écrit :mais après le lancement de "ModelLettre.ott" j'ai le message d'erreur suivant "Impossible de charger le contenu des données
L'erreur survient elle avec les fichiers envoyés ou avec tes fichiers originaux ?
Le fichier modèle (.ott) comme le fichier créé ne devrait avoir aucune relation avec la base de données.
A+
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum,
Bonjour Piaf,
J'ai mis les deux fichiers dans le même dossier ou répertoire, comme demandé. J'ai toujours le même message d'erreur lors du lancement de "ModelLettre.ott" comme expliqué ici dessous.
1) - Les deux bases ou le même nom, mais ne sont pas dans le même dossier !
2) - Lorsque je charge la base clique sur la pile de pièces pour une modification de destinataire par exemple dans la lettre, c'est ma base qui s'ouvre alors qu'elle n'est pas dans le même dossier.
Je pense que ceci explique cela.
Bonjour Piaf,
J'ai mis les deux fichiers dans le même dossier ou répertoire, comme demandé. J'ai toujours le même message d'erreur lors du lancement de "ModelLettre.ott" comme expliqué ici dessous.
1) - Les deux bases ou le même nom, mais ne sont pas dans le même dossier !
2) - Lorsque je charge la base clique sur la pile de pièces pour une modification de destinataire par exemple dans la lettre, c'est ma base qui s'ouvre alors qu'elle n'est pas dans le même dossier.
Je pense que ceci explique cela.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Writer] Nom de fichier automatique.
Re
Pourrais tu joindre ton fichier modèle, le tien pas celui que je t'ai transmis.
A+
Pourrais tu joindre ton fichier modèle, le tien pas celui que je t'ai transmis.
A+
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum.
Voici le fichier demandé c'est celui que j'ai téléchargé ici.
Voici le fichier demandé c'est celui que j'ai téléchargé ici.
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Writer] Nom de fichier automatique.
Bonjour
Peux tu tester les fichiers joint ?
A+
Peux tu tester les fichiers joint ?
A+
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum
J'ai de nouveau téléchargé les derniers fichiers, mais rien n'y fait, même message d'erreur, et toujours la connexion à ma base d'origine.
J'ai donc forcé le changement de base, je me suis donc connecté a votre base, mais la impossible de mettre les données choisi dans la lettre.
A mon avis, le message d'erreur persistant du début, n'est pas bloquant. Donc je vous remercie beaucoup de votre patience.
Encore merci.
J'ai de nouveau téléchargé les derniers fichiers, mais rien n'y fait, même message d'erreur, et toujours la connexion à ma base d'origine.
J'ai donc forcé le changement de base, je me suis donc connecté a votre base, mais la impossible de mettre les données choisi dans la lettre.
A mon avis, le message d'erreur persistant du début, n'est pas bloquant. Donc je vous remercie beaucoup de votre patience.
Encore merci.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Writer] Nom de fichier automatique.
Re
La base n'a pas besoin d'être enregistrée.
La procédure à suivre est d'ouvrir la base de données, d'ouvrir le formulaire Contacts, d'afficher l'enregistrement voulu, puis d'appuyer sur le bouton Lettre.
A+
J'avoue ne pas tout comprendre.WD_And_Co a écrit :2) - Lorsque je charge la base clique sur la pile de pièces pour une modification de destinataire par exemple dans la lettre, c'est ma base qui s'ouvre alors qu'elle n'est pas dans le même dossier.
La base n'a pas besoin d'être enregistrée.
La procédure à suivre est d'ouvrir la base de données, d'ouvrir le formulaire Contacts, d'afficher l'enregistrement voulu, puis d'appuyer sur le bouton Lettre.
A+
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum
Il est vrai, qu'en procédant de cette façon j'ai bien les données (de votre base) choisi dans la lettre qui s'ouvre. Mais j'ai toujours le message d'erreur. Et si je clique sur la pile de pièces c'est ma base qui est présenté dans Writer.
Il est vrai, qu'en procédant de cette façon j'ai bien les données (de votre base) choisi dans la lettre qui s'ouvre. Mais j'ai toujours le message d'erreur. Et si je clique sur la pile de pièces c'est ma base qui est présenté dans Writer.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- RespOOnsable forum
- Messages : 12226
- Inscription : 08 nov. 2005 16:23
- Localisation : Caen, France
Re: [Writer] Nom de fichier automatique.
Veuillez prendre connaissance de ce fil : https://forum.openoffice.org/fr/forum/v ... =2&t=56905Dans votre signature, il y a écrit :LibreOffiche Version: 6.0. sous macOS 10.13.
-
- Membre OOrganisé
- Messages : 81
- Inscription : 04 mai 2017 14:27
- Localisation : Hauts de France
Re: [Writer] Nom de fichier automatique.
Bonjour le Forum
Oui j'avais lu, et pardon j'ai oublié de mettre dans ma signature le 4 final, qui change tout comme préciser dans ce même fil. Merci encore.Bidouille a écrit :Veuillez prendre connaissance de ce fil : https://forum.openoffice.org/fr/forum/v ... =2&t=56905Dans votre signature, il y a écrit :LibreOffiche Version: 6.0. sous macOS 10.13.
LibreOffice : 7.3.6 version stable.
macOS : 12.6
macOS : 12.6
-
- RespOOnsable forum
- Messages : 12226
- Inscription : 08 nov. 2005 16:23
- Localisation : Caen, France
Re: [Writer] Nom de fichier automatique.
Non, rouvrez vos yeux et regardez le 3e message.WD_And_Co a écrit :Oui j'avais lu
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Writer] Nom de fichier automatique.
Bonjour
Je pense avoir enfin compris ce que tu veux faire, toujours été lent .
Une fois le document Writer affiché, tu affiches les sources de données, il est normal que ma base n'apparaisse pas puisqu'elle n'est pas enregistrée.
Il ne servirait à rien de l'afficher puisque le modèle comme le document ne contient aucun champ de base de données
A+
Je pense avoir enfin compris ce que tu veux faire, toujours été lent .
Une fois le document Writer affiché, tu affiches les sources de données, il est normal que ma base n'apparaisse pas puisqu'elle n'est pas enregistrée.
Il ne servirait à rien de l'afficher puisque le modèle comme le document ne contient aucun champ de base de données
.La création du fichier à partir du modèle se fait uniquement à partir du formulaire Contacts, tu affiches l'enregistrement voulu et tu cliques sur le bouton Lettre.WD_And_Co a écrit :Non ce n'est pas du publipostage,
A+
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64