Se connecter avec
S'enregistrer | Connectez-vous
Votre question

VBA EXCEL chemin d'acces fichier sur serveur

Dernière réponse : dans Programmation
Partagez
4 Janvier 2013 15:16:24

Bonjour,

J'ai développé un Userform qui sert de fiche d'encodage pour un style de facture automatisé.

Le fichier à remplir se trouve sur un serveur.

Bouton Enregistrer... pour remplir le style de facture (ET C'est La que je bugge! sur le chemin d'acces - doc sur serveur)


Possible de m'aider ?
a b L Programmation
4 Janvier 2013 17:48:39

Salut,

Quel est le problème ?

Merci d'utiliser la balise [code] pour présenter ton code.
m
0
l
4 Janvier 2013 19:29:02

zeb a dit :
Salut,

Quel est le problème ?

Merci d'utiliser la balise [code] pour présenter ton code.


Merci Zeb,

J'ai trouvé la solution(J'ai enregistré un macro en ouvrant le document sur le serveur. puis simplement copié le code... lol) pour ce problème par contre d'autres soucis ... :) 

on se débrouille comme on peut. Je suis mais total débutant... Maintenant... A partir de ce userform, il faut que je puisse retranscrire l'inventaire dans une autre feuil (dans des cellulles bien précise). Je rajoute le code du bouton Inventaire dans le userform ci dessous.

Mais au faite, le userform doit complèter l'inventaire à chaque input. Il faut que la programmation cherche la ligne suivante à remplir et la remplisse .

[
Private Sub Rapportage_Click()
Worksheets("Inventaire").Select
'Sheets("Inventaire").Select
Range("A2").Value = NRDEPOSANT.Text
Range("G2").Value = NRLOTA1.Text
Range("D2").Value = DESCRIPA1.Text
Range("E2").Value = ESTIMA1.Text
Range("H2").Value = RESERVE1.Text
Range("A3").Value = NRDEPOSANT.Text
Range("G3").Value = NRLOTA2.Text
Range("D3").Value = DESCRIPA2.Text
Range("E3").Value = ESTIMA2.Text
Range("H3").Value = RESERVE2.Text
Range("A4").Value = NRDEPOSANT.Text
Range("G4").Value = NRLOTA3.Text
Range("D4").Value = DESCRIPA3.Text
Range("E4").Value = ESTIMA3.Text
Range("H4").Value = RESERVE3.Text
Range("A5").Value = NRDEPOSANT.Text
Range("G5").Value = NRLOTA4.Text
Range("D5").Value = DESCRIPA4.Text
Range("E5").Value = ESTIMA4.Text
Range("H5").Value = RESERVE4.Text
Range("A6").Value = NRDEPOSANT.Text
Range("G6").Value = NRLOTA5.Text
Range("D6").Value = DESCRIPA5.Text
Range("E6").Value = ESTIMA5.Text
Range("H6").Value = RESERVE5.Text
Range("A7").Value = NRDEPOSANT.Text
Range("G7").Value = NRLOTA6.Text
Range("D7").Value = DESCRIPA6.Text
Range("E7").Value = ESTIMA6.Text
Range("H7").Value = RESERVE6.Text
Range("A8").Value = NRDEPOSANT.Text
Range("G8").Value = NRLOTA7.Text
Range("D8").Value = DESCRIPA7.Text
Range("E8").Value = ESTIMA7.Text
Range("H8").Value = RESERVE7.Text
Range("A9").Value = NRDEPOSANT.Text
Range("G9").Value = NRLOTA8.Text
Range("D9").Value = DESCRIPA8.Text
Range("E9").Value = ESTIMA8.Text
Range("H9").Value = RESERVE8.Text
Range("A10").Value = NRDEPOSANT.Text
Range("G10").Value = NRLOTA9.Text
Range("D10").Value = DESCRIPA9.Text
Range("E10").Value = ESTIMA9.Text
Range("H10").Value = RESERVE9.Text
Range("A11").Value = NRDEPOSANT.Text
Range("G11").Value = NRLOTA10.Text
Range("D11").Value = DESCRIPA10.Text
Range("E11").Value = ESTIMA10.Text
Range("H11").Value = RESERVE10.Text
Range("A12").Value = NRDEPOSANT.Text
Range("G12").Value = NRLOTA11.Text
Range("D12").Value = DESCRIPA11.Text
Range("E12").Value = ESTIMA11.Text
Range("H12").Value = RESERVE11.Text
Range("A13").Value = NRDEPOSANT.Text
Range("G13").Value = NRLOTA12.Text
Range("D13").Value = DESCRIPA12.Text
Range("E13").Value = ESTIMA12.Text
Range("H13").Value = RESERVE12.Text
Range("A14").Value = NRDEPOSANT.Text
Range("G14").Value = NRLOTA13.Text
Range("D14").Value = DESCRIPA13.Text
Range("E14").Value = ESTIMA13.Text
Range("H14").Value = RESERVE13.Text
Range("A15").Value = NRDEPOSANT.Text
Range("G15").Value = NRLOTA14.Text
Range("D15").Value = DESCRIPA14.Text
Range("E15").Value = ESTIMA14.Text
Range("H15").Value = RESERVE14.Text
Range("A16").Value = NRDEPOSANT.Text
Range("G16").Value = NRLOTA15.Text
Range("D16").Value = DESCRIPA15.Text
Range("E16").Value = ESTIMA15.Text
Range("H16").Value = RESERVE15.Text
Range("A17").Value = NRDEPOSANT.Text
Range("G17").Value = NRLOTA16.Text
Range("D17").Value = DESCRIPA16.Text
Range("E17").Value = ESTIMA16.Text
Range("H17").Value = RESERVE16.Text
Range("A18").Value = NRDEPOSANT.Text
Range("G18").Value = NRLOTA17.Text
Range("D18").Value = DESCRIPA17.Text
Range("E18").Value = ESTIMA17.Text
Range("H18").Value = RESERVE17.Text
Range("A19").Value = NRDEPOSANT.Text
Range("G19").Value = NRLOTA18.Text
Range("D19").Value = DESCRIPA18.Text
Range("E19").Value = ESTIMA18.Text
Range("H19").Value = RESERVE18.Text
Range("A20").Value = NRDEPOSANT.Text
Range("G20").Value = NRLOTA19.Text
Range("D20").Value = DESCRIPA19.Text
Range("E20").Value = ESTIMA19.Text
Range("H20").Value = RESERVE19.Text
Range("A21").Value = NRDEPOSANT.Text
Range("G21").Value = NRLOTA20.Text
Range("D21").Value = DESCRIPA20.Text
Range("E21").Value = ESTIMA20.Text
Range("H21").Value = RESERVE20.Text
End Sub]

