Sauvegarde automatique d'une feuille
Bonsoir,
Je viens de changer de suite Microsoft (2007 au lieu de 2000) et j'avais fait une macro dans un classeur XLS pour sauvegarder automatiquement une seule des feuilles du classeur à un emplacement bien précis avec comme nom la valeur d'une cellule X qui s'incrémente d'elle même.
Et là, en changeant de version XLS j'ai un bug...
Quelqu'un aurait-il la solution ?
D'avance merci.
Bonjour,
Ah ben, c'est super clair, comment tu fais pour ne pas t'en rendre compte ?!
Sinon, plus sérieusement, j'ai beau avoir des boules en cristal, elles me permettent pas de voir ta macro ni ton fichier
Bonjour,
effectivement j'ai un peu zappé la macro...
La voici :
Sub Archiver()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "O:\0 - COMMANDEMENT\11 - PCO-PM\Planning\2013\PLANNING V1 2013\SAUVEGARDE AUTO planningV1 XLS\"
nomfichier = ActiveSheet.Range("A2") & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End Sub
Avant elle fonctionnait très bien mais le chemin était différent. Celui-ci est bien valide mais la macro bug sur ".SaveAs Filename:=chemin & nomfichier"
Merci d'avance.
Nicolas.
Le problème vient sûrement d'un problème de compatibilité..Essaie de ne préciser aucune extension, qui sait.
Le problème c'est que je n'ai pas les mêmes versions d'excel que toi donc difficile de savoir si ça corrige ou pas
Sub Archiver()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
'extension = ".xls"
chemin = "O:\0 - COMMANDEMENT\11 - PCO-PM\Planning\2013\PLANNING V1 2013\SAUVEGARDE AUTO planningV1 XLS\"
nomfichier = ActiveSheet.Range("A2") '& extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub