NUmérotation page / section à plusieurs pages

Sub pagination()
Dim oField As Field
Dim oSection As Section
Dim oFooter As HeaderFooter
For Each oSection In ActiveDocument.Sections
    For Each oFooter In oSection.Footers
        If oFooter.Exists Then oFooter.Range.Delete
    Next oFooter
Next oSection

For Each oSection In ActiveDocument.Sections
    For Each oFooter In oSection.Footers
        If oFooter.Exists Then
                oFooter.Range.Fields.Add oFooter.Range, wdFieldPage, , False
                oFooter.PageNumbers.RestartNumberingAtSection = False
                oFooter.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        End If
    Next oFooter
Next oSection
End Sub

 1) Tu vas dans https://www.cjoint.com/ 
 2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi)
 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien"
 5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 
Il existe aussi :
 1) https://mon-partage.fr/ 
 2) https://www.transfernow.net/ 

• m@rina :

• larannette :