Chahyd2010
XLDnaute Nouveau
Bonjour a tous, (en espèrent que je soit dans la bonne section du forum)
Pourriez-vous me dire comment écrire ceci en VBA car comme vous le voyez il est en VBS. Je ne sais pas le modifier .
Dim Xl
dim wk
Set Xl = WScript.CreateObject("EXCEL.application")
Xl.Visible = True
set Wk = Xl.workbooks.open("C:\Users\Nous\Desktop\test 01.xlsm")
Xl.Run "Macro2"
Xl.Run "Macro3"
xl.run.Cells.Select
xl.run.Selection.Copy
xl.run.Workbooks.Add
xl.run.Cells.Select
xl.run.ActiveSheet.Paste
xl.run.CutCopyMode = False
xl.run.ActiveWorkbook.SaveAs ("D:\test.xlsx" )
AppExc.Quit
Set AppExc = Nothing
wk.close
L'exemple ci-dessus et pour l'ouverture d'un fichier excel mais si je veut aussi pouvoir ouvrir un fichier word comment faire.
Je suis sous Excel 2007.
Des exemples de code mon été proposé par certaines personnes du forum (que je remercie au passage) mais cela ne fonctionnent toujours pas.
Sub copie()
Workbooks.Open "C:\Users\Nous\Desktop\test 01.xlsm"
Call Macro2
Call Macro3
ActiveSheet.Copy
ActiveWorkbook.SaveAs ("D:\test.xlsx")
ActiveWorkbook.Close
Application.Quit 'Si tu veux fermer Excel complètement
End Sub
Ci-joint un imprimé écran des codes écris sur Visual Basic. Les erreurs sont signalées en bas de page.
Je précise que je souhaiterais exécuter se code a partir d'un bouton.
D'avance merci pour votre aide.
Pourriez-vous me dire comment écrire ceci en VBA car comme vous le voyez il est en VBS. Je ne sais pas le modifier .
Dim Xl
dim wk
Set Xl = WScript.CreateObject("EXCEL.application")
Xl.Visible = True
set Wk = Xl.workbooks.open("C:\Users\Nous\Desktop\test 01.xlsm")
Xl.Run "Macro2"
Xl.Run "Macro3"
xl.run.Cells.Select
xl.run.Selection.Copy
xl.run.Workbooks.Add
xl.run.Cells.Select
xl.run.ActiveSheet.Paste
xl.run.CutCopyMode = False
xl.run.ActiveWorkbook.SaveAs ("D:\test.xlsx" )
AppExc.Quit
Set AppExc = Nothing
wk.close
L'exemple ci-dessus et pour l'ouverture d'un fichier excel mais si je veut aussi pouvoir ouvrir un fichier word comment faire.
Je suis sous Excel 2007.
Des exemples de code mon été proposé par certaines personnes du forum (que je remercie au passage) mais cela ne fonctionnent toujours pas.
Sub copie()
Workbooks.Open "C:\Users\Nous\Desktop\test 01.xlsm"
Call Macro2
Call Macro3
ActiveSheet.Copy
ActiveWorkbook.SaveAs ("D:\test.xlsx")
ActiveWorkbook.Close
Application.Quit 'Si tu veux fermer Excel complètement
End Sub
Ci-joint un imprimé écran des codes écris sur Visual Basic. Les erreurs sont signalées en bas de page.
Je précise que je souhaiterais exécuter se code a partir d'un bouton.
D'avance merci pour votre aide.