Discussion :

[Chewi]

Coucou le forum,

Je n'arrive pas à combiner ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Avec ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SilkyRoad]

bonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

michel

[Chewi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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