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

moogu -  
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
    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
    1. moogu Auteur
      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