Sujet Précédent Sujet Suivant

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

Fermé
Hela2004 Messages postés 5 Date d'inscription vendredi 11 octobre 2019 Statut Membre Dernière intervention 12 octobre 2019 - 11 oct. 2019 à 14:10
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
A voir également:

5 réponses

Réponse 1 / 5
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 11 oct. 2019 à 16:11
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



0
Réponse 2 / 5
Hela2004 Messages postés 5 Date d'inscription vendredi 11 octobre 2019 Statut Membre Dernière intervention 12 octobre 2019
11 oct. 2019 à 21:00
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
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 oct. 2019 à 11:57
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
0
Réponse 3 / 5
Hela2004 Messages postés 5 Date d'inscription vendredi 11 octobre 2019 Statut Membre Dernière intervention 12 octobre 2019
12 oct. 2019 à 15:49
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é.
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 oct. 2019 à 16:13
Voilà une manière de faire. Vois si cela te convient

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

@+ Le Pivert
0
Réponse 4 / 5
Hela2004 Messages postés 5 Date d'inscription vendredi 11 octobre 2019 Statut Membre Dernière intervention 12 octobre 2019
12 oct. 2019 à 16:21
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é ^^
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 oct. 2019 à 17:09
Comme ceci: 

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


@+ Le Pivert
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
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
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.
0

Discussions similaires

ou sont les bananes ?
Liline -
Le Pro -

2 réponses
Tableau croisé dynamique avec plusieurs en-têtes identiques
RisingStar84 -
danielc0 -

1 réponse
Bibliothèque
cosjac85 -
renard bleu -

3 réponses