Bonjour =E0 tous,
je suis confront=E9 au probl=E8me suivant:comment r=E9cup=E9rer un pied de
page qui se trouverait par exemple dans B5 6=E8me onglet d'un
classeurLamba;il faudrait que ce oied de page se mette automatiquement
=E0 l'impression pour tous les classeurs d'un m=EAme r=E9pertoire et cela
exclue donc =E0 priori les m=E9thodes ActiveSheet.CenterFooter=3D[B5].....
Merci d'avance
Chalo
J'aurais une solution ce serait de récupérer dans une Variable le paramètre pied de page Puis d'ouvrir un a un les fichiers du répertoire et d'actualiser tous les onglets de leur pied de page avec cette variable Tous celà par macro et avant l'impression :
'Supposant que le pied de page soit dans l'onglet "Feuil1" cellulle "A1"
Workbooks.Open Filename:="E:CheminFichier référence pied de page.xls" A = Sheets("Feuil1").Range("A1") ActiveWorkbook.Close SaveChanges:úlse With Application.FileSearch .LookIn = "E:CheminRépertoire" .FileType = msoFileTypeExcelWorkbooks .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count .Application.Workbooks.Open Filename:="E:CheminRépertoire" & Mid(.FoundFiles(I), Len(.LookIn) + 2) For J = 1 To Sheets.Count With Sheets(J).PageSetup .CenterFooter = A End With Next J ActiveWorkbook.Close SaveChanges:=True Next I End With
Celà devrait faire
Bonjour à tous, je suis confronté au problème suivant:comment récupérer un pied de page qui se trouverait par exemple dans B5 6ème onglet d'un classeurLamba;il faudrait que ce oied de page se mette automatiquement à l'impression pour tous les classeurs d'un même répertoire et cela exclue donc à priori les méthodes ActiveSheet.CenterFooter=[B5]..... Merci d'avance Chalo
Salut à toi
J'aurais une solution
ce serait de récupérer dans une Variable le paramètre pied de page
Puis d'ouvrir un a un les fichiers du répertoire et d'actualiser tous les
onglets de leur pied de page avec cette variable
Tous celà par macro et avant l'impression :
'Supposant que le pied de page soit dans l'onglet "Feuil1" cellulle "A1"
Workbooks.Open Filename:="E:CheminFichier référence pied de page.xls"
A = Sheets("Feuil1").Range("A1")
ActiveWorkbook.Close SaveChanges:úlse
With Application.FileSearch
.LookIn = "E:CheminRépertoire"
.FileType = msoFileTypeExcelWorkbooks
.Execute
End With
With Application.FileSearch
For I = 1 To .FoundFiles.Count
.Application.Workbooks.Open Filename:="E:CheminRépertoire" &
Mid(.FoundFiles(I), Len(.LookIn) + 2)
For J = 1 To Sheets.Count
With Sheets(J).PageSetup
.CenterFooter = A
End With
Next J
ActiveWorkbook.Close SaveChanges:=True
Next I
End With
Celà devrait faire
Bonjour à tous,
je suis confronté au problème suivant:comment récupérer un pied de
page qui se trouverait par exemple dans B5 6ème onglet d'un
classeurLamba;il faudrait que ce oied de page se mette automatiquement
à l'impression pour tous les classeurs d'un même répertoire et cela
exclue donc à priori les méthodes ActiveSheet.CenterFooter=[B5].....
Merci d'avance
Chalo
J'aurais une solution ce serait de récupérer dans une Variable le paramètre pied de page Puis d'ouvrir un a un les fichiers du répertoire et d'actualiser tous les onglets de leur pied de page avec cette variable Tous celà par macro et avant l'impression :
'Supposant que le pied de page soit dans l'onglet "Feuil1" cellulle "A1"
Workbooks.Open Filename:="E:CheminFichier référence pied de page.xls" A = Sheets("Feuil1").Range("A1") ActiveWorkbook.Close SaveChanges:úlse With Application.FileSearch .LookIn = "E:CheminRépertoire" .FileType = msoFileTypeExcelWorkbooks .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count .Application.Workbooks.Open Filename:="E:CheminRépertoire" & Mid(.FoundFiles(I), Len(.LookIn) + 2) For J = 1 To Sheets.Count With Sheets(J).PageSetup .CenterFooter = A End With Next J ActiveWorkbook.Close SaveChanges:=True Next I End With
Celà devrait faire
Bonjour à tous, je suis confronté au problème suivant:comment récupérer un pied de page qui se trouverait par exemple dans B5 6ème onglet d'un classeurLamba;il faudrait que ce oied de page se mette automatiquement à l'impression pour tous les classeurs d'un même répertoire et cela exclue donc à priori les méthodes ActiveSheet.CenterFooter=[B5]..... Merci d'avance Chalo
chalo
On 22 oct, 17:39, FFO wrote:
Salut à toi
J'aurais une solution ce serait de récupérer dans une Variable le paramètre pied de page Puis d'ouvrir un a un les fichiers du répertoire et d'actualiser tous l es onglets de leur pied de page avec cette variable Tous celà par macro et avant l'impression :
'Supposant que le pied de page soit dans l'onglet "Feuil1" cellulle "A1"
Workbooks.Open Filename:="E:CheminFichier référence pied de page. xls" A = Sheets("Feuil1").Range("A1") ActiveWorkbook.Close SaveChanges:úlse With Application.FileSearch .LookIn = "E:CheminRépertoire" .FileType = msoFileTypeExcelWorkbooks .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count .Application.Workbooks.Open Filename:="E:CheminRépertoire" & Mid(.FoundFiles(I), Len(.LookIn) + 2) For J = 1 To Sheets.Count With Sheets(J).PageSetup .CenterFooter = A End With Next J ActiveWorkbook.Close SaveChanges:=True Next I End With
Celà devrait faire
Bonjour à tous, je suis confronté au problème suivant:comment récupérer un pied de page qui se trouverait par exemple dans B5 6ème onglet d'un classeurLamba;il faudrait que ce oied de page se mette automatiquement à l'impression pour tous les classeurs d'un même répertoire et ce la exclue donc à priori les méthodes ActiveSheet.CenterFooter=[B5].. ... Merci d'avance Chalo
merci beaucoup et désolé pour cette réponse tardive j'esaie de mettre en oeuvre dès demain Chalo
On 22 oct, 17:39, FFO <F...@discussions.microsoft.com> wrote:
Salut à toi
J'aurais une solution
ce serait de récupérer dans une Variable le paramètre pied de page
Puis d'ouvrir un a un les fichiers du répertoire et d'actualiser tous l es
onglets de leur pied de page avec cette variable
Tous celà par macro et avant l'impression :
'Supposant que le pied de page soit dans l'onglet "Feuil1" cellulle "A1"
Workbooks.Open Filename:="E:CheminFichier référence pied de page. xls"
A = Sheets("Feuil1").Range("A1")
ActiveWorkbook.Close SaveChanges:=False
With Application.FileSearch
.LookIn = "E:CheminRépertoire"
.FileType = msoFileTypeExcelWorkbooks
.Execute
End With
With Application.FileSearch
For I = 1 To .FoundFiles.Count
.Application.Workbooks.Open Filename:="E:CheminRépertoire" &
Mid(.FoundFiles(I), Len(.LookIn) + 2)
For J = 1 To Sheets.Count
With Sheets(J).PageSetup
.CenterFooter = A
End With
Next J
ActiveWorkbook.Close SaveChanges:=True
Next I
End With
Celà devrait faire
Bonjour à tous,
je suis confronté au problème suivant:comment récupérer un pied de
page qui se trouverait par exemple dans B5 6ème onglet d'un
classeurLamba;il faudrait que ce oied de page se mette automatiquement
à l'impression pour tous les classeurs d'un même répertoire et ce la
exclue donc à priori les méthodes ActiveSheet.CenterFooter=[B5].. ...
Merci d'avance
Chalo
merci beaucoup et désolé pour cette réponse tardive j'esaie de mettre
en oeuvre dès demain
Chalo
J'aurais une solution ce serait de récupérer dans une Variable le paramètre pied de page Puis d'ouvrir un a un les fichiers du répertoire et d'actualiser tous l es onglets de leur pied de page avec cette variable Tous celà par macro et avant l'impression :
'Supposant que le pied de page soit dans l'onglet "Feuil1" cellulle "A1"
Workbooks.Open Filename:="E:CheminFichier référence pied de page. xls" A = Sheets("Feuil1").Range("A1") ActiveWorkbook.Close SaveChanges:úlse With Application.FileSearch .LookIn = "E:CheminRépertoire" .FileType = msoFileTypeExcelWorkbooks .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count .Application.Workbooks.Open Filename:="E:CheminRépertoire" & Mid(.FoundFiles(I), Len(.LookIn) + 2) For J = 1 To Sheets.Count With Sheets(J).PageSetup .CenterFooter = A End With Next J ActiveWorkbook.Close SaveChanges:=True Next I End With
Celà devrait faire
Bonjour à tous, je suis confronté au problème suivant:comment récupérer un pied de page qui se trouverait par exemple dans B5 6ème onglet d'un classeurLamba;il faudrait que ce oied de page se mette automatiquement à l'impression pour tous les classeurs d'un même répertoire et ce la exclue donc à priori les méthodes ActiveSheet.CenterFooter=[B5].. ... Merci d'avance Chalo
merci beaucoup et désolé pour cette réponse tardive j'esaie de mettre en oeuvre dès demain Chalo