Microsoft 365 enregistrement copie du classeur ouvert avec mot de passe et incrémentation

[meyscal]

Bonsoir le forum,

je trouve régulièrement les réponses à mes questions ici mais là mon besoin est si spécifique que je fais appel à vous.

Enregistrement donc d'une copie du classeur ouvert mais avec :

- code si possible sans option explicit si possible car la plus grosse partie du code est déjà écrite sans (à moins que ça ne pose pas problème)
- nom du fichier reprendra les valeurs de 2 cellules (1 nom-prénom + 1 date) séparées par " - " et précédées par "NDF - ". Exemple : NDF - valeur A1 - valeur B1.xlsm = NDF - Jean Dupont - 31-03-2023.xlsm
- protection par mot de passe pour ne pas être ouvert par n'importe qui (pas de lecture seule)
- enregistré sur le bureau (Special Folders) donc enregistrable sur n'importe quel PC toujours au même endroit)
- l'enregistrement se fait en arrière plan sans ouverture de la copie ensuite

Pour information, je vous ai dit que j'avais déjà écrit le plus gros du code donc voici ce qu'il comprend. Pour commencer, déclenchement de l'enregistrement par 1 bouton dans un userform puis :

- enregistrement d'une feuille du classeur en PDF (celle-ci est pour l'utilisateur mais pas la copie que je veux créer). Voici ce que j'ai pour la création du PDF :
Dim sNomFic As String, sRep As String, WshShell As Object
- remplissage automatique du formulaire en PDF avec les données réparties dans 4 tableaux (1 feuille par tableau) différents puis remise à 0 (effacement complet des 4 tableaux). ATTENTION : ma copie enregistrée doit être faite avant l'effacement des tableaux
- 2 ou 3 autres bricoles


Voilà, je n'ai pas encore une grande expérience mais j'ai déjà réussi à faire tout ça en récupérant des bouts de code sur ce forum et plus rarement avec l'enregistreur de macro.
J'ai essayé aussi pour ça et je trouve des réponses mais il faut déjà que ça colle avec ce que j'ai.

Je suis débrouillard et je saurai adapter , j'ai juste besoin d'un exemple par forcément qu'on fasse le job à ma place

Merci à vous.
Me dire si besoin que je fasse parvenir un fichier exemple ou le code déjà écrit. C'est juste que je veux éviter de partager des données potentiellement sensibles et que j'ai déjà tellement de données que ça va être très long de tout anonymiser ...

 

[Staple1600]

Bonjour @meyscal

Me dire si besoin que je fasse parvenir un fichier exemple ou le code déjà écrit.

Pour info: on ne joint jamais le fichier original ou son appli originale

Mais on créé un classeur exemple ex nihilo avec quelques données "bidons"
C'est très simple et rapide à faire avec l'aide d'Excel et son VBA
Exemple avec ce petit code
(à tester sur un classeur vierge)

Sub Bidonnons_les_datas()
[A1:F1] = Array("Nom", "Prénom", "Adresse", "CP", "Ville", "Tel")
[A2:F2] = 1
Range("A2:E2").Formula = "=R1C&"" ""&ROW()-1"
Range("F2").Formula = "=(""0""&MOD(ROW(),4)+1&RANDBETWEEN(9999999,13070854))*1"
Range("A2:F30").FillDown
Cells(1).CurrentRegion = Cells(1).CurrentRegion.Value
Cells(1).CurrentRegion.Borders.Value = 1
End Sub

[/QUOTE]

 

[meyscal]

Bonjour Staple1600

C'est exactement ce que je voulais dire par un fichier exemple et plus loin je parlais bien d' "anonymiser"
Mais comme dit je pense pouvoir m'en sortir avec un fichier exemple si qqun a la gentillesse de m'en fournir 1 ...
Je fais ce boulot en bénévolat pour une association mais avec mon petit niveau ça me prend un temps dingue

Merci à vous

 

[meyscal]

Précision car je viens de me relire...

Je peux fournir 1 fichier exemple
mais
Je préférerais qu'un bon samaritain m'en procure 1 avec le code que j'adapterai

Sans vouloir abuser bien-sûr

 

[Staple1600]

Re

Euh ??
L'usage sur le forum c'est que ce soit le demandeur qui prenne le temps de créér un fichier exemple.

Et un fichier exemple allégé avec seulement un trentaine de ligne suffit amplement.

En plus tu as déjà le code VBA comme indiqué dans ton 1er message.

Donc à tout casser, ca doit 1/2 heure de faire un fichier exemple illustratif de la problématique évoquée dans ton message#1

 

[Staple1600]

Compléments
- nom du fichier reprendra les valeurs de 2 cellules (1 nom-prénom + 1 date) séparées par " - " et précédées par "NDF - ". Exemple : NDF - valeur A1 - valeur B1.xlsm = NDF - Jean Dupont - 31-03-2023.xlsm
(de nombreux exemples de code VBA dans les archives du forum)
- protection par mot de passe pour ne pas être ouvert par n'importe qui (pas de lecture seule)
(Ne sert à rien - facilement outrepassable
- enregistré sur le bureau (Special Folders) donc enregistrable sur n'importe quel PC toujours au même endroit)
(de nombreux exemples de code VBA dans les archives du forum)
- l'enregistrement se fait en arrière plan sans ouverture de la copie ensuite

Pour consulter les archives du forum, c'est ici

Effectuez une recherche sur Excel Downloads...

excel-downloads.com

 

[Staple1600]

Re

Pour le nom du fichier, c'est pas compliqué
En guise de mise de pied à l'étrier

Sub test()
Dim Nom_Fic$
If Application.CountA(Range("A1:B1")) Then
Nom_Fic = "NDF_" & [A1].Text & " " & [B1].Text & ".xlsm"
MsgBox Nom_Fic
Else
MsgBox "Nom de fichier invalide!", vbCritical
End If
End Sub

Il suffit de reprendre cette trame avec le code d'enregistrement d'un classeur)
(que tu peux obtenir avec l'aide de l'enregistreur de macros)

 

