bonjour,
j'ai un petit sousis, je veux enregistrer la feuille en cours sous le nom du textbox (date) dans un dossier nommé suivi annuel. actuellement cette feuille se crée dans le classeur actif, le probleme est qu'il est possible qu'il y ai deux fois la meme date donc impossible a enregister, d'ou la solution que je choisi d'enregistrer dans un autre dossier chaque feuille crées.
le code utilisé est celui ci , il marche tres bien mais je bloque depuis un moment pour faire le modif ci dessus.
Private Sub CommandButton2_Click()
Dim nom As String
nom = TextBox1
If nom <> "" Then
DerLig = 1
While Sheets("base").Cells(DerLig, 1) <> ""
DerLig = DerLig + 1
Wend
Application.ScreenUpdating = True
Workbooks.Open Filename:=ThisWorkbook.Path & "\intervention.xlsx"
Sheets("intervention").Select
Sheets("intervention").Copy after:=ThisWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = nom
merci pour votre aide.
j'ai un petit sousis, je veux enregistrer la feuille en cours sous le nom du textbox (date) dans un dossier nommé suivi annuel. actuellement cette feuille se crée dans le classeur actif, le probleme est qu'il est possible qu'il y ai deux fois la meme date donc impossible a enregister, d'ou la solution que je choisi d'enregistrer dans un autre dossier chaque feuille crées.
le code utilisé est celui ci , il marche tres bien mais je bloque depuis un moment pour faire le modif ci dessus.
Private Sub CommandButton2_Click()
Dim nom As String
nom = TextBox1
If nom <> "" Then
DerLig = 1
While Sheets("base").Cells(DerLig, 1) <> ""
DerLig = DerLig + 1
Wend
Application.ScreenUpdating = True
Workbooks.Open Filename:=ThisWorkbook.Path & "\intervention.xlsx"
Sheets("intervention").Select
Sheets("intervention").Copy after:=ThisWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = nom
merci pour votre aide.
