[VBA] SaveAs sous 2007

SaveAs sous 2007 [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 23-10-2012 à 11:07:44    

Le passage à Office 2007 a occasionné quelques changements dans certaines commandes VBA.
 
Parmi celles ci, le SaveAs.
 
Nous avons toute une tripotée de nouveaux formats pour nous amuser.
Laisser le format en facultatif ne semble plus une option.
 
Un petit programme pour enregistrer vos fichiers Excel au bon format est disponible ici :  http://www.rondebruin.nl/saveas.htm
Je cite :  

Citation :

       'Find the correct FileFormat that match the choice in the "Save as type" list
        If fname <> False Then
            Select Case LCase(Right(fname, Len(fname) - InStrRev(fname, ".", , 1)))
            Case "xls": FileFormatValue = 56
            Case "xlsx": FileFormatValue = 51
            Case "xlsm": FileFormatValue = 52
            Case "xlsb": FileFormatValue = 50
            Case Else: FileFormatValue = 0
            End Select


 
l'"Aide" de Microsoft sur la dite fonction : http://msdn.microsoft.com/en-us/li [...] 12%29.aspx
La liste de tous les formats disponibles : http://msdn.microsoft.com/en-us/li [...] 12%29.aspx
 
 
La commande SaveAs a parfois été relevé comme ne marchant pas sous Office 2007 lorsqu'on essaye d'enregistrer sur un lecteur réseau. Il y a encore peu d'information sur ce problème.


Message édité par Hadock31 le 05-11-2012 à 13:28:28
Reply

Marsh Posté le 23-10-2012 à 11:07:44   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed