Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

[chaelie2015]

Bonjour Form
Dans mon classeur j’ai deux feuilles nommées Fac et BdD
Je souhaiterai renseigner ma BdD selon la Fac (je l’utilisée comme feuille Type) a chaque fois que je clic sur le bouton « Enregistrer » et au même temps créer une copie de la facture sans macro dans un répertoire « D:Factures » nommé N°/année courante/H18.
Merci par avance.
Salutations

 

[Lolote83]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE

Salut,
En espérant que cela corresponde à ta demande.
Modifier le chemin si nécessaire dans la macro en fonction de ton répertoire d'enregistrement de tes factures
@+ Lolote83

 

[chaelie2015]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE

Bonjour Lolote83
merci c'est exactement ce que je cherchais( super) mais il me reste un petit souci !!!!
la numérotation automatique de la facture !
MERCI PAR AVANCE
SALUTATIONS

 

[Lolote83]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE

Re salut,
Voici donc la version avec l'incrémentation du n° de facture suite au clic sur le bouton enregistrer.
Attention, j'ai été obliger de scinder le numéro de facture en 2 parties pour l'incrémentation.
@+ Lolote83

 

[chaelie2015]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE

Re
Merci encore c'est nickel , dans le meme aspect ,Je souhaite ajouter au code du bouton « enregistrer » masquer les lignes vides de la plage (colone A26-A40 et W26-W40) du tableau lors d’enregistrement d’une copie dans le répertoire et réinitialiser le tableau de la feuille Fac .
Merci par avance.
SAlutation
modif
ci joint le code que j'ai rajouter mais il n'est correcte 100%

    '----------------------------------------------------------
    '                             MASQUER LES LIGNES VIDE DE LA FAC 
    '----------------------------------------------------------
       
    Application.ScreenUpdating = False
    With ActiveSheet
    For Each cel In .Range("A26:A40").SpecialCells(xlCellTypeConstants)
    If cel.Offset(0, 13).Value = "" And cel.Offset(0, 13).Value = "" Then
      cel.EntireRow.Hidden = False
      Else
      cel.EntireRow.Hidden = True
    End If
    Next
    End With
    Application.ScreenUpdating = True

 

[Lolote83]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE

Re salut,
Voilà, je pense que le projet est finalisé.
@+ Lolote83

 

[chaelie2015]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE

Re
Super c’est nickel
Mon pblm est résolut
Merci Lolot83

 

[chaelie2015]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

Bonjour
je suis désolé d'avoir annocer que mon PBLM est résolut.
je souhaite ajouter au code de Lolote83

 '----------------------------------------------------------
    '                              PARTIE ENREGISTEMENT FACTURE
    '----------------------------------------------------------
    Application.DisplayAlerts = False
    xFichier = Format([N8], "000") & "-" & [Q8]

    [U][B][COLOR="#FF0000"]Sheets("Fac").Copy[/COLOR][/B][/U]
    'Sheets("liste").Copy   <============================= ça n'a pas marché ???
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete
    'Suppression des lignes superflues
    For F = 40 To 26 Step -1
        If Cells(F, "W") = 0 Then
            Rows(F).Delete
        End If
    Next F
    ActiveWorkbook.SaveAs Filename:="D:\Factures\" & xFichier & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Application.DisplayAlerts = True

la feuille "liste"

 

[Lolote83]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

Salut,
modifier le code :

Sheets("Fac").Copy

par

Sheets(Array("Fac", "Liste")).Copy

Attention, dans le fichier joint, aucun onglet LISTE n'est présent. Je suppose que dans ton fichier, cet onglet est bien présent.
@+ Lolote83

 

[chaelie2015]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

Salut LOLOTE83
MERCI pour la réponse (pour la feuille c'est fait j'ai crée une nouvelle feuil nommée "Liste") et apres avoir modifié le code j'ai un message d'erreur
'--------------------
Erreur d'execution 1004
l'élément portant ce nom est introuvable
'--------------
au niveau de la ligne
ActiveSheet.Shapes.Range(Array("Button 1")).Delete
MERCI

 

[Lolote83]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

Salut,

'--------------------
Erreur d'execution 1004
l'élément portant ce nom est introuvable
'--------------
au niveau de la ligne
ActiveSheet.Shapes.Range(Array("Button 1")).Delete

Le bouton1 correspond au bouton "ENREGISTRE" que j'ai créé. Il se peut que le nom du bouton ai été modifié.
Voir la copie d'écran, clic droit sur le bouton pour voir son nom comme sur la copie d'écran et a adapter (Bouton 1 en francais = Button 1 en anglais)
@+ Lolote83

 

[chaelie2015]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

Salut,

Le bouton1 correspond au bouton "ENREGISTRE" que j'ai créé. Il se peut que le nom du bouton ai été modifié.
Voir la copie d'écran, clic droit sur le bouton pour voir son nom comme sur la copie d'écran et a adapter (Bouton 1 en francais = Button 1 en anglais)
@+ Lolote83

Re
Moi j'ai inséré un bouton de contrôle active!!!
a+

 

[Lolote83]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

Re, quelques soit ce que tu viens à insérer (boutons, formes ou autres), il doit y avoir un nom associé (voir ma copie d'écran).
A toi d'adapter ou si tu n'y arrive pas, copie mon bouton sur ton fichier, il aura de toute façon un nom qu'il te faudra certainement adapter quand même.
@+ Lolote83

 

[chaelie2015]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

.....
A toi d'adapter ou si tu n'y arrive pas, copie mon bouton sur ton fichier, il aura de toute façon un nom qu'il te faudra certainement adapter quand même.
@+ Lolote83

Re
Ci joint le fichier du post#6 avec le code

Sheets(Array("Fac", "Liste")).Copy

Salutations

 

[Lolote83]

Re : Renseigner une BdD AVEC UNE FEUILLE TYPE(RESOLUT)

Salut,
Il faut rajouter la commande

Sheets("Fac").Activate

entre les lignes:

Sheets(Array("Fac", "Liste")).Copy 'Sheets("Fac").Copy
Sheets("Fac").Activate
ActiveSheet.Shapes.Range(Array("Button 1")).Delete

comme le montre l'exemple ici.
En effet, lors de la copie des onglets, c'est l'onglet liste qui est actif, donc pour rendre l'onglet FAC actif, il faut lui stipuler (par la commande décrite ici)
@+ Lolote83