création de dossier et sous dossier avec numéreau non aléatoir

Re : création de dossier et sous dossier avec numéreau non aléatoir

bonjour,

je pense qu'avec ton fichier, ou au moins un exemple concret écrit, on s'en sortirait beaucoup mieux

Re : création de dossier et sous dossier avec numéreau non aléatoir

Désolé je ne peux pas mettre le fichier excel sur le site car trop volumineu, voici la prog VBA:



Private Sub CommandButton69_Click()
Unload UserForm1
'numero à suivre: ne marche pas
Private Sub TextBox1_Change()
Range("A51").End(xlDown).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[ActiveCell] = [ActiveCell] + 1
tesxtbox1 = ActiveCell


End Sub
End Sub

Private Sub UserForm_Click()

End Sub

'création de dossier avec numero à suivre comme intitulé et de sous dossier (ex:a,b,c,d)
Sub CreateFolder()

'MkDir "NewPrivateFolder" ' creates a new folder in the active folder
'MkDir "\\VCN.DS.VOLVO.NET\RTC-BOUR\HOME01\R393027\My Documents\base de donnée suivi d'affaire"

Private Sub valider_Click()

'recherche ligne vide: le off
Range("A65000").End(xlUp).Offset(1, 0).Select

ActiveCell.Offset(0, 1).Select

'remplissage du tableau excel
ActiveCell.Value = DateValue(ComboBox7.Value)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox15.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox3.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox5.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox20.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox8.Value
ActiveCell.Offset(0, 1).Select

ActiveCell.Value = ComboBox11.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox12.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox12.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ComboBox6.Value

End Sub


Merci d'avance

Re : création de dossier et sous dossier avec numéreau non aléatoir

re,

tu ne peux pas mettre feux sub l'une dans l'autre, chacune doit être à part

sub (ou private sub)
... code vba
end sub

sub 2 (ou private sub)
... code vba
end sub