Modifier un classeur ouvert sur un autre pc via vba
Zorbaxx
Messages postés
29
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour,
J'aimerai réussir à entrer des données dans un classeur via l'userform d'un autre classeur. Jusque la pas trop de soucis. Lorsque les deux classeur son ouvert sur le même poste de travail tout fonctionne nickel.
Le problème c'est que ces classeurs sont amenés a être ouvert en permanence sur des postes de travail différents. Du coup excel me dit qu'il ne trouve pas le deuxième classeur (Erreur d'éxecution 9 - l'indice n'appartient pas à la sélection). Voici la partie du code qui pose problème :
dlt2 = Workbooks("EXP.xlsm").Sheets("Données").Range("b" & Rows.Count).End(xlUp).Row + 1
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 3).NumberFormat = "dd.mm.yyyy"
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 3) = Now()
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 4).NumberFormat = "hh:mm"
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 4) = Now()
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 5) = Useformmatin.TextBox1.Value
Les fichiers sont ouvert en permanence sur deux Pc diffèrents mais se trouve dans le même répertoire sur le réseau de la boîte.
Si quelqu'un sait comment faire et me dire ou je m'y prend mal....
Merci
J'aimerai réussir à entrer des données dans un classeur via l'userform d'un autre classeur. Jusque la pas trop de soucis. Lorsque les deux classeur son ouvert sur le même poste de travail tout fonctionne nickel.
Le problème c'est que ces classeurs sont amenés a être ouvert en permanence sur des postes de travail différents. Du coup excel me dit qu'il ne trouve pas le deuxième classeur (Erreur d'éxecution 9 - l'indice n'appartient pas à la sélection). Voici la partie du code qui pose problème :
dlt2 = Workbooks("EXP.xlsm").Sheets("Données").Range("b" & Rows.Count).End(xlUp).Row + 1
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 3).NumberFormat = "dd.mm.yyyy"
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 3) = Now()
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 4).NumberFormat = "hh:mm"
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 4) = Now()
Workbooks("EXP.xlsm").Sheets("Données").Cells(dlt, 5) = Useformmatin.TextBox1.Value
Les fichiers sont ouvert en permanence sur deux Pc diffèrents mais se trouve dans le même répertoire sur le réseau de la boîte.
Si quelqu'un sait comment faire et me dire ou je m'y prend mal....
Merci
A voir également:
- Modifier un classeur ouvert sur un autre pc via vba
- Réinitialiser un pc - Guide
- Modifier dns - Guide
- Télécharger musique gratuitement sur pc - Télécharger - Conversion & Extraction
- Modifier liste déroulante excel - Guide
- Pc lent - Guide
2 réponses
Bonjour,
Étant donné qu'il y a simultanement au moins deux utilisateurs différents, il faut partager le classeur.
Étant donné qu'il y a simultanement au moins deux utilisateurs différents, il faut partager le classeur.
Merci de prendre le temps de répondre à mon problème. Quand tu veux dire partager le classeur tu veux bien dire via l'onglet "révision" puis "partager le classeur"? car j'ai effectivement testé cette possibilité mais j'ai toujours la même erreur.
Merci
Merci
Il faut que les 2 classeurs soient ouverts (en écriture) sur le PC qui exécute la macro.
Mais attention, le partage de classeur est souvent source d'autres problèmes et en plus, il faut gérer l'approbation des modifications effectuées par chaque utilisateur. Il est généralement plus simple d'utiliser un classeur non partagé et de le notifier aux autres pour qu'ils ferment le fichier le temps d’exécuter la macro..
Mais attention, le partage de classeur est souvent source d'autres problèmes et en plus, il faut gérer l'approbation des modifications effectuées par chaque utilisateur. Il est généralement plus simple d'utiliser un classeur non partagé et de le notifier aux autres pour qu'ils ferment le fichier le temps d’exécuter la macro..
