Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Dans Affichage/Entêtes et pieds de page/Entêtes personnalisés, il y a un icône représentant un dossier qui fera ton bonheur. Cordialement. Daniel "Nicolas ROBERT" a écrit dans le message de news: 4202204a$0$6584$
Bonjour,
Comment dans l'entête d'une feuille, peut-on indiquer l'emplacement du fichier une fois enregistré ? C'est possible avec Word et excel ?
Merci
Nicolas
Bonjour.
Dans Affichage/Entêtes et pieds de page/Entêtes personnalisés, il y a un
icône représentant un dossier qui fera ton bonheur.
Cordialement.
Daniel
"Nicolas ROBERT" <nrobert_paspam@opac41.fr> a écrit dans le message de news:
4202204a$0$6584$8fcfb975@news.wanadoo.fr...
Bonjour,
Comment dans l'entête d'une feuille, peut-on indiquer l'emplacement du
fichier une fois enregistré ?
C'est possible avec Word et excel ?
Bonjour. Dans Affichage/Entêtes et pieds de page/Entêtes personnalisés, il y a un icône représentant un dossier qui fera ton bonheur. Cordialement. Daniel "Nicolas ROBERT" a écrit dans le message de news: 4202204a$0$6584$
Bonjour,
Comment dans l'entête d'une feuille, peut-on indiquer l'emplacement du fichier une fois enregistré ? C'est possible avec Word et excel ?
Merci
Nicolas
Gaspareau
Bonjour
Sinon sur www.excelabo.com tu trouveras un code pour faire le travail avec chemin complet en pied de page. À toi de l'Ajuster pour l'Avoir en en-tête
d'ailleur en voici un adaptation qui insère le nom du fichier et sauvegarde le fichier : Sub Pied_page_sauvegarde1()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
Dim LeNom As String Application.EnableEvents = False With sht LeNom = ActiveWorkbook.FullName With .PageSetup .RightFooter = "" .CenterFooter = "" .LeftFooter = ""
End With sht.PageSetup.RightFooter = "&""Stylus bt,Normal""&5" & "..." & Right(LeNom, 150)
End With
Application.EnableEvents = True
Next sht
ActiveWorkbook.Save
"Daniel" a écrit dans le message de news:
Bonjour. Dans Affichage/Entêtes et pieds de page/Entêtes personnalisés, il y a un icône représentant un dossier qui fera ton bonheur. Cordialement. Daniel "Nicolas ROBERT" a écrit dans le message de news:
4202204a$0$6584$
Bonjour,
Comment dans l'entête d'une feuille, peut-on indiquer l'emplacement du fichier une fois enregistré ? C'est possible avec Word et excel ?
Merci
Nicolas
Bonjour
Sinon sur www.excelabo.com tu trouveras un code
pour faire le travail avec chemin complet
en pied de page. À toi de l'Ajuster pour l'Avoir en en-tête
d'ailleur en voici un adaptation qui insère le nom du fichier
et sauvegarde le fichier
:
Sub Pied_page_sauvegarde1()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
Dim LeNom As String
Application.EnableEvents = False
With sht
LeNom = ActiveWorkbook.FullName
With .PageSetup
.RightFooter = ""
.CenterFooter = ""
.LeftFooter = ""
End With
sht.PageSetup.RightFooter = "&""Stylus bt,Normal""&5" & "..." &
Right(LeNom, 150)
End With
Application.EnableEvents = True
Next sht
ActiveWorkbook.Save
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:OhZEaVfCFHA.1392@tk2msftngp13.phx.gbl...
Bonjour.
Dans Affichage/Entêtes et pieds de page/Entêtes personnalisés, il y a un
icône représentant un dossier qui fera ton bonheur.
Cordialement.
Daniel
"Nicolas ROBERT" <nrobert_paspam@opac41.fr> a écrit dans le message de
news:
4202204a$0$6584$8fcfb975@news.wanadoo.fr...
Bonjour,
Comment dans l'entête d'une feuille, peut-on indiquer l'emplacement du
fichier une fois enregistré ?
C'est possible avec Word et excel ?
Sinon sur www.excelabo.com tu trouveras un code pour faire le travail avec chemin complet en pied de page. À toi de l'Ajuster pour l'Avoir en en-tête
d'ailleur en voici un adaptation qui insère le nom du fichier et sauvegarde le fichier : Sub Pied_page_sauvegarde1()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
Dim LeNom As String Application.EnableEvents = False With sht LeNom = ActiveWorkbook.FullName With .PageSetup .RightFooter = "" .CenterFooter = "" .LeftFooter = ""
End With sht.PageSetup.RightFooter = "&""Stylus bt,Normal""&5" & "..." & Right(LeNom, 150)
End With
Application.EnableEvents = True
Next sht
ActiveWorkbook.Save
"Daniel" a écrit dans le message de news:
Bonjour. Dans Affichage/Entêtes et pieds de page/Entêtes personnalisés, il y a un icône représentant un dossier qui fera ton bonheur. Cordialement. Daniel "Nicolas ROBERT" a écrit dans le message de news:
4202204a$0$6584$
Bonjour,
Comment dans l'entête d'une feuille, peut-on indiquer l'emplacement du fichier une fois enregistré ? C'est possible avec Word et excel ?