m
0
l
Contenus similaires
a b L Programmation
7 Janvier 2013 10:33:06

LOL.

[code] ton code [/code]

---------------------------------------------

Je n'ai rien compris à ton problème. Recommence, avec un exemple très simple peut-être.
m
0
l
7 Janvier 2013 10:55:43

Ok, désolé j'suis vraiment nouveau ici !...

J'ai découvert VBA il y a qq semaines... J'ai crée un userform pour encoder des données et les retranscrire dans une autre feuil.

J'ai crée 20 lignes dans le userform qui peuvent etre introduite (pas nécessairement toutes). Ces lignes sont des rubrique + description + prix + estimation (et j'y ai ajouté un combobox pour faire défiler une liste ... mais la liste n'apparait que si on écrit qq chose dans la combobox).

Donc, le problème est plutot que mon Userform doit pouvoir voir s'il y a une entrée... eh bien il copie tout de manière conséquente à l'autre feuil.

  1. Private Sub Rapportage_Click()
  2. Worksheets("Inventaire").Select
  3. 'Sheets("Inventaire").Select
  4. Range("A2").Value = NRDEPOSANT.Text
  5. Range("G2").Value = NRLOTA1.Text
  6. Range("D2").Value = DESCRIPA1.Text
  7. Range("E2").Value = ESTIMA1.Text
  8. Range("H2").Value = RESERVE1.Text
  9. Range("A3").Value = NRDEPOSANT.Text
  10. Range("G3").Value = NRLOTA2.Text
  11. Range("D3").Value = DESCRIPA2.Text
  12. Range("E3").Value = ESTIMA2.Text
  13. Range("H3").Value = RESERVE2.Text
  14. Range("A4").Value = NRDEPOSANT.Text
  15. Range("G4").Value = NRLOTA3.Text
  16. Range("D4").Value = DESCRIPA3.Text
  17. Range("E4").Value = ESTIMA3.Text
  18. Range("H4").Value = RESERVE3.Text
  19. Range("A5").Value = NRDEPOSANT.Text
  20. Range("G5").Value = NRLOTA4.Text
  21. Range("D5").Value = DESCRIPA4.Text
  22. Range("E5").Value = ESTIMA4.Text
  23. Range("H5").Value = RESERVE4.Text
  24. Range("A6").Value = NRDEPOSANT.Text
  25. Range("G6").Value = NRLOTA5.Text
  26. Range("D6").Value = DESCRIPA5.Text
  27. Range("E6").Value = ESTIMA5.Text
  28. Range("H6").Value = RESERVE5.Text
  29. Range("A7").Value = NRDEPOSANT.Text
  30. Range("G7").Value = NRLOTA6.Text
  31. Range("D7").Value = DESCRIPA6.Text
  32. Range("E7").Value = ESTIMA6.Text
  33. Range("H7").Value = RESERVE6.Text
  34. Range("A8").Value = NRDEPOSANT.Text
  35. Range("G8").Value = NRLOTA7.Text
  36. Range("D8").Value = DESCRIPA7.Text
  37. Range("E8").Value = ESTIMA7.Text
  38. Range("H8").Value = RESERVE7.Text
  39. Range("A9").Value = NRDEPOSANT.Text
  40. Range("G9").Value = NRLOTA8.Text
  41. Range("D9").Value = DESCRIPA8.Text
  42. Range("E9").Value = ESTIMA8.Text
  43. Range("H9").Value = RESERVE8.Text
  44. Range("A10").Value = NRDEPOSANT.Text
  45. Range("G10").Value = NRLOTA9.Text
  46. Range("D10").Value = DESCRIPA9.Text
  47. Range("E10").Value = ESTIMA9.Text
  48. Range("H10").Value = RESERVE9.Text
  49. Range("A11").Value = NRDEPOSANT.Text
  50. Range("G11").Value = NRLOTA10.Text
  51. Range("D11").Value = DESCRIPA10.Text
  52. Range("E11").Value = ESTIMA10.Text
  53. Range("H11").Value = RESERVE10.Text
  54. Range("A12").Value = NRDEPOSANT.Text
  55. Range("G12").Value = NRLOTA11.Text
  56. Range("D12").Value = DESCRIPA11.Text
  57. Range("E12").Value = ESTIMA11.Text
  58. Range("H12").Value = RESERVE11.Text
  59. Range("A13").Value = NRDEPOSANT.Text
  60. Range("G13").Value = NRLOTA12.Text
  61. Range("D13").Value = DESCRIPA12.Text
  62. Range("E13").Value = ESTIMA12.Text
  63. Range("H13").Value = RESERVE12.Text
  64. Range("A14").Value = NRDEPOSANT.Text
  65. Range("G14").Value = NRLOTA13.Text
  66. Range("D14").Value = DESCRIPA13.Text
  67. Range("E14").Value = ESTIMA13.Text
  68. Range("H14").Value = RESERVE13.Text
  69. Range("A15").Value = NRDEPOSANT.Text
  70. Range("G15").Value = NRLOTA14.Text
  71. Range("D15").Value = DESCRIPA14.Text
  72. Range("E15").Value = ESTIMA14.Text
  73. Range("H15").Value = RESERVE14.Text
  74. Range("A16").Value = NRDEPOSANT.Text
  75. Range("G16").Value = NRLOTA15.Text
  76. Range("D16").Value = DESCRIPA15.Text
  77. Range("E16").Value = ESTIMA15.Text
  78. Range("H16").Value = RESERVE15.Text
  79. Range("A17").Value = NRDEPOSANT.Text
  80. Range("G17").Value = NRLOTA16.Text
  81. Range("D17").Value = DESCRIPA16.Text
  82. Range("E17").Value = ESTIMA16.Text
  83. Range("H17").Value = RESERVE16.Text
  84. Range("A18").Value = NRDEPOSANT.Text
  85. Range("G18").Value = NRLOTA17.Text
  86. Range("D18").Value = DESCRIPA17.Text
  87. Range("E18").Value = ESTIMA17.Text
  88. Range("H18").Value = RESERVE17.Text
  89. Range("A19").Value = NRDEPOSANT.Text
  90. Range("G19").Value = NRLOTA18.Text
  91. Range("D19").Value = DESCRIPA18.Text
  92. Range("E19").Value = ESTIMA18.Text
  93. Range("H19").Value = RESERVE18.Text
  94. Range("A20").Value = NRDEPOSANT.Text
  95. Range("G20").Value = NRLOTA19.Text
  96. Range("D20").Value = DESCRIPA19.Text
  97. Range("E20").Value = ESTIMA19.Text
  98. Range("H20").Value = RESERVE19.Text
  99. Range("A21").Value = NRDEPOSANT.Text
  100. Range("G21").Value = NRLOTA20.Text
  101. Range("D21").Value = DESCRIPA20.Text
  102. Range("E21").Value = ESTIMA20.Text
  103. Range("H21").Value = RESERVE20.Text
  104. End Sub
