Automatiser les sauvegardes lorsque je renseigne Marche2017 ... Résolu/Fermé

Question

Bonjour,
Je fais partie d'un groupe de randonneur et je maintiens des tableaux excel 2016
pour chaque membre du groupe
J'aimerais automatiser certaines fonctions
Mes connaissances en excel et en VBA sont quasiment nulles
Ci joint le fichier test

Je renseigne le tableau Marche2017
et j'aimerais que lorsque je remplis le tableau Présence 2017 avec 1 dans la colonne des prénoms présents a cette date ,cela me remplisse le tableau de la personne concernée et me le sauvegarde en xlsx et en pdf 
Ce fichier pdf me sert pour le maintien d'un ste web que j'ai créer avec WIX
Merci par avance pour votre aide
Je n'arrive pas a joindre le fichier test
Bernard

Raymond PENTIER · Answer

Bonjour.

Pour joindre le fichier, c'est très facile.
Pour tout ce que tu imagines pouvoir faire ensuite, c'est quasi impossible avec les outils classiques ; il faudrait nécessairement une macro ...   1) Tu vas dans https://www.cjoint.com/  2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi) 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint]  4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien" 5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

Raymond PENTIER · Answer

Bonjour.

Ta première et principale erreur est de créer un fichier par personne.
Ce que tu appelles un tableau, c'est en réalité un fichier autonome (appelé aussi classeur). Un tableau, c'est par exemple la plage de cellules qui va de  A1 à J78 dans le fichier Marche2017.
Quand tu crées un fichier Excel, il y a 3 feuilles vierges, nommées Feuil1, Feuil2 et Feuil3 ; mais tu peux en ajouter autant que tu veux.
Alors, dans un premier temps, tu vas déplacer tous tes fichiers nominatifs pour compléter le fichier Marche2017, qui sera seul à la fin.
Pour déplacer Feuil1 du fichier 'Bernard', tu fais clic-droit sur l'onglet [Feuil1], tu choisis Déplacer ou copier, et dans la première fenêtre "Dans le classeur" tu sélectionnes Marche2017.xlsm
 Quand ce sera fait, tu nous l'enverras.

hachbe · Answer

Bonsoir Raymond
Merci 
Je finirai demain
Bernard

hachbe · Answer

Bonjour Raymond
Je suis en retraite egalement mais en Savoie
C'est pas mal non plus.
Ci joint le fichier Marche2017 modifié
https://www.cjoint.com/c/GJjdFM3eyjd
Merci de ton aide
Bernard

hachbe · Answer

Bonsoir,
J'ai oublie de signaler que j'avais fait des essais de macro
récupéré sur le net mais cela n'a pas fonctionné
Le code n'est pas de moi
J'ai également récupéré les fonctions commer nbcouleur ect ...
Si cela peut aider à résoudre mon problème
Merci 
Bernard

hachbe · Answer

Bonsoir,
Pourquoi plus de réponse?

cs_Le Pivert · Answer

Bonjour,

Voir le classeur dans la feuille Sommaire, tout est indiqué.
Il faudra renommer les feuilles comme indiqué, j'en ai fait quelques unes!
Il suffit de cliquer sur une cellule avec un 1 pour que les 2 enregistrements xlsx et pdf se fassent dans le même dossier que le classeur

http://www.cjoint.com/c/GJsp2vmYtfQ 

Bon courage

hachbe · Answer

Bonsoir,
Merci pour la creation des fichiers .xlsx et . pdf
Mais je me suis peut etre mal exprimé
il faudrait que lorsque nous faisons une nouvelle balade
par exemple le 9/10 en mettant le  1 dans sommaire
avant de sauvegarder cela mette a jour la ligne 9/10 de ceux presents
par exemple André
Suis je clair? et est ce possible?
D'avance merci pour le travail déja réalisé
Bonne soirée
Bernard

hachbe · Answer

Rebonsoir,

J'ai fait des changements de couleur dans le texte pour incrémenter
le champ Pique nique par exemple
Cela fonctionne avec Feuil1 (en .xlsm)
Mais cela ne fonctionne pas avec les autres (en .xlsx)
Faut il tout sauvegarder en .xlsm et pdf ?
Je ne l'avais pas fait car pas possible de faire des copié collé
Mais il n' y en aura plus besoin si OK.
Mercui

cs_Le Pivert · Answer

Voilà la dernière mouture qui se déclenche au double clic sur la cellule contenant un 1, pour plus de sécurité:

http://www.cjoint.com/c/GJtgk2HKYwQ 

Je n'ai pas compris le dernier post!

hachbe · Answer

Bonsoir,
Merci pour le code
J'ai modifié la ligne ActiveSheet......
Mais en fait la derniere ligne entré dans Rando
n'apparait pas lorsque je doubleclick sur 1 dans sommaire
par exemple André la derniere ligne entrée dans Rando n'apparait pas
J'avais rentre du code dans VBAproject Modules 1 et 2
Je l'ai supprimé 
Pour Nbcouleur je l'ai rentré dans Modules Module1 tout en bas
mais peut etre pas a la bonne place.
C'est complique lorsque l'on ne connait pas
Mais c'est intéressant de voir .
Encore Merci
Bernard

cs_Le Pivert · Answer

par exemple André la derniere ligne entrée dans Rando n'apparait pas 

J'ai mis un 1 dans le colonne André en face du 6 oct, c'est à dire dans la cellule B65. Ensuite j'ai double cliqué dessus et cela fonctionne la ligne a bien été copiée dans la feuille andré.

Pour Nbcouleur je l'ai rentré dans Modules 

Que veux tu faire avec cette fonction? 
Cela compte le nombre de couleurs d'une plage donnée!

hachbe · Answer

Re bonsoir
Voici le fichier avec la ligne du 9/10 dans rando
https://www.cjoint.com/c/GJtt7VQIwFd
Lorsque je rentre un 1 dans B66 sous andré cela ne change pas.
Pour la fonction NBcouleur cela me permet de compter le nombre de sortie 
raquette et le nombre de pique-nique ainsi que le nombre de resto
(la vie est dure a la retraite ....)
En tout cas merci de ton implication
Bernard

hachbe · Answer

Je viens de m'apercevoir que pour André la copie du 9/10
s'est faite 5 lignes plus bas et décalé la date dans le champ 
randonnée (en partie)
on s'approche du résultat c'est cool
Bernard

hachbe · Answer

Bonjour,
OK j'ai trouvé pourquoi cela ne fonctionne pas chez moi
en fai il faut que dans chaque classeur la premiere case vide dans la colonne A soit selectionner et la cela fonctionne 
Mais si je rajoute une rando par exemple le 13/10
la ligne de la modif d'avant (le 9/10 ) reste selectionne et ainsi lorsque je rentre le 1 et double click la ligne du 9/10 est remplacee par celle du 13/10
Quand au NB couleur cela fonctionne pour rando mais pas pour chacun
comme c'est une macro peut etre il faut modifier les fichiers en .xlsm au lieu de .xlsx Qu'en penses tu ?
Bone journée
Je fait une rando aujourd'hui
Bon courage
Bernard

cs_Le Pivert · Answer

Nouvelle mouture, il a fallu ruser. Les lignes pour chaque participants n'étaient jamais au même endroit, aucun repère!
J'ai donc fait un repère sur la ligne à coller pour chaque participant:le mot Dernière dans la colonne A. On cherche ce mot on colle à la place de ce mot et on remet Dernière en dessous.

Quand au NB couleur cela fonctionne pour rando 

Je ne sais pas comment tu opères sur la feuille Rando, il faut faire la même chose sur les autres feuilles.
Pour cela j'ai fait la copie et l'enregistrement en 2 temps. Avec un checkBox pour l'enregistrement.

http://www.cjoint.com/c/GJuko61drcQ

hachbe · Answer

Bonsoir,
Super cela fonctionne
Je ne voudrais pas abuser mais finalement comme j'ai tout regroupe les feuilles des participants sur marches2017 je n'ai plus besoin de la save xlsx
Je ne sais pas comment desactiver une ligne de code
Pour la fonction NBcouleur si je met la macro dans chaque champ correspondant au nombre de Pique-nique par exemple cela fonctionne mais avec un increment du numero de la feuille exemple pour Bernard je fais 
=NbCoulParCouleur(B4:B70;5)-5 pour avoir le chiffre exacte bernard etant la feuille 5 ?
Encore Merci
Bernard

cs_Le Pivert · Answer

Pour supprimer save xlsx, tu enlèves cette ligne: 

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nom & ".xlsx"

Voici un petit code sympa pour faire suivre la checkBox aux lignes de randonnées vers le bas.

A mettre à la suite:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valzoum As Integer
 Dim ecran
 Valzoum = ActiveWindow.Zoom
 Set ecran = ActiveWindow.VisibleRange
 With ActiveSheet
 Shapes("CheckBox1").Left = ecran.Left + 1300
 Shapes("CheckBox1").Top = ecran.Top + 300
 End With
End Sub



voilà bonnes randonnées

hachbe · Answer

