Discussion :

[ericdev67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ericdev67]

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..... merci donc de m'avoir corrigé

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[ericdev67]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci
A+

[Krovax]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ericdev67]

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+