[VBA-Excel] Worbooks.Add template

Coucou le forum,

Je n'arrive pas à combiner ceci:

Code:

---

1 2	Set wk = Workbooks.Add wk.SaveAs "C:\Documents and Settings\Chewi\Desktop\C4\" & ComboBox1 & " - " & TextBox1 & " - " & ComboBox2 & ".xls"

---

Avec ceci:

Code:

---

Worbooks.Add Template:= _ "C:\Documents and Settings\Chewi\Application Data\Microsoft\Modèles\2chC4.xlt"

---

Erreur : ("Expected: end of statement"), comment faire?

Ceci ne fonctionne pas:

Code:

---

1 2	Set wk = Workbooks.Add Template:= _ "C:\Documents and Settings\Chewi\Application Data\Microsoft\Modèles\2chC4.xlt" wk.SaveAs "C:\Documents and Settings\Chewi\Desktop\C4\" & ComboBox1 & " - " & TextBox1 & " - " & ComboBox2 & ".xls"

---

Où est le problème ?
Et comment faire?

Merci à vous.

bonsoir

tu as placé les parenthèses pour encadrer l'argument "Template"?

Code:

---

1 2 3 4

Dim Wb As Workbook   Set Wb = Workbooks.Add(Template:= _ "C:\Documents and Settings\dossier\classeur2.xlt")

---

michel

Non effectivement je ne l'avais pas fait car quand on fait:

Code:

---

Worbooks.Add Template:= _ "C:\Documents and Settings\Chewi\Application Data\Microsoft\Modèles\2chC4.xlt"

---

on ne doit pas les mettre apparement.

sinon, entre-temps, je viens de changer ma façon de procéder:

Code:

---

1 2 3 4 5

Dim NomFichier As String NomFichier = "C:\Documents and Settings\Chewi\Desktop\C4\" & ComboBox1 & " - " & TextBox1 & " - " & ComboBox2 & ".xls" Workbooks.Add Template:= _ "C:\Documents and Settings\Chewi\Desktop\Template\C4\2chC4.xlt" ActiveWorkbook.SaveAs NomFichier

---

Je suppose que c'est tout aussi valable vu que ça fonctionne:roll:

Mais par contre, je me méfie du "ActiveWorkbook"