Suivi des modifications

Bonjour,

J'ai un classeur qui est partagé (=donc c'est vrai que je peux voir le suivi des modifications....), mais comme je ne veux pas devoir ouvrir à chaque fois le suivi des modifications, j'aimerais que ces modifications soient automatiquements mises dans un classeur. Je m'explique : parmis les personnes qui modifient, certaines modifications sont peu importantes et d'autres au contraire, très importantes et c'est pour ça que je veux "envoyer" mes modifications dans un autre classeur qui "m'avertiera" si un changement important est intervenu....

Pour l'instant, j'ai essayé avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Option Explicit 'ouverture base des chemins ' field = numéro de la colonne     'Définit l'emplacement et le nom du fichier .txt, ou va être enregistré les 'informations d'ouverture et de fermeture.       Private Const Chemin As String = "c:\essai\div.xls" Private Sub Worksheet_Change(ByVal Target As Range) Dim Cible As Integer 'permet de sortir de la procédure si plus d'une cellule est sélectionnée '(sinon la suite de la macro renvoie un message d'erreur) If Target.Count > 1 Then Exit Sub   MsgBox "Vous venez de modifier la cellule " & Target.Address & _ " (" & Target.Value & ")"   Open Chemin For Append As #Cible   Print #Cible, Environ("UserName"), Target.Address Close #Cible   End Sub

---

Et ça ne fonctionne pas et je ne comprends pas pourquoi.....

Merci,

A+

Bonjour,

l'instruction Open concerne des fichiers de type texte (.txt, par exemple).
l'extension .xls correspond à des classeurs excel, structués par Excel. (à ne pas utiliser)

EDIT : Tu as par ailleurs oublié d'ajouter ce qu'est cible...
Correction à apporter :

Code:

---

1 2	Dim Cible As Integer Cible = FreeFile ' <<<<<===== ici

---

Merci ucfoutu,

Le pire, c'est que je l'avais noté (car j'avais déjà utilisé ce type de code (=voir qui ouvre le classeur) et que j'ai simplement oublié de le mettre dans ce code....:roll:. merci donc de m'avoir corrigé :ccool:

Par contre, je ne comprends pas pourquoi le fichier .xls est à éviter (il fonctionne).

Si tu pouvais aussi me dire comment récupérer des variables, (exemple nom du classeur...j'ai essayé workbook, mais ça ne marche pas...j'ai la date, en mettant

Code:

---

Print#cible, environ("username"), date

---

, mais il me faudrait le nom du classeur,.....
Merci, A+

.....galère.....j'ai essayé différents type de solutions (par exemple) :

Code:

---

1 2	dim n as name Set n=thisworkbooks.name

---

et je ne trouve toujours pas....une idée ????

Merci
A+

Bonsoir

Code:

---

dim n as string

---

Regarde l'aide sur .name pour savoir quel type de variable elle renvoie

Name n'est pas un type et print nécessite des chaine de caractère ou
quelque chose qui peux etre transformer en chaine de caractère

Merci Krovax,

Mais j'ai déjà essayé et ça ne fonctionne pas, "erreur de compilation, objet requis".....

j'ai essayé avec string, range, name, etc....
Galère.....

Merci
A+

enlève le set
set est pour les objets uniquement

Code:

---

n=thisworkbook.name

---

:ccool::ccool::ccool::ccool::ccool:
Trop fort !!!!!

dire que je viens de perdre 3h pour cette histoire de "set"....!!!!!! j'avais essayé différentes solutions, et en lisant le forum, il y avait toujours ce "set", donc je m'étais dit...il vallait mieux le mettre.....merci

Merci Krovax, ;)

A+ pour de prochaines aventures.....