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

[kitcho]

Bonjour à tous,
Voila j'ai besoin de votre aide pour finir une macro en VBA:
J'ai une base de donné que Je viens renseigner avec un certain nombre d'information grace à une inputbox.
Chaque nouvelle entrer vien generrer des lignes à la suite dans mon tableau excel.
Maintenant j'aimerais au moment ou ma box s'affiche, pouvoir créer automatiquement un dossier qui s'appellerai avec un numéro à suivre, et qui comporterait 4 dossiers identiques quelque soit le numero du dossier de base.
Le numero de dossier à créer devra etre le nemero n+1 de la ligne superieur.
et pour finir l'idéale serait que ce numero de dossier s'affiche dans ma boite de dialogue.
😱 oui c'est un peu compliquer, mais je calle sur le sujet depuis un moment, donc si quelqu'un a une solution.

 

[mutzik]

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

 

[kitcho]

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

 

[mutzik]

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