XL 2013 File save mais ou est le fichier ?

[zataps]

Bonjour,
On a généré un script VBA qui récupéré un fichier csv et qui genere un classeur au format XLS

Nom_du_fichier = InputBox("Nom du fichier ?")
ActiveWorkbook.SaveAs Filename:=Nom_du_fichier
ActiveSheet.Name = "Lancement"
NomFic = Application.GetOpenFilename(, , "programmes Presses")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True
End If
ActiveWorkbook.SaveAs Filename:="Classeur.xlsm"

Le système se bloque parfois sur des PC (pas tous ????) à la ligne :
ActiveWorkbook.SaveAs Filename:="Classeur.xlsm"
Ca marche sur certains pc et pas d'autres ????
Sur la ActiveWorkbook.SaveAs Filename:="Classeur.xlsm" ou classe t il le fichier active workbook .?

Merci par avance pour votre aide
Chris

 

[job75]

Bonjour zataps,

Sur la ActiveWorkbook.SaveAs Filename:="Classeur.xlsm" ou classe t il le fichier active workbook .?

Dans le répertoire courant.

Renseignez-vous sur la bonne syntaxe : il faut préciser le chemin d'accès, et aussi le FileFormat.

A+