Question VBA. Modification fichier
Résolu
Villette54
Messages postés
300
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai une petite question.
Est-il possible de savoir ce qu'un utilisateur à modifier sur un fichier ?
J'ai actuellement une macro qui me permet de savoir, qui s'est connecté sur le fichier et quand. J'aimerais savoir s'il est possible d'ajouter ce qu'il à modifier afin que tout le monde puisse le voir facilement.
Pour vous donner une idée voici un extrait de ma macro actuelle :
Je ne sais absolument pas ce qui est faisable, à ce niveau. Dans l'idéal j'aimerais trouvé un moyen de mettre dans une 3ème cellule : Modification "blablabla" en cellule "C42" + modification "blablabis" en cellule "C43" ect...
Merci d'avance a toute personne qui pourra me donner quelques infos.
J'ai une petite question.
Est-il possible de savoir ce qu'un utilisateur à modifier sur un fichier ?
J'ai actuellement une macro qui me permet de savoir, qui s'est connecté sur le fichier et quand. J'aimerais savoir s'il est possible d'ajouter ce qu'il à modifier afin que tout le monde puisse le voir facilement.
Pour vous donner une idée voici un extrait de ma macro actuelle :
Dim tabUtilisateur(1, 2)
tabUtilisateur(1, 1) = Environ("UserName")
tabUtilisateur(1, 2) = Date + Time
With ThisWorkbook.Sheets("Données")
LigneInsert = .Range("A1048000").End(xlUp).Row + 1
.Range("A" & LigneInsert & ":B" & LigneInsert) = tabUtilisateur
End With
ThisWorkbook.Save
Unload Me
Je ne sais absolument pas ce qui est faisable, à ce niveau. Dans l'idéal j'aimerais trouvé un moyen de mettre dans une 3ème cellule : Modification "blablabla" en cellule "C42" + modification "blablabis" en cellule "C43" ect...
Merci d'avance a toute personne qui pourra me donner quelques infos.
1 réponse
-
Bonjour
Un exemple sur une feuille, une colonne; à adapter au contexte
https://www.cjoint.com/?CJsqAKk8384
Nota:
Supprime l'espace devant ADODB
Set source = CreateObject(" ADODB.Connection")
devient
Set source = CreateObject("ADODB.Connection")
Michel-
Bonjour Michel,
Pour me faciliter la tâche je pensais plutôt enregistrer ça sur un onglet que j'aurais mis en veryhidden plutôt qu'un nouveau fichier.
En tout cas, j'ai une bonne base de travail, bien que je ne sois pas un pro en VBA je devrais pouvoir essayer de faire quelque chose.
Juste une petite question, j'ai une version 2010 d'Excel, est-ce que cela ne pose pas de problème de compatibilité ?
En tout cas, merci beaucoup pour ton aide. -
-