m
0
l
a b L Programmation
7 Janvier 2013 11:31:15

Vindiou! Relis-toi. Je n'ai toujours pas compris ton problème.

Citation :
J'ai crée 20 lignes dans le userform qui peuvent etre introduite
mon Userform doit pouvoir voir s'il y a une entrée

C'est quoi une ligne ?
Quoi et où veux-tu introduire ?
Qu'appelles-tu une entrée ?

Je suis désolé, mais je comprends toujours très vite, pourvu qu'on m'explique très lentement. ;) 
m
0
l
7 Janvier 2013 11:41:28

Ouille ouille ouille, apparament, je m'exprime pas bien ... :

les colonnes dans userform.
-----------------------------------------------------------------------------------------------------------------------------------
NR de lot description prix de reserve estimation rubrique Nr Deposant
-----------------------------------------------------------------------------------------------------------------------------------
lot nr. 1 document blablabla 300 euro 250 euro Document archivé 13455

Voila... ca c'est une ligne

Donc, cette ligne doit être retranscrite vers une autre feuil... jusque la ca va...
mais comme j'ai 20 ligne, il me mets d'office les numéro de déposants... le but est qu'il puisse comprendre que s'il y a pas de lot nr. 2... beh qu'il s'arrête la...

J'espère que mon explication est plus ou moins comprehensible ?

