XL 2013 File save mais ou est le fichier ?

zataps

XLDnaute Nouveau
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
 

Discussions similaires

  • Question
Microsoft 365 Import CSV
Réponses
9
Affichages
1 K

Statistiques des forums

Discussions
312 945
Messages
2 093 818
Membres
105 847
dernier inscrit
Ponette94