'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
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
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 :
'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