Bonjour,
Je voudrais reouvrir ce post
Tout fonctionne bien
Mais lorsque je suprime la ligne pour la save Xlsx
il se creer une ligne classeur2 comment l'en empecher?
et comment faire pour ajouter un randonneur
ou en supprimer un ?
Merci
Bernard

cs_Le Pivert · Answer

Mettre ceci après 
Else

Else
'on enregistre en pdf
ActiveSheet.PageSetup.PrintArea = "A1:J" & Range("J" & Rows.Count).End(xlUp).Row 'plage de cellule à enregistrer
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      ThisWorkbook.Path & "\" & nom & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    End If
End If
End Sub 
 

et comment faire pour ajouter un randonneur 

De la même manière que tu as fait les autres!

ou en supprimer un 

supprimer la feuille et la colonne, c'est simple!

Voilà
@+ Le Pivert

hachbe · Answer

Bonsoir,
Il y a quelque chose que je ne dois pas faire correctement
1) Pour enregistrer un .pdf il faut que je commente 'Else
et la je creer bien un fichier .pdf
2) pour supprimer un randonneur OK
Mais pour en creer un nouveau le mot derrière n'apparait pas sur la prochaine 
ligne de la colonne A mais apparait a la place du titre 
et cela me creer une ligne ou les colonne B et C ; D et E ; H et I ne sont pas fusionner!
ci joint le fichier
https://www.cjoint.com/c/GJwtD1nQIfd

Merci de ton  aide
Bernard

hachbe · Answer

exemple pour Michel T.

cs_Le Pivert · Answer

Voilà, tu peux créer ta feuille et ta colonne au nom du participant. Le code est dans ThisWorkbook.
Tu peux supprimer ta feuille aussi par code. Il te resteras à supprimer la colonne manuellement.
Tu as toutes les indications sur la feuille Sommaire
Pour faire cela j'ai crée une feuille Modèle qui est cachée.

 http://www.cjoint.com/c/GJxj14eWHjQ

Il est bien entendu que pour le nouveau participant on ne peux mettre que les nouvelles randonnées!
 
@+ Le Pivert

hachbe · Answer

Bonsoir
Merci beaucoup pour ton aide et ta compétence sur le sujet
Bonne soirée
Bernard

cs_Le Pivert · Answer

J'ai réussi à tout automatiser, la colonne est supprimée également.
Si cela t'interesse?

hachbe · Answer

Bonjour,
OK je suis preneur
Merci d'avance
Bernard

cs_Le Pivert · Answer

Voilà, je me suis aperçu que pour les nouveaux participants, quand on double clic, cela ne fonctionne pas, il faut recommencer une nouvelle fois et là ça fonctionne.

 http://www.cjoint.com/c/GJygB35pEpQ

Bonne journée

cs_Le Pivert · Answer

Quand tu ajouteras un nouveau participant, il faudra que tu corriges ta formule dans la colonne U (Total) car elle sera fausse!
 =SOMME(B66:T66)

Pour ce qui est Formule ce n'est pas mon fort. Mélanger vba et formules c'est très compliqué!

Pour les Formules voit avec notre ami Raymond

cs_Le Pivert · Answer

Je me suis amusé a faire un code en vba pour réinitialiser les sommes de la colonne Total automatiquement suivant l'ajout ou la suppression de participants:

 http://www.cjoint.com/c/GJykpOkjlAQ

Voila

hachbe · Answer

Bonsoir,
C'est super tout fonctionne
Je n'ai pas encore testé la derniere modif
Mais j'ai pu tout mettre a jour
je te joins le fichier
Je suis toujours oblige de commenter 'Else
Mais cela fonctionne comme ça
https://www.cjoint.com/c/GJyrhfriR0d
Si tu peux incorporé la derniere modif

Bonne soirée
Bernard

cs_Le Pivert · Answer

Je suis toujours oblige de commenter 'Else 

Il ne faut pas, cela sert si tu coches Enregistrer d'enregistrer en PDF seulement. Si c'est décoché ça copie-colle seulement.
Le bouton Reset Total est à utiliser qu'en cas d'ajout ou de suppression de feuille pour mettre les formules à jour.

http://www.cjoint.com/c/GJzf5VRpH5Q 

Voilà bonne journée

hachbe · Answer

Bonjour,
cela sert si tu coches Enregistrer
Ou puis je cocher enregistrer en pdf  ?
Car je ne vois pas de fichier pdf sur lmon ordi a la date et heure ou
je double click sur 1
et cette fois meme en commentant 'Else
je sens que l'on y est presque
merci
bernard