[meyscal]

Ok oui pas de problème je vais faire ça.
Juste que je vois souvent des gens venir avec 1 problématique et sans rien proposer non plus et qui obtiennent réponse quand-même.
Peut-être que c'était sur un autre forum ...

Bref pas d'énervement je posais la question en passant mais je comprends et c'est même normal ainsi que le demandeur soit acteur et non pas juste spectateur.

Je reviens vers vous bientôt avec l'exemple en PJ.
SVP ne me jugez pas sur le code que j'ai rédigé c'est vraiment de l'amateurisme ... Mais je suppose qu'on est tous passé par là !

 

[meyscal]

Ok oui pas de problème je vais faire ça.
Juste que je vois souvent des gens venir avec 1 problématique et sans rien proposer non plus et qui obtiennent réponse quand-même.
Peut-être que c'était sur un autre forum ...

Bref pas d'énervement je posais la question en passant mais je comprends et c'est même normal ainsi que le demandeur soit acteur et non pas juste spectateur.

Je reviens vers vous bientôt avec l'exemple en PJ.
SVP ne me jugez pas sur le code que j'ai rédigé c'est vraiment de l'amateurisme ... Mais je suppose qu'on est tous passé par là !

PS : merci pour le début de piste. Effectivement je trouve des réponses à mes questions par ci par là mais ce que j'ai encore du mal à faire c'est combiner le tout.

 

[Staple1600]

Re

@meyscal
Je ne suis pas énervé
Juste présent sur ce forum depuis plus de 15 ans.
Et je te dis juste
Que quand un demandeur prend le temps dès son 1er message de joindre un fichier exemple en général, cela amène des réponses rapides.

C'est d'ailleurs inscrit dans le marbre de la charte du forum

2.5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant à ce que les données soient fictives et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

 

[meyscal]

Re

@meyscal
Je ne suis pas énervé
Juste présent sur ce forum depuis plus de 15 ans.
Et je te dis juste
Que quand un demandeur prend le temps dès son 1er message de joindre un fichier exemple en général, cela amène des réponses rapides.

C'est d'ailleurs inscrit dans le marbre de la charte du forum

Re-bonjour,

voici le fichier en question, j'ai enlevé toutes les informations nominatives, bancaires, coordonnées, etc ... et même le thème personnalisé spécialement créé ! D'où les couleurs un peu fadasses

J'ai laissé sinon tous les userform, feuilles ... pour être sûr qu'il n'y ait pas de pb, juste enlevé le code Workbook-open dans ThisWorkbook car j'avais défini en application.false

Si demande de mdp j'ai mis "Bonjour" partout.

Le code en question se trouve dans l'userform9 et j'ai mis le bouton en rouge

@Staple1600 : je comprends bien qu'après 15 ans tu as l'habitude de voir mieux et je ferai mieux à l'avenir, promis ! Bon j'avoue que la charte du forum j'ai dû la lire y a quelques années et difficile de s'en souvenir mais tu fais bien de la rappeler. Les règles ne sont pas là pour rien

 

[meyscal]

Encore une chose, j'avais également 1 autre difficulté - un autre sujet ouvert hier. Peut-être que vous pouvez également me dépanner ...

https://excel-downloads.com/threads...uille-a-linitialisation-du-userform.20075403/

Concernant cet autre point c'est dans l'userform20 ...
Un grand merci par avance

 

[Staple1600]

Re

Sauf erreur, cela peut suffire pour ton Export PDF
(ici ce n'est qu'un test)
Le code est lancé depuis la copie de la feuille Document

Sub Export_PDF()
Dim sNomFic As String
sNomFic = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "Notes de frais.pdf"
Range("$A$1:$M$54").ExportAsFixedFormat Type:=0, Filename:=sNomFic, Quality:=xlQualityMinimum, IncludeDocProperties:=0, IgnorePrintAreas:=0, OpenAfterPublish:=0
End Sub

PS: Pourquoi la présence de ce code dans la feuille Document ?
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

 

[meyscal]

Merci @Staple1600 ! Pour rafraîchissement des TCD à la sélection de l'onglet.
Au départ je partais sur 1 fichier standard en xls mais je me suis dit tiens 1 petite macro pour rafraîchir automatiquement puis une autre et après tu te retrouves avec cette usine à gaz

Mais les utilisateurs qui sont des personnes majoritairement défavorisés et peu habitués à l'informatique préfèrent largement le côté programme... plus intuitif !

Bref pour en revenir au sujet, ok pour le PDF je vais test ça. Bon tu l'auras compris j'ai pas 1 niveau de fou ...

 

[Staple1600]

Re

Bon tu l'auras compris j'ai pas 1 niveau de fou ...

Peu importe, pour ce qui me concerne, mon mantra est : Kissien un jour, kissien toujours !

Kesaco me diras-tu ?

Je te répondrai => voir ici ;)