-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

  1.
    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
  2. 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