Bonjour a tous
Je me retrouve face à un soucis que je n'arrive pas résoudre (débutant en VBA bien sur) , donc je m'explique :
J'ai un classeur (BDD) ou se trouve plusieurs feuilles correspondant aux ateliers, chaque feuilles contient plusieurs lignes, chaque ligne constitue un rapport de conformité, j'ai réalisé une interface avec une listbox et 2 boutons, un pour la mise en rapport et l'autre pour fermer l'interface.
Mon souhait est le suivant, l'interface me charge au démarrage les feuilles du classeur BDD, puis lorsque je sélectionne une feuille, il me sort les rappoorts de cette feuille sélectionnée.
Mes code pour le moment sont les suivant :
Chargement des feuilles :
Le code pour la mise en rapport (celui-ci va vous faire sourire mais il est faux et je ne peux donc aller plus loin)
donc ce code ne fonctionne pas et n'a pas de bug, si quelqu'un pourrais m'expliquer mon erreur et m'aider à avancer...
Un grand merci a tous
Je me retrouve face à un soucis que je n'arrive pas résoudre (débutant en VBA bien sur) , donc je m'explique :
J'ai un classeur (BDD) ou se trouve plusieurs feuilles correspondant aux ateliers, chaque feuilles contient plusieurs lignes, chaque ligne constitue un rapport de conformité, j'ai réalisé une interface avec une listbox et 2 boutons, un pour la mise en rapport et l'autre pour fermer l'interface.
Mon souhait est le suivant, l'interface me charge au démarrage les feuilles du classeur BDD, puis lorsque je sélectionne une feuille, il me sort les rappoorts de cette feuille sélectionnée.
Mes code pour le moment sont les suivant :
Chargement des feuilles :
VB:
Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
Me.ListBox1.AddItem Sheets(i).Name
Next i
End Sub
Le code pour la mise en rapport (celui-ci va vous faire sourire mais il est faux et je ne peux donc aller plus loin)
VB:
Private Sub CommandButton1_Click()
rep = Environ("USERPROFILE") & "\"
classeurpath = rep & "Documents\EIPinspection-final\RAPPORTS\rapfinal_C.xlsm"
classeurphoto = rep & "Documents\EIPinspection-final\PHOTOS"
Set BDD = ThisWorkbook
Set rapport = Workbooks.Open(classeurpath)
nbtogo = ListBox1.ListCount
For i = 2 To nbtogo - 1
If ListBox1.Selected(i) = True Then
nfiche = BDD.Worksheets(i).Range("BN" & i) 'Ici je voudrais qu'il me nomme la fiche avec la valeur contenu dans la colonne BN a la ligne x
rapport.Worksheets("R117C").Copy Before:=rapport.Worksheets("R117C")
ActiveSheet.Name = nfiche
' le reste du code est en ma possession pour les rapports
End If
Next i
End Sub
donc ce code ne fonctionne pas et n'a pas de bug, si quelqu'un pourrais m'expliquer mon erreur et m'aider à avancer...
Un grand merci a tous