Manuscriteur
XLDnaute Nouveau
Bonjour à tous,
J'ai créer un bouton pour la creation de nouvelles feuilles via une souche avec la date qui s'en suit.
Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs Chemin & "d:\Fuel " & Format(Date, "yyyy") & ".xls"
ThisWorkbook.SaveAs Chemin & "d:\Gasoil " & Format(Date, "yyyy") & ".xls"
ThisWorkbook.SaveAs Chemin & "d:\SP95 " & Format(Date, "yyyy") & ".xls"
Set NewBook = ActiveWorkbook
With NewBook
.Title = "B "
.Subject = "B"
End With
End Sub
Mon souci c'est que je n'arrive pas à faire créer un dossier:
Je voudrais que le dossier s'appelle Carburants avec l'année qui suis.
J'ai essayer ThisWorkbook.SaveAs Chemin & "d:\Carburants" & format (date, "yyyy")\ & "Fuel " & Format(Date, "yyyy") & ".xls"
Mais la hophophop ca marche pas
Ou alors il faut demander de créer un repertoire avant par mon useforme et mettre ensuite le chemin mais je cale dur
Un petit coup de main serait le bien venu
Merci grandement de votre aide
J'ai créer un bouton pour la creation de nouvelles feuilles via une souche avec la date qui s'en suit.
Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs Chemin & "d:\Fuel " & Format(Date, "yyyy") & ".xls"
ThisWorkbook.SaveAs Chemin & "d:\Gasoil " & Format(Date, "yyyy") & ".xls"
ThisWorkbook.SaveAs Chemin & "d:\SP95 " & Format(Date, "yyyy") & ".xls"
Set NewBook = ActiveWorkbook
With NewBook
.Title = "B "
.Subject = "B"
End With
End Sub
Mon souci c'est que je n'arrive pas à faire créer un dossier:
Je voudrais que le dossier s'appelle Carburants avec l'année qui suis.
J'ai essayer ThisWorkbook.SaveAs Chemin & "d:\Carburants" & format (date, "yyyy")\ & "Fuel " & Format(Date, "yyyy") & ".xls"
Mais la hophophop ca marche pas
Ou alors il faut demander de créer un repertoire avant par mon useforme et mettre ensuite le chemin mais je cale dur
Un petit coup de main serait le bien venu
Merci grandement de votre aide