Archives du mois : mai 2017


Le métier de rédacteur web

Concepteur-rédacteur multimédia, rédacteur SEO SEO – Search Engine Optimization, Optimisation pour les moteurs de recherche Le rédacteur web produit des contenus rédactionnels adaptés au web. Les règles d’écriture diffèrent de celles de la presse écrite : l’écriture doit être concise, rapidement compréhensible et le style dynamique. Cette écriture doit également […]


Création d’un nouveau classeur

Sub NouveauClasseur(Fichier As String) Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject(« Excel.Application ») xlApp.SheetsInNewWorkbook = 1 Set xlBook = xlApp.Workbooks.Add xlBook.SaveAs (Fichier), FileFormat:=56 xlApp.Visible = True Set xlSheet = xlBook.Sheets(1) xlSheet.Name = « Datas » Set xlSheet = Nothing xlApp.DisplayAlerts = False xlApp.Save xlApp.DisplayAlerts = […]


Exporter une feuille en « Pdf »

Sub ExporterPdf(Nom As String, Onglet As String) On Error Resume Next Dim Fichier As String Set Classeur = ThisWorkbook Classeur.Sheets(Onglet).Activate Fichier = ActiveWorkbook.Path & « \ » _ & Nom _ & « _ » & Year(Now) & « _ » & Month(Now) & « _ » & Day(Now) _ & « .pdf » Classeur.Sheets(Onglet).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier , Quality:=xlQualityStandard, IncludeDocProperties:=True, […]


Recherche d’une colonne par son titre dans une page

Public Function LaColonne(Classeur As Workbook, Onglet As String, EnTete As String, Ligne As Long) As Integer Dim x As Integer On Error Resume Next Classeur.Sheets(Onglet).Activate For x = 1 To Classeur.Sheets(Onglet).UsedRange.Columns.Count If Left(Classeur.Sheets(Onglet).Cells(Ligne, x).Value, Len(EnTete)) = EnTete Then LaColonne = Classeur.Sheets(Onglet).Cells(Ligne, x).Column Exit For End If Next x ‘Usage => […]