ajouter ligne + recopier valeur USF

[jeannot68]

Bonjour

Je souhaite remplir un tableau a l'aide d'une usf qui se trouve dans essai systeme 2 et que la Usf me propose les numéro de devis automatiquement en fonction de ce tableau.(je m'explique). Actuellement sur mon tableau "essai compte" j'ai 1 ligne avec un devis.


1/ Comment faire pour que lorsque je clique sur "nouveau devis" dans mon fichier "essai systeme 2" apparaissent automatiquement dans ma TextBox5 le chiffre +1 qui est dans la colonne A du fichier "essai compte a savoir 2 et dans ma TextBox4 le chiffre +1 qui est dans la colonne B du fichier "essai compte a savoir 051

2/ comment faire en sorte que des que je clique sur "nouveau devis" cela rajoute une ligne vierge avec formule de mon tableau "essai compte" et que les valeurs de:
Textbox5= col A
Texbox 4= col B
Texbox 2=colC
Combobox10 = col K

Merci de votre aide

 

[Compte Supprimé 979]

Re : ajouter ligne + recopier valeur USF

Salut Jeannot68,

Pour faire ce que tu souhaites, une solution est d'ouvrir le classeur "essai compte"
par la méthode OLE (en mode caché)

Tu récupère ensuite les données du classeur pour les intégrer dans ton USF
Lorsque tu cliques sur valider, tu fais l'inverse 😉

Voir ton fichier principal modifié

A+

 

[jeannot68]

Re : ajouter ligne + recopier valeur USF

merci pour ton aide. les numéros marchent mais la ligne ne s'ajoute pas et les informations ne sont pas copier,rien ne se passe apres avoir valider.

 

[Compte Supprimé 979]

Re : ajouter ligne + recopier valeur USF

Re,

Je ne comprends pas, tu as bien utilisé le fichier que j'ai joint ?
ou as-tu essayé de copier le code ?

Chez moi, a chaque nouveau devis, une ligne est bien ajoutée 😉
Par contre j'ai vu que le fichier enregistré était ensuite masqué à l'ouverture.

Pour résoudre ce problème, il faut ajouter les lignes en bleues

Private Sub BtnValider_Click()
  Dim Lig As Long
  With BdDevis
    Lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    ' Insérer une nouvcelle ligne
    .Range("A" & Lig).EntireRow.Insert Shift:=xlDown
    ' Recopier les formules
    .Range("I" & Lig - 1 & ":J" & Lig).FillDown
    ' Inscrire les valeurs
    .Range("A" & Lig).Value = Me.TextBox4.Value
    .Range("B" & Lig).Value = Me.TextBox5.Value
    .Range("C" & Lig).Value = Me.TextBox2.Value
    .Range("K" & Lig).Value = Me.ComboBox10.Value
  End With
  [COLOR=blue][B]Application.ScreenUpdating = False
  WbK.Windows(1).Visible = True
[/B][/COLOR]  ' On ferme le classeur
  WbK.Close SaveChanges:=True
  [B][COLOR=blue]Application.ScreenUpdating = True
[/COLOR][/B]  ' Effacer les variables objets
  Set BdDevis = Nothing
  Set WbK = Nothing
  ' Fermer l'USF
  Unload Me
End Sub

A+

 

[jeannot68]

Re : ajouter ligne + recopier valeur USF

BrunoM45
encore merci
Oui effectivement j'avais copié le code et non pas utilisé le tiens. ca marche juste je n'aie pas le quadrillage pour les colonne A B C lors du rajout de ligne mais autrement c'est bon.
En ce qui concerne les lignes en bleues faut ils les ajoutée ou les enlevé car dans ton fichier joint ils apparaissent déja

 

[Compte Supprimé 979]

Re : ajouter ligne + recopier valeur USF

Re,

En ce qui concerne les lignes en bleues faut ils les ajoutée ou les enlevé car dans ton fichier joint ils apparaissent déja

Oui effectivement, c'est normal 😉
Car j'essaye toujours de modifier le dernier fichier envoyé si j'ai laissé un bug.
Donc les lignes tu les laissent 😉

Pour le quadrillage, j'y ai bien pensé, mais je me suis dis que ce n'était pas important 😛

Mais tu peux le faire par le code également

A+

 

[jeannot68]

Re : ajouter ligne + recopier valeur USF

BrunoM45

J'ai encore une derniere question je souhaiterai également que lorsque je clik sur valider cela m'ouvre mon modele de devis word (j'ai trouver un code qui grace au ssignet me permet de recopier les valeurs de la USF) et me demande tout de suite de l'enregistrer sous.
Comment peux ton faire cela?
merci

 

[jeannot68]

Re : ajouter ligne + recopier valeur USF

Bonjour a tous

Comment faire pour ouvrir un fichier word (modele) et faire apparaitre tout de suite la boite de diallogue enregistrer sous pour pouvoir travailler dessus.

Workbooks.Open Filename:="D:\0DATA\MODELE DEVIS\DEVIS SIMPLE.doc"
ca ne marche pas il ne recconnait pas le .doc

merci de votre aide

 

[Compte Supprimé 979]

Re : ajouter ligne + recopier valeur USF

Salut Jeannot68,

Workbooks.Open Filename:="D:\0DATA\MODELE DEVIS\DEVIS SIMPLE.doc"
ca ne marche pas il ne recconnait pas le .doc

Normal, tu utilises "Workbooks" pour ouvrir un fichier word, ce n'est pas possible de la sorte 😉

Fait des recherches avancés sur le forum STP, peut-être ici
https://www.excel-downloads.com/threads/acces-fichier-word-depuis-excel-avec-vba.120650/

A+

 

[jeannot68]

Re : ajouter ligne + recopier valeur USF

Bon alors j'ai cherché, j'ai trouvé mais j'ai des ptits soucis

1/ comment faire en sorte que le nom de fichier de ma boite de dialogue enregistrer sous soit égal a la valeur de lma TextBox 2 (Titre)?

2/ Maintenant j'arrive a ouvrir mon modele a faire apparaitre les valeur de ma USF mais apres avoir sauvegarder sous un autre nom les valeur reste sur mon document modele or je souhaiterai qu il reste vierge.
De plus 1 X sur 2 ca plante "serveur distant"

Que faire? des idées?
Merci

 

[jeannot68]

Re : ajouter ligne + recopier valeur USF

Bonjour a tous

Je relance mon probleme .
Quelqu'un aurait un élément de réponse a m'apporter??

Merci de votre aide a bientot

 

[jeannot68]

Re : ajouter ligne + recopier valeur USF

Pitié aidez moi🙁
J'arrive pas a avancer sur mon probleme