VBA EXCEL chemin d'acces fichier sur serveur

JackGreen

Nouveau membre
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 ?
 

zeb

Modérateur
Salut,

Quel est le problème ?

Merci d'utiliser la balise
Code:
 pour présenter ton code.
 

JackGreen

Nouveau membre
 

zeb

Modérateur
LOL.

[code] ton code [/code]

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

Je n'ai rien compris à ton problème. Recommence, avec un exemple très simple peut-être.
 

JackGreen

Nouveau membre
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.

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

zeb

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

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

JackGreen

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

zeb

Modérateur
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 ?
 

JackGreen

Nouveau membre
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 ?
 

zeb

Modérateur
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.
 

JackGreen

Nouveau membre
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 ?

 

zeb

Modérateur
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 ;)
 

beru

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

 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 056
Membres
1 586 284
Dernier membre
fjfkfjfkfjfjcj
Partager cette page
Haut