Récupérer les données d'un tableau source

Messages postés
5
Date d'inscription
vendredi 11 octobre 2019
Statut
Membre
Dernière intervention
12 octobre 2019
- - Dernière réponse : Hela2004
Messages postés
5
Date d'inscription
vendredi 11 octobre 2019
Statut
Membre
Dernière intervention
12 octobre 2019
- 12 oct. 2019 à 17:41
Bonjour,

Je vous sollicite aujourd'hui, car je n'arrive pas de tout à faire entendre à Excel mon projet. ( Excel est des fois capricieux)

Je m'explique :

J'ai une page source avec un tableau qui s'intitule : rapport de chantier. Ce rapport est rempli chaque semaine, pour le calcul des heures de chantiers (temps de trajet, repas, temps de travail)...

Je souhaite créer un bouton macro qui effectue les tâches suivantes :

1 - Sauvegarde des données dans la feuille N° 1 à la suite : Les couleurs sur le tableau et la feuille correspondent aux données que je souhaite garder.
2 - Impression du tableau rapport de chantier en format PDF
3 - Suppression des données dans le rapport de chantier
4 - Sauvegarde

De cette façon, j'ai un historique de jour en jour et semaine en semaine, des rapports de chantier, et à chaque fois que je clic sur le bouton cela, remet le tableau rapport de chantier prêt à remplir.

Je vous remercie d'avance pour vos miracles :)

Voici le Fichier : https://www.cjoint.com/c/IJlmjPHCkMT
Afficher la suite 

5 réponses

Messages postés
6274
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 octobre 2019
398
0
Merci
Bonjour,

voilà un début: enregistrer en PDF.

Faire Alt F11 pour accéder à l'éditeur

Insérer un module pour y mettre ce code

Aller sur le bouton(forme grise) clic droit: Affecter une macro et sélectionner SavePDF


Option Explicit
Sub SavePDF()
Dim chemin As String
Dim nom As String
Dim p As Range
Set p = ActiveSheet.Range("A1", "AC23") 'a adapter
chemin = ThisWorkbook.Path & "\"
nom = "Rapport-de-chantier-vierge_semaine " & ActiveSheet.Range("AA6") 'numéro semaine
 p.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nom & ".pdf", _
                                            Quality:=xlQualityStandard, IncludeDocProperties:=False, _
                                            OpenAfterPublish:=False
End Sub


enregistrer sous: classeur prenant en charge les macros et fermer

Voilà c'est opérationnel le pdf sera dans le même dossier que le classeur



Commenter la réponse de cs_Le Pivert
Messages postés
5
Date d'inscription
vendredi 11 octobre 2019
Statut
Membre
Dernière intervention
12 octobre 2019
0
Merci
Bonsoir,

Merci pour l'impression PDF, a vrai dire ce n'est pas trop celui là qui me pose problème, même si j'appréci votre code, et je le garde pour plus tard.

La difficulté que je rencontre, c'est de sauvegarder des données précises dans le tableau, suite après suite.

Merci beaucoup pour votre intervention
cs_Le Pivert
Messages postés
6274
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 octobre 2019
398 -
voilà le classeur avec

1 - Sauvegarde des données dans la feuille N° 1 à la suite : Les couleurs sur le tableau et la feuille correspondent aux données que je souhaite garder
Je n'ai fait que le Lundi, il faudra continuer en jouant sur le décalage des colonnes (c'est une usine à gaz!).
2 - Impression du tableau rapport de chantier en format PDF
3 - Suppression des données dans le rapport de chantier


Les cellules fusionnées s'accordent mal avec vba

https://www.cjoint.com/c/IJmj0bjQ82Q

@+ Le Pivert
Commenter la réponse de Hela2004
Messages postés
5
Date d'inscription
vendredi 11 octobre 2019
Statut
Membre
Dernière intervention
12 octobre 2019
0
Merci
Merci cs_Le Pivert, je vais regarder ce que ça donne et tenter de repartir de ton code pour faire le reste.

Je te redis si j'y suis arrivé.
cs_Le Pivert
Messages postés
6274
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 octobre 2019
398 -
Voilà une manière de faire. Vois si cela te convient

https://www.cjoint.com/c/IJmomZ2RmNQ

@+ Le Pivert
Commenter la réponse de Hela2004
Messages postés
5
Date d'inscription
vendredi 11 octobre 2019
Statut
Membre
Dernière intervention
12 octobre 2019
0
Merci
Rebonjour,

C'est quasiment parfait, il faut juste que je change le code de réinitialiser car cela efface même les cellules avec les calculs.

Tu m'as déjà bien aidé ^^
cs_Le Pivert
Messages postés
6274
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 octobre 2019
398 -
Comme ceci:

Sub reinitialiser()
    Range("13:16,20:23").SpecialCells(xlCellTypeConstants).ClearContents
       MsgBox "Opération réussie", vbInformation, "Réinitialiser"
End Sub


@+ Le Pivert
Commenter la réponse de Hela2004
Messages postés
5
Date d'inscription
vendredi 11 octobre 2019
Statut
Membre
Dernière intervention
12 octobre 2019
0
Merci
Merci à toi, j'ai quelques réglages final à faire, mais tu à fait les 3/4. Je vais finir le reste, je devrais pouvoir y arriver. Je reviendrai si jamais ^^

En tout cas un grand merci à toi, pour avoir passé du temps à me répondre.
Commenter la réponse de Hela2004