Macro insérer une ligne dans 2 fichiers différents

Cool je test ça...merci à toi Geof

Bjr Geof, Un petit pb qui me perturbe au niveau de la date d'entré en C...affiche mm/jj/aa au lieu de jj/mm/aa

J'ai regardé dans le program

Bonjour Florian,

En modifiant les lignes :

    .Cells(Ligne, 3).Value = TextBox3.Value

Par

    .Cells(Ligne, 3).Value = CDate(TextBox3.Value)

Toujours avec la recherche Crtl + F dans Projet en cours,
Tu devrais trouver 4 lignes a modifier (2/ UserForm et a faire sur les deux fichiers).

A+

Ok C fait!

Je n'ai pas encore déplacé les fichiers sur mon serveur...je vais le faire:

Pour ça, je dois changer les adresses de destinations sur :

workbook et UserForme Add des 2 fichiers?

et

Exact, c'est surtout dans ThisWorkbook :

DosCollegue

Qui doit etre changé si tu déplace le fichier.

Mais si tu renomme, il faudra changer les deux

DosCollegue '(This Workbook)

.Cells(Ligne, 4).FormulaR1C1 = "='suivi-contacts-clients-florian.xlsm'!Tableau1[@Status]" '(UserForm)

Slt Geof, ça a l'aire de fonctionner...un grd merci pour ton aideSi tu as besoin d'info dans le Photovoltaïque, c'est mon domaine.

Dernière question: est-il possible (par ex via un bouton) de créer et enregistrer sans fermer automatiquement le 2eme fichier?

Salut Florian,

Il est possible de garder 1 seul bouton et avant la fermeture du classeur secondaire,
Demander a l'utilisateur si oui ou non il souhaite fermer le classeur du collegue.

Exemple a la fin de l'userform :

Workbooks(FichierCollegue).Close SaveChanges:=True

Devient :

If MsgBox("Veux-tu fermer le fichier de Florence ?", vbYesNo + vbInformation, "Fermeture du classeur secondaire") = vbYes Then
    Workbooks(FichierCollegue).Close SaveChanges:=True
End If

Quand tu vas ajouter un client avant la fermeture de l'autre ficher tu auras :

-> Oui ferme le classeur
-> Non le garde ouvert.

Plus d'info sur les boites de dialogue (vbYesNo + vbInformation) => Lien

A+