bonjour
 
le code bien une fois mais lorsque je le relance il me met erreur 91 la variable objet ou l'instruction du bloc with n'est pas défini
 
Private Sub copitest2()
Dim xls As Object
Dim fich As String, chemin As String
 
Set xls = CreateObject("Excel.Application" )
xls.Workbooks.Open "E:\sondages\test1.xls"
xls.Worksheets("test" ).Select
xls.Sheets("test" ).Copy
 
fich = InputBox("Inscrivez ici le nom que vous voulez attribuer à votre fichier. !!! sans l'extension .xls. notez simplement test par exemple", "Nom du fichier" )
chemin = InputBox("Inscrivez ici l'emplacement, complet avec les \ , que vous voulez attribuer à votre fichier. Notez par exemple E:\sondages\ ", "Emplacement" )
ActiveWorkbook.SaveAs Filename:= _
chemin & fich & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
xls.Application.Quit
End Sub
 
 
 
je pense cela vient du fais que je n'est pas fermer quelque chose mais quoi ?
 
merci de votre aide car je debute