[Résolu] Modèle qui crée un document avec nom prédéfini

[crakunebulle]

bonjour à tous ,

J'espère être au bon endroit et je m'excuse par avance si la question a déjà été posée , je crée plusieurs modèles de tableurs , je suis sous open office 4.1.6 , en fait j'aimerai pouvoir sur chacun de mes modèles de tableurs leur attitrés un nom différent à chaque enregistrement d'un "sans nom "
Je m'explique je crée un tableur qui sera un modèle classeur appelé inspection ( exemple fictif ) lorsque je veux l'utiliser il me met sans nom tant qu'il n'est pas enregistré et moi par défaut je voudrais qu'il me marque " inspection du " et je rentre la date manuellement ( par exemple ) , est ce possible ?
mais je voudrais que chacun de mes modèles possède un nom différent par défaut .

merci à vous

[jeanmi2403]

Bonsoir,
A ma connaissance, pas de nom par défaut pour la sauvegarde autre que "Sans nom"....
Cordialement,

[Dude]

Salut,

e voudrais que chacun de mes modèles possède un nom différent par défaut

Possible par macro avec la méthode storeAsUrl branché sur l'événement "Nouveau document".

Dude.ots

Si question, il te faudra poster au bon endroit (lire le bandeau rouge en haut de la page).

[Oukcha]

Bonjour et bienvenue sur le forum,

open office 4.1.6

Votre signature indique que vous disposez d'une version de OpenOffice qui n'est plus maintenue.
Est-ce une erreur, un choix, un oubli, une obligation ?
Dans ce dernier cas, mentionnez-le dans votre signature par "Obligation de version".

Pour connaître la version que vous possédez : https://forum.openoffice.org/fr/forum/v ... 582#p11582

Nous vous invitons à vous mettre à jour de la dernière version : https://forum.openoffice.org/fr/forum/v ... m.php?f=38.

Votre signature doit comporter :
1- La version exacte de AOO ou LibO (AOO 4.1.6 ou LibO 6.1.5 par exemple) ;
2- La version exacte du système d'exploitation (Windows 7 SP2, MacOS X 10.13.2, ou Linux OpenSuse Leap 42.3, par exemple).
Accès direct à votre signature pour la corriger.

Cordialement.

[crakunebulle]

bonjour ,
pour Apache 4.6.1 , c'est juste un oubli de ma part pour la mise à jour , pourtant c'est un logiciel que j'utilise souvent ....
je vais faire le nécéssaire pour le mettre à jour .
Par contre je n'y connais rien en macro .
oukcha j'espère avoir fait les bonnes modifications ...

[Dude]

Par contre je n'y connais rien en macro

Et donc ? Je te fournis un exemple, prends la peine de l'étudier.
Comme le souligne jeanmi2403, il n'y a pas d'autre solution pour la question que tu poses.

Merci d'éditer le titre de ton 1er message et d'y ajouter le classique [Résolu].

[jeanmi2403]

Bonsoir,
Le sujet m'amuse, je vois ça cette semaine (macro et explication)
Bonne soirée,

[Dude]

macro et explication

Qu'as-tu à ajouter à ma proposition ?

[eric63]

