XL 2013 Travailler a plusieurs sur formulaire vba

francinade

XLDnaute Nouveau
Bonjour la communauté,

Voila, je fais une base de données vba pour mon entreprise et le problème se pose que ce fichier dois être utilisé par plusieurs collaborateurs.

Malheureusement j'ai toujours ce fichus "lecture seul", pourriez vous m'aider s'il vous plait.

Merci beaucoup pour votre aide.
 

francinade

XLDnaute Nouveau
A l'intérieur d'un réseau physique il peut y avoir des réseaux virtuels avec des droits différents. c'est votre administrateur réseau (s'il existe) qui configure tout cela.
D'accord aucun problème je vais voir ça avec alors, merci beaucoup pour ses informations !!

Du coup pour fusionner plusieurs vba ensemble croyez vous que cela est possible svp ? Si oui connaissez vous la méthode ou un fil qui spécifie cela ? Pcq jai chercher et je trouve pas
 

TAAROA1216

XLDnaute Nouveau
Bonjour Staple,

D'abord merci de l'attention que vous portez a ma demande.

J'y avais pensé mais ayant des macros je ne peux partager.

Du coup j'avais penser a me faire un classeur source a part et celui en mode partager et de faire un classeur vba pour chaque collaborateur qui viendrait directement alimenter la source. Je ne sais pas si je me suis bien expliquer.

Donc :
- Fichier "source" (classeur paratgé)
- Fichier "collab1" (avec formulaire vba)
- Fichier "collab2" (avec formaulaire vba)
- etc

Mais ce que je souhaiterais (si possible), c'est que lorsque je vient alimenter ma source, j'ai une colonne avec le nom du collaborateur, cela vient remplir automatique le classseur du collaborateur en question.

Et que quand le collaborateur ce connecte sur son propre formulaire, les modifications qu'il effectue vient alimenter le fichier source.

Bonjour,

J'ai eu la même idée, je vais essayer de mettre la "source" en partagé ou en fichier Access, et les "collab" en fichier Excel avec macro qui viendraient se mettre à jour sur le fichier source.
Je me lance ou existe-il déjà des exemples où je puisse m'inspirer ?

Merci
 
Dernière édition:

francinade

XLDnaute Nouveau
Bonjour,

J'ai eu la même idée, je vais essayer de mettre la "source" en partagé ou en fichier Access, et les "collab" en fichier Excel avec macro qui viendraient se mettre à jour sur le fichier source.
Je me lance ou existe-il déjà des exemples où je puisse m'inspirer ?

Merci

Bonjour,

Alors moi j'ai réussi en faisant :
-un classeur nommé "source para"
- un autre classeur collab
- une connexion entre le classeur "source para" et "collab" (ce qui me permet d'importer ma source directement dans mon collab)
- un formulaire dans le collab

dans le formulaire quand je valide une saisie cela fait :

With Workbooks("source para")
.sheets(1).range("d4").value= textbox1.value '(le point est très important avant sheets)
End with
activeWorkbook.refreshall


A adapter selon besoin.


Mon seul inconvénient c'est que je dois ouvrir manuellement mes deux classeur je suis encore en recherche d'un code ouverture/fermeture de classeur afin d'automatiser.
 

TAAROA1216

XLDnaute Nouveau
Bonjour,

Moi j'utilise ce code :
VB:
'
Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\SOURCE.xlsx")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

' ton code pour COLLABx

wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit'Fermeture de l'application Excel

'Désallocation mémoire
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing

Le fichier reste non visible ce qui est bien pour mes transferts entre "SOURCE" partagé et "COLLABx" avec macro
 

francinade

XLDnaute Nouveau
Bonjour,

Moi j'utilise ce code :
VB:
'
Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\SOURCE.xlsx")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

' ton code pour COLLABx

wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit'Fermeture de l'application Excel

'Désallocation mémoire
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing

Le fichier reste non visible ce qui est bien pour mes transferts entre "SOURCE" partagé et "COLLABx" avec macro


Bonjour,

Merci beaucoup ton code fonctionne parfaitement.

Pr contre, tu saurais comment faire un enregistrement automatique, car a chaque fois il me demande si je veux enregistrer et me le mets en copie de mon fichier source ?
 

Discussions similaires

Statistiques des forums

Discussions
312 247
Messages
2 086 590
Membres
103 247
dernier inscrit
bottxok