bonjour à tous,
cela fait 2 jour que je travaille sur un fichier... j'ai chercher sur la toile la solution à ma question mais je ne trouve pas.
j'ai donc une macro qui m'ouvre tout plein de classeurs excel et qui me les renomme et les enregistre (avec une date et un nom specifique) puis ferme tout et passe au fichier suivant.
mon souhait est d'arriver à faire un zoom 80 sur toutes les feuilles du classeur (elles ont toutes un nom differents selon les fichiers).
j'ai reussi mais cela fonctionne qu'avec la 1ere page.
je vous mets mon code
Next
nFichier = Replace(nFichier, aDate, sDate)
ActiveWindow.Zoom = 80
.SaveAs pRepMaj & "\" & nFichier
.Close
End With
je vous remercie par avance de votre aide
sadia
cela fait 2 jour que je travaille sur un fichier... j'ai chercher sur la toile la solution à ma question mais je ne trouve pas.
j'ai donc une macro qui m'ouvre tout plein de classeurs excel et qui me les renomme et les enregistre (avec une date et un nom specifique) puis ferme tout et passe au fichier suivant.
mon souhait est d'arriver à faire un zoom 80 sur toutes les feuilles du classeur (elles ont toutes un nom differents selon les fichiers).
j'ai reussi mais cela fonctionne qu'avec la 1ere page.
je vous mets mon code
Next
nFichier = Replace(nFichier, aDate, sDate)
ActiveWindow.Zoom = 80
.SaveAs pRepMaj & "\" & nFichier
.Close
End With
je vous remercie par avance de votre aide
sadia