Envoyer

Fermé
Muller2 - 22 déc. 2016 à 11:39
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 26 déc. 2016 à 12:49
Bonjour,
j'aimerais bien que vous m'aidiez ça fait plusieurs jours que je me bat pour trouver la solution et le code adéquat
ce que je vous faire sur Excel
j'ai créer un formulaire contenant les champs suivants
sur le classeur1
Date d'envoi
Collaborateur N1
Nom de l'appelant
N° de contrat
Téléphone
N° sinistre
N° Ticket
J1-Commentaire
Alors j'ai ajouter un bouton ENVOYER
Ce que je veux faire c'est que lorsqu'un collègue rempli les champs sur le classeur1 et dès qu'il click sur ENVOYER je veux recevoir ces information sur un autre fichier Excel que je le nome classeur2
et je sais pas comment faire je suis vraiment débutant
Merci a l'avance j'oublierais jamais votre aide

4 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
22 déc. 2016 à 11:52
Bonjour,

Vous pouvez mettre le classeur1 (formulaire) a dispo ??
Nous aurions au moins ca ..

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
0
MERCI INFINIMENT

si je comprend bien je dois me connecter sur ce site et je suis la procedure

le classeur1est déjà créer

le soucis que dans ma cession j'ai pas l'acces a ce site est ce possible que vous le feriez pour moi SVP je vous en prie
0
parceque sur notre cession de travail on a des restrinctions

est ce que je peux faire autrement sans passer par ce site
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
22 déc. 2016 à 12:10
Re,
Si vous ne pouvez acceder a ce site pour mettre a dispo, pas possible non plus pour recuperer...............!

Quetions:
_ dans ce classeur1, pas d'ecriture des dites informations ??
_ dans le classeur2, ecriture en ligne et a la suite des infos "envoyees" ??
0
Muller2 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
22 déc. 2016 à 12:27
non sur le classeur1 j'ai mis
Date d'envoi
Collaborateur N1
Nom de l'appelant
N° de contrat
Téléphone
N° sinistre
N° Ticket
J1Commentaire
ils ont vide
je vous que mes collègue renseigne ces infos ensuite cliquer sur envoyer
et par la suite je vous recevoir ces infos sur un autre classeur2
0
Muller2 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
22 déc. 2016 à 13:47
oui c'est tout a fait ça
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > Muller2
Modifié par f894009 le 22/12/2016 à 15:39
Re,

Vous en avez beaucoup de "collegues", ils saisissent en meme temps ??

Quel Excel avez-vous ?
0
Muller2 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
22 déc. 2016 à 15:51
re bonjour

non on est 25 collegues au max / ils font pas trop de saisie /disant 5 a l'heure

j'ai excel 2007
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
23 déc. 2016 à 13:51
Re,

Au plus simple vu les infos dispensees, code a affecter a un bouton sur feuille se saisie du classeur1

Sub Envoi_Infos()
    'adaptez le nom de feuille
    TInfos = Worksheets("feuil1").Range("A1:H1").Value      'mise en tableau des infos
    'adaptez le chemin et le nom
    Workbooks.Open Filename:="D:\_Test_Txt\Classeur2.xlsx"      'ouverture du classeur
    PCV = Range("A" & Rows.Count).End(xlUp).Row + 1     'premiere cellule vide colonne A
    Range("A" & PCV).Resize(, 8) = TInfos       'ecriture infos
    ActiveWorkbook.Close True       'fermeture du classeur avec sauvegarde
End Sub
0
je sais pas comment te remercer mais vraiment tu m'as bcp aider

ca marche mnt
mais lorsqu'on fait la saisie tout se transfert au classeur2 ( ca c bon )
mais dès qu'on fait une deusieme saisie ça efface la premiere
moi je vous garder l'historique

est ce que c possible
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > MULLER2
23 déc. 2016 à 18:47
Re,

mais dès qu'on fait une deusieme saisie ça efface la premiere
Si vous parlez du classeur2, pas possible puisque il y a recherche de la premiere cellule vide colonne A. A supposer qu'il y ait quelque chose d'ecrit dans cette colonne au moment de l'envoi
0
Bonjour
Puis je introduire un code a la macro pour que les cellules se vident après chaque clique sur ENVOYER . bien sûre mon ami je parle des cellules de la feuille 1 celle
Si c possible de me couniquer ce code . je vouz remercie de tout min coeur cher ami
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > Muller2
24 déc. 2016 à 19:45
Bonjour,
Vous copiez la ligne 3 du code que vous mettez avant end Sub. Vous enlevez TInfos= et vous remplacez value par clearcontent
0
Bonjour;

c'est bon mon ami ca marche maintenant .je voulais savoir est ce possible que par exemple
3 collaborateur puissent utiliser le fichier classeur 1 dans lequel on fait la saisie est ce possible qu'ils utilisent en même temps

ca va pas donner l'accès a un seule collaborateur ou tous en même temps
0