-macro- Sélection de colonne dans création de tableau

moogu Messages postés 26 Statut Membre -  
moogu Messages postés 26 Statut Membre -
Bonjour,

je travaille actuellement sur des tableaux de caractéristique des arbres, je souhaitais savoir si il était possible à l'aide d'une macro de faire l'action suivante.

Sur le fichier excel :

supprimer certaine ligne qui ce retrouve à différents emplacement mais garde la même dénomination, puis enregistrer le nouveau tableau en pdf

pour un fichier c'est réalisable à la main mais j'ai environ 300 fichiers à traités... et je commence tout juste la macro, si quelqu'un aurait une idée ???

merci,

cordialement,

2 réponses

Morgothal Messages postés 1350 Statut Membre 184
 
Bonjour,
Pour enregistrer en PDF :

Sub Enreg_Pdf()
Dim LaDate As String, LeRep As String
LaDate = Format(Date, "yyyymmdd")
LeRep = ThisWorkbook.Path & "\PDF\"  ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    LeRep & ThisWorkbook.Name & "_" & LaDate & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
End Sub 

Je n'ai pas compris ce que devais faire la première partie de la macro ...
0
moogu Messages postés 26 Statut Membre
 
Bonjour,

en effet je n'ai pas été très clair, désolé,

du coup je me retrouve avec plusieurs dossier de fichiers comme ci-contre :
https://www.cjoint.com/?0Cvi2G7Mqjx

je dois dans un premier temps, tous les enregistrer en pdf telle quel :
exemple : https://www.cjoint.com/?0Cvi4BXdZv3

dans un deuxième temps,

- à partir de l'original, je dois modifier la police sur tous le document (en Verdana)

- je dois supprime les lignes et contenu suivant :

CONCLUSION
DIAGNOSTIC
OBSERVATIONS
ETALEMENT MOYEN PRECONISE
SURFACE TERRIERE
COEFFICIENT D'ELANCEMENT
DIAGNOSTIC HAUTEUR
DIAGNOSTIC ÂGE
ÂGE ONTOLOGIQUE

- supprimer le mots TABLEAU de tous les documents

- passer en corps 12 les titres suivants :

DETERMINATION BOTANIQUE
AUTECOLOGIE
EXPERTISE

- passer les lignes suivante en fond vert et texte en blanc :

ORGANES OBSERVATIONS
PARAMETRES CARACTERISTIQUES
PARAMETRES DE L'ARBRE OBSERVATIONS / RELEVES

- passer toute les colonnes de gauches en fer à gauche (voir exemple)

puis enregistrer en pdf,

genre mission impossible pour moi qui débute tous juste dans la macro,
j'espère qu'une âme courageuse pourra m'aider

exemple fichier excel : https://www.cjoint.com/?0CvluTRRZcs
exemple résultat final : https://www.cjoint.com/?0CvlvP7XztI

en vous remerciant d'avance pour vos réponse,

bien cordialement,

fab

p.S merci à morgothal pour ce premier élément de réponse
0