Salut
Je ne comprends pas tout ton processus
mais j’ai un truc qui y ressemble
1 je pars d’un modèle qui se nomme Modèle
2 je modifie une date manuellement dans le modèle
3 je clic sur un bouton qui envoie une macro
cette macro enregistre des cellules qui contiennent:
-la date sous format AAAAMMJJ
a-le chemin de base de l’ordi (suivant l'ordi ou je suis )
b-le chemin du dossier ou va être sauvegardé le fichier
c-le chemin du dossier suivant d’autres critères
d-le nom du fichier modifié et de la date
sous le format final FichierModifié_a_b_c_d_AAAAMMJJ

4 puis je rentre mes nouvelles données dans ce nouveau fichier créé
5 un nouvel autre BP macro pour enregistrer ce fichier

6 un nouvel autre BP macro pour effacer les données et remettre les colonnes et lignes comme à l’origine du modèle
et enfin sauvegarder sous le nom du modèle origine (mon modèle s’est enrichi d’un historique en phase 4 mais il garde la même base) /

[jeanmi2403]

Bonsoir Dude,

macro et explication

Qu'as-tu à ajouter à ma proposition ?

Message incomplet parti trop vite....
Rien à ajouter, juste modifier un peu :

• une boîte de dialogue pour proposer la date et pouvoir l'éditer
• la date du jour plutôt que le nombre de tics
• comme il n'est probablement pas utile d'avoir la macro dans tous les fichiers, quelques explications pour l'installer dans le profil

.
Si bien sûr, ça intéresse notre ami crakunebulle.
Bonne soirée,

[eric63]

Salut
Je ne comprends pas tout ton processus
mais j’ai un truc qui y ressemble
1 je pars d’un modèle qui se nomme Modèle
2 je modifie une date manuellement dans le modèle (format AAAAMMJJ)
3 je clic sur un bouton qui envoie une macro
cette macro enregistre des cellules qui contiennent:
-la date sous format AAAAMMJJ
a-le chemin de base de l’ordi (suivant l'ordi ou je suis )
b-le chemin du dossier ou va être sauvegardé le fichier
c-le chemin du dossier suivant d’autres critères
d-le nom du fichier modifié
sous le format final FichierModifié_AAAAMMJJ dans le dossier choisi a_b_c_

4 puis je rentre mes nouvelles données dans ce nouveau fichier créé
5 un nouvel autre BP macro pour enregistrer ce fichier

6 un nouvel autre BP macro pour effacer les données et remettre les colonnes et lignes comme à l’origine du modèle
et enfin sauvegarder sous le nom du modèle origine (mon modèle s’est enrichi d’un historique en phase 4 mais il garde la même base) /

[jeanmi2403]

Bonjour,
Ce modèle m'intéresse. C'est possible de le mettre à disposition, ou bien confidentiel ?
Bonne journée,

[micmac]

Bonjour,

C'est possible de le mettre à disposition, ou bien confidentiel ?

Nous sommes sur un forum d'entraide.
Pourquoi confidentiel, si cela peut intéresser quelqu'un, pourquoi limiter à une seule personne ?

[eric63]

Jeanmi2403
La question est pour moi ?
le modele de base à la date toujours au 1/1/202x
on met une date et on envoie la macro associè au bouton pour créer un nouveau fichier dans le dossier de son choix
on a la possibilitè dans le modele de choisir linux ou windows; choisir les ordis; les chemins; le noms des fichiers à partir d un tableau dans la feuille1

ca vient de plusieurs sources piquées ici ou là
et triturée à ma sauce de ce que je comprends donc tres crade
soyez indulgent

Code : Tout sélectionner

sub enregistre
    
    rem ----------------------------------------------------------------------
    rem definitions des variables
    rem ----------------------------------------------------------------------
    
    dim document as object
    dim dispatcher as object
    dim nVar as integer,nmaj as integer'variable pour choix fichier et progression maj
    dim sPath as string,sStandard as string,sName as string
    
    rem ----------------------------------------------------------------------
    rem get access to the document
    rem ----------------------------------------------------------------------
    
    document = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
    
rem ----------------------------------------------------------------------
rem Récupération du contenu des cellules importantes

rem ce fichier est enregistré sous la variable MonDoc ---------------------------------------------------------------------
    MonDoc = ThisComponent
    'document = ThisComponent.CurrentController.Frame
rem feuille active enregisté sous la variable MaFeuil
    MaFeuil = MonDoc.CurrentController.ActiveSheet
rem Récupération du contenu de la cellule C2 (nom et date du fichier) dans la feuille active (feuille1)
 rem [b]Commande_FOURNISSEUR_20210823[/b]
    MonTexteDate = MaFeuil.GetCellRangeByName("C2").String
rem Récupération du contenu de la cellule C3 (fournisseur)dans la feuille active
rem[b]FOURNISSEUR[/b]
    MonFournisseur = MaFeuil.GetCellRangeByName("C3").String
rem Récupération du contenu de la cellule H2 (nom et date fichier bon de commande pour pdf)dans la feuille active
REM [b]BON_DE_COMMANDE_FOURNISSEUR_20210823[/b]	nom du pdf enregistré et imprimé
	MonTexteExport = MaFeuil.GetCellRangeByName("H2").String 
rem Récupération du contenu de la cellule E5 (nom du fichier modèle)	^
rem [b]MODELE_VIERGE[/b]
	NomModele = MaFeuil.GetCellRangeByName("E5").String
 If MonFournisseur <> "SEMAINE" Then
 MsgBox "Modifier le fournisseur "& MonFournisseur &" en - SEMAINE - " & Chr(10) &"" & Chr(10) &"Le vrai fournisseur vous sera demandé ultérieurement à l’étape 6"  
    Exit Sub
    Else endif
rem determine si le système est sur linux (R4= file:///home) ou windows ((BaseOSW=R5= file:///C:)
REM ARRETER L'ENREGISTREMENT SI BASEOS ET CHEMINS PERSO ET CDDDD NE SONT PAS CONFORME
rem chemin de base linux ET les autres chemins additionnels (1 Tableau a été créé sur feuille 1 pour contenir tous les cas possibles)
  	BaseOSL = MaFeuil.GetCellRangeByName("AF4").String
  	'chemin du Dossier Personnel linux
  	DpersoL = MaFeuil.GetCellRangeByName("AH4").String	
  	'Chemin Différencié Des Dossiers linux
  	CDDDL = MaFeuil.GetCellRangeByName("AJ4").String
  	'Chemin Commun Des Dossiers
  	CCDD = MaFeuil.GetCellRangeByName("AM4").String
  	fichierreel = MaFeuil.GetCellRangeByName("G4").String
	fichierchoix_ordi= MaFeuil.GetCellRangeByName("G5").String
If fichierreel<>fichierchoix_ordi THEN
msgbox ("choisir en cellule F4 un autre nom ES Monique pour l’ordi dans l'aquarium")
Exit Sub
Else endif
  	
rem preparation du nouveau fichier pour l'ods
    sName = MonTexteDate & ".ods"
rem preparation du nouveau fichier pour le pdf    
'	sStandard = "BON%20DE%20COMMANDE_"
	
rem ------voir tableau sur "BON DE COMMANDE"-- CELLULES --------------------------------------------------------------
rem choisir le chemin des dossiers et le nouveau nom du nouveau fichier
   rem dim args1(2) as new com.sun.star.beans.PropertyValue
       
REM UTILISER LA MACRO OuSuisJe pour verifier le chemin des dossiers
		
rem utilisation pour linux équivalent à sauvegarde sous dans le dossier souhaité avec le nom du fichier 
	rem determine si le système est sur linux (BaseOSL=R4= file:///home) ou windows (BaseOSL=R4= file:///C:)		
'	if FileExists(BaseOSL) then
	rem si baseOSLinux existe alors UTILISATION du chemin des dossiers de Linux
	 	sPath = BaseOSL & DpersoL & CDDDL &CCDD & "/" & MonFournisseur & "/"
 
 
 
     
REM VERIF SI FICHIER DEJA EXISTANT
 nVar =0
rem Vérifie que le fichier cible existe déjà ou non
REM S'il n'existe pas déjà on passe à l'enregistrement direct (ligne 100)
rem Si oui, possibilité d'écraser (ou si nvar = 7 pour incrémenter) 
rem Annuler pour arrêter le processus (pas de sauvegarde)                 
         do while FileExists(sPath & sName) and nVar <> 2 and nVar <> 6
                  nVar = MsgBox ("le fichier "& Chr(10) & _
                  Chr(10) & sName & Chr(10) & _
                  Chr(10) &" existe déjà. " & Chr(10) & _
                                 "Voulez-vous l'écraser ? " & Chr(10) & _
                       Chr(10) & """Non"" pour sauvegarder ce fichier sous la forme" & Chr(10) & _
                   Chr(10) &  MonTexteDate & "-"& "xx" & ".ods" & Chr(10) & _
                   Chr(10) & "à coté de celui d'origine ou du fichier indexé précédent ou" & Chr(10) & _
                       Chr(10) & """Annuler"" pour arrêter l'export, " & Chr(10)& Chr(10) & _ , 35, "Erreur")     
				rem choix "NON"
                               if nVar = 2 then
                               end
                               else
                               if nVar = 7 Then
                                        'sName = InputBox ("Donner un nom sans extension" & Chr(10) & _
                                        '               "pour le fichier." , "Nom de l'.ods", sStandard )
                                        index=index+1
                                        sName = MonTexteDate & "-" & index & ".ods"
                           'rem incrémentation du fichier si existant
                                        If FileExists(sPath & sName) Then
                                        index= index+1
                                        sName = MonTexteDate & "-" & index & ".ods"
                                        Else endif
                                 endif                                           
                              end if
                        MsgBox ("un nouveau fichier sera créé sous le nom "& sName)       
                  Loop      
'MsgBox ("un nouveau fichier sera créé sous le nom "& sName)       
             rem inscrire le chemin et le fichier dans le bon dossier	
dim args1(2) as new com.sun.star.beans.PropertyValue
 	args1(0).Name = "URL"
 	rem ajouter le nom et son extension au chemin
 	args1(0).Value = sPath & sName
 	args1(1).Name = "FilterName"
    args1(1).Value = "calc8"
 	args1(2).Name = "SelectionOnly"
    args1(2).Value = true
                            
REM FIN DETECTION FICHIER EXISTANT
    
    dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())

    rem ----------------------------------------------------------------------
    rem fin de la macro
    rem ----------------------------------------------------------------------
rem -------METTRE UN COMPTEUR ETAPE SUR D1---------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$D$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())

rem ------REMPLIR COMPTEUR AVEC 1 ----------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "StringName"
args7(0).Value = "1"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args7())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

'End Sub


 


rem masquer PLUSIEURS COLONNES
'REM COLONNE D=3 COLONNE F=5
'Sub MasquerColonnes()
Dim x As Integer,x1 As Integer,x2 As Integer, maCellule as Object
   For x = 3 To  5 'colonne DEF
'   x1=x+6 'COLONNE JKL
 '  x2=x+9 'COLONNE MNO   
   REM ON PointE LA CELLULE A D1 SOIT getCellByPosition (x,0)
      maCellule = thisComponent.currentController.activeSheet.getCellByPosition (x,0)
     ' maCellule = thisComponent.currentController.activeSheet.getCellByPosition (x1,0)
   '   maCellule = thisComponent.currentController.activeSheet.getCellByPosition (x2,0)
      'If maCellule.String = 0 Then 'Si toutes les cellules sont renseignées tu peux mettre maCellule.Value
                           'Si elles ne sont pas toutes renseignées, les cellules vides seront masquées
       thisComponent.currentController.activeSheet.columns(x).isVisible = False
      ' thisComponent.currentController.activeSheet.columns(x1).isVisible = False
   '   thisComponent.currentController.activeSheet.columns(x2).isVisible = False
      'End If
   Next X
End Sub

[jeanmi2403]

Bonsoir,
De retour de travaux plus urgents, un classeur avec une macro correspondant à la demande (Inspection du....).
Un modèle de classeur qui propose un nom de fichier pour sauvegarder un fichier à l'ouverture (éviter le "Sans nom") et qui permet de le modifier.
Un détail, il n'y a pas de sécurité, si un fichier du même nom existe déjà, il sera écrasé.
Pour éviter ce désagrément, il est possible de rajouter l'horaire sous la forme HH:MM:SS.
La date est sous la forme AAAA-MM-JJ pour faciliter le tri.

ModelePourSauver.ots

Cordialement,
PS : j'ai hésité à placer ce post dans la section Macros, et faire un lien ici.

[eric63]

j’ai un petit plus dans ma macro par rapport a jeanmi2304
il y a un choix si le fichier existe déjà
soit j’écrase le fichier
soit je l’indexe de 1 avec un numéro en plus (il s’appellera fichier-1 ou plus suivant ce qui existe déjà)
soit je quitte

[jeanmi2403]

Bonjour,

ca vient de plusieurs sources piquées ici ou là
et triturée à ma sauce de ce que je comprends donc tres crade
soyez indulgent

Effectivement, ce code mérite un peu de nettoyage.
Il faudrait aussi utiliser les fonctions Basic plutôt que les appels au dispatcher (qui viennent probablement de l'enregistreur de macros ?) qui sont souvent des sources d'incompréhensions et d'erreurs.
D'autre part il est inutile de tester le système (Windows ou Linux) pour les accès fichiers, puisque tous les accès peuvent se faire par URL, et les fonctions ConvertToURL et ConvertFromURL permettent facilement les conversions.
Et pour finir, un fichier élémentaire avec les boutons et quelques cases essentielles permettrait d'éclaircir le fonctionnement (que je n'ai pas cherché à essayer...)
Bonne soirée,

[eric63]

J’avais prévenu

mais je n’ais pas eut le temps et la volonté de me pencher sur les macros et leurs fonctionnements
l’histoire de savoir si mon programme se trouve sur linux ou windows est né parce que je naviguais au départ avec mon fichier modèle sur une clé usb entre différents ordis sur différents systèmes afin de ne pas perdre l‘historique de mes commandes sur le fichier de base qui ont lieu une à deux fois par semaine.
pour mon assoc (2 ordis 2 systèmes mon lieu principal de «travail» plusieurs personnes pouvant utiliser le fichier) et pour moi (1 ordi 1 système pour réparer au calme les erreurs et bugs de mon fichier)
depuis quelque mois je travaille avec nextcloud donc ce qui est modifié chez moi est retranscrit sur les autres ordis assocs
solution plus satisfaisante que la clé usb.
je ne connaissais pas et ne connais pas les deux fonctions que tu nommes donc c’est avec les moyens du bord de ma première approche du problème et comme ça me donnait satisfaction j’ai pas cherché plus loin.
j’étais plus dans la recherche d’une solution rapide que dans le code suprême et je suis loin d’avoir une compréhension pleine et entière de mes recherches
je vais essayer de faire un fichier simplifié de mon fichier
merci de ton attention