cs_Le Pivert · Answer

quand tu coches ici, la feuille du double clic 1 est enregistrer en pdf dans le même dossier que le classeur

Voilà 
 
@+ Le Pivert

hachbe · Answer

Quand je disais que j'etais quasi nul dans ce domaine
C'est impeccable
Cela va me faciliter la vie
Ensuite je copie ces fichiers PDF dans un site WIX
que tu peux voir en tapant sur google bheck5
Je te remercie beaucoup
pour ton efficacité et ta patience 
Cordialement 
Bernard

hachbe · Answer

Bonjour,
Penses tu qu'il serait possible d’intégrer ces fichiers .pdf

dans le site web (par ftp ou autre)?
si oui je crée une autre question
Si tu veux accéder a tous le site (password)
donnes moi ton mail
(pour préserver l’anonymat)
Encore Merci
Bernard

cs_Le Pivert · Answer

voir ceci:

 https://www.commentcamarche.net/faq/9167-publier-un-fichier-pdf-sur-son-site

hachbe · Answer

Bonsoir,
Je vais regarder cela 
Mais ça m'a pas l'air très simple!
Cordialement
Bernard

hachbe · Answer

Bonjour
C'est bien ce que je pensais 
ce n'est pas de mon niveau
Je sais copier manuellement un fichier dans un répertoire
Mais transfert par FTP ?
puis copier du code ?
Et copier les fichiers de tous les participants relié au double click de save ??
Bref je ne sais pas faire.
Bonne journée
Bernard

hachbe · Answer

Bonsoir Raymond,
Donc je continue ce post
Est il possible d'inserer ces fichiers prenom.pdf dans
un site internet créé sur WIX
je joint le fichier marches2017
https://www.cjoint.com/c/GJCsDWSgqQd
Le site sur google taper bheck5 pour acceder 
mais la partie interessante est sous mot de passe
me joindre par mail
Cordialement
Bernard

cs_Le Pivert · Answer

On a répondu à ta question initiale. Tu as fait une autre demande, je t'ai communiqué un lien. Maintenant tu mets résolu pour ta 1ère demande et pour ta seconde demande qui n'a rien à voir avec la 1ère va sur ce forum où tu auras beaucoup plus de chance d'avoir une réponse.

https://forums.commentcamarche.net/forum/hebergement-160

Bon courage

hachbe · Answer

Bonsoir,
Alors la je ne sais plus quoi faire!!!!
Tu me dis de clore se sujet ce que j'avais fait
Raymond me dis de continuer celui ci?
Donc je clos et je vais sur l'autre Forum
Merci
Bonne nuit a tous les deux

gbinforme · Answer

Bonjour, 

Question supplémentaire ici :
https://forums.commentcamarche.net/forum/affich-34980520-changement-d-annee 
 --
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry

cs_Le Pivert · Answer

Bonjour et Merci gbinforme,

hachbe, il suffit d'effacer les données de remplacer 2017 par 2018 
J'ai effacé les données du 1er marcheur, je te laisse le soin de faire la même chose pour tous les autres.

Voici le classeur:

http://www.cjoint.com/c/GKgg4XaxOTQ 

Quand tu veux un supplément d'info il faut rester sur le même post.

hachbe · Answer

Bonjour,
Content de te retrouver
J'aurais pu y penser tout seul c'est vrai
et je remplace dans ton programme 
 Sheets(Sheets.Count).Range("A1").Value = "Randonnées " & Nom & vbCrLf & "Année 2017" par 2018
Je n'ai pas trouve d'autre occurence  pour 2017 
Bien que je ne sache pas les chercher par commmande
Encore Merci
Cordialement
Bernard

cs_Le Pivert · Answer

J'ai ajouté le tri des colonnes et des onglets par ordre alphabétique a chaque ajout de nouveau marcheur:

http://www.cjoint.com/c/GKgo7nMwaEQ

hachbe · Answer

Bonsoir
Je rentre d'une nouvelle rando
Merci pour tes bons voeux (avec un peu d'avance)
Merci pour le tri
J'ai fait un poste pour l'integration dans le site web
mais cela n'a pas l'air de brancher quelqu'un
tu pourrais essayer ou cela n'est pas dans ton domaine
par exemple avec 3 boutons
1 double click sur 1 = enregistrement
2     "              "    =save pdf
3     "              "    =ftp vers site
c'est une idée
Je te laisse maitre
cordialement
Bernard

hachbe · Answer

essai de recup du dernier code

Automatiser les sauvegardes lorsque je renseigne Marche2017 ...

47 réponses

Discussions similaires