Bah, ce truc me gave à la longue!!!!
m
0
l
a b L Programmation
7 Janvier 2013 11:56:23

Alors, une ligne c'est un N° de lot, une description, un prix de réserve, une estimation, une rubrique et un n° de déposant.
Toi, tu as fais un userform, et dans ce userform, on met de 1 à 20 lignes comme celle-là.
Et ensuite, tu veux mettre ces lignes dans une feuille.

Bien.

Euh... Tu as vraiment fait un userform avec 20 lignes ?
m
0
l
7 Janvier 2013 12:16:00

Euhm, oui ... Car chaque déposant peut avoir plus ou moins 20 articles ... mais chaque déposant est différent ...

Du coup, j'ai encore du boulot, ce n'est que le début ... :( 

Donc, j'ai le souci qu'il reprend le numéro de déposant automatiquement ... même s'il y a pas d'article d'encodé ...

tu sais m'aider stp ?
m
0
l
a b L Programmation
7 Janvier 2013 13:52:35

T'es belge ? (question facultative, répondre oui, non ne m'empêchera pas de t'aider ;)  )

-----------------------------------

M'enfin, un userform avec 20 lignes de 6 champs !
J'ai du mal à imaginer.

-----------------------------------

Bon, encore un truc que je n'ai pas compris.
Redis-moi en plus simple ce que c'est que cette histoire de numéro de déposant automatique.
m
0
l
7 Janvier 2013 14:18:06

LOL , oui j'suis belge. ... MDR ... ca se lit tellement que ca ?

C'est bizarre d'avoir crée un userform ?

Soit, sinon je t'envoies le fichier ... ? tu pourras voir par toi même... mais j'vois nulle part ou joindre un fichier ?

m
0
l
8 Janvier 2013 13:01:24

C'est bon, laisser tomber, j'vais laisser faire un programmeur en php ...
m
0
l
a b L Programmation
8 Janvier 2013 14:55:22

Bon, si tu veux. Tant pis.

Mais ce n'est pas le programme PHP qui va t'aider à progresser en VB.
Par contre, le programmeur (PHP ou autre), il peut peut-être ;) 
m
0
l
1 Février 2013 13:38:28

Dommage que je ne viens pas régulièrement ... j'ai compris ce qu'il voulait :-)

Bon c'est peut-être le fait que je sois belge aussi ;-)

PS : JackGReen (si tu repasses par ici), pour éviter de nous faire repérer, fait gaffe à l'utilisation du verbe pouvoir et savoir :-)

m
0
l