Marge sous vba

Bonsoir Pascal

Dans ce cas tu utilises l'enregistreur de macro (onglet Developpeur Enregsitrer une macro) tu regles tes marges Mises en page Marges Personalisée

Tu trouveras après dans le code enregistré les lignes nécessaires :

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.118110236220472)
.RightMargin = Application.InchesToPoints(0.118110236220472)
.TopMargin = Application.InchesToPoints(0.551181102362205)
.BottomMargin = Application.InchesToPoints(0.354330708661417)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.118110236220472)
End With

Cdlmnt

Bonjour Via55,

Ok! j'ai essayé ta manip est j'ai réussie à récupérer la mise en page et marge en mémoire.

Je te remercie encore une fois pour ton aide.

Aurais-tu une réponse à ma question concernant mon logo à insérer, je voudrais savoir comment je peux mettre ce logo en jpg dans une feuille du classeur actuel et la recopier dans les autres feuilles du classeur.

Mita m'a donné un code qui fonctionne, mais pour l'instant je vais chercher l'image dans un autre classeur et si je la mets dans une feuille du classeur actuel, le classeur sera autonome.
Le code :
Pour un chemin fixe

Sub Macro1()
Dim Gauche, Sommet, Largeur, Hauteur As Single

Gauche = Range("C2").Left
Sommet = Range("C2").Top
Largeur = Range("C2").Width
Hauteur = Range("C2").Height

Feuil1.Shapes.AddPicture "W:\logo\logo.jpg", True, True, Gauche, Sommet, Largeur, Hauteur

End Sub

Bon je ne sais pas si mon explication est bien claire.

Je te souhaite un bonne journée et un bon WE.
Salutations

Pascal