.SaveAs Filename:=nomfichier

[Goldorak]

Bonjour à tous,
J'ai ce code qui fonctionnait très bien sous win7 / excel 2010, mais qui ne fonctionne plus sous mac / excel 2011


Sub SaveAs()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
nomfichier = ActiveSheet.Range("C37") & "-" & Range("E37") & "-" & Range("D37") & extension
With ActiveWorkbook
.SaveAs Filename:=nomfichier
End With
End Sub


le code reste bloqué à la ligne = .SaveAs Filename:=nomfichier

Merci infiniment,
Alex

 

[laurent950]

Re : .SaveAs Filename:=nomfichier

Bonsoir,

peut etre comme ceci

ThisWorkbook.SaveAs nomfichier

laurent

 

[Goldorak]

Re : .SaveAs Filename:=nomfichier

Merci Laurent,
Mais non...ça ne fonctionne pas!
Encore merci

 

[laurent950]

Re : .SaveAs Filename:=nomfichier

Coriger en poste #3

voici un lien intéressant

FAQ MS-Excel

Laurent

 

[Goldorak]

Re : .SaveAs Filename:=nomfichier

Non...Toujours pas mon bonheur..

 

[job75]

Re : .SaveAs Filename:=nomfichier

Bonsoir Goldorak, laurent950,

Voyez en précisant le format du fichier :

.SaveAs nomfichier, FileFormat:=51 'ou FileFormat:=xlWorkbookDefault

A+

 

[job75]

Re : .SaveAs Filename:=nomfichier

Re,

Vérifiez aussi bien sûr qu'il n'y a pas de caractère interdit dans les cellules C37 D37 et E37.

A+

 

[Goldorak]

Re : .SaveAs Filename:=nomfichier

Good Job 75 😉
Effectivement j'avais un repport de date en format mmm qui bloquait en D37...
Une fois le format de 37 changer pour =TEXTE(H2;"mmmm")
Merci ;-)

Par ailleurs j'ai un code qui limite le scroll, mais il ne fonctionne plus...je dois le relancer à chaque foi...
Une idée..?

En tous cas merci à vous!!

Alex