Rechercher
Se connecter avec
S'enregistrer | Connectez-vous

VBA EXCEL chemin d'acces fichier sur serveur

Dernière réponse : dans Programmation
Partagez

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 ?

Autres pages sur : vba excel chemin acces fichier serveur

  • JackGreen a édité ce message
Lassé par la pub ? Créez un compte

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]

Contenus similaires
Posez votre question

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
  • zeb a édité ce message

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. ;) 

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!!!!

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 ?

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 ?

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.

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 :-)

Lassé par la pub ? Créez un compte
Créer un nouveau sujet