Insérer contenu d'une cellule dans un commentaire d'un autre classeur (ouvert)

Résolu
Adirien Messages postés 84 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je ne sais pas si quelqu'un pourra m'aider :
J'ai un fichier avec des données qui évolue tous les jours.
Je veux pouvoir créer une macro qui va copier les valeurs de certaines cellules d'un classeur (TDB.xlsx) dans un nouveau commentaire d'une cellule qui est dans un autre classeur (MTTH.xlsx). Je précise au moment de la copie les 2 classeurs sont ouverts.

Je veux pouvoir copier le contenu de la cellule mais aussi une trame de texte en préfixe de chaque valeur "Matin:", "Après-midi :" "Nuit :":


Merci de votre aide

Configuration: Windows / Chrome 89.0.4389.82

3 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
la macro serait-elle dans un des deux fichiers?
as-tu essayé avec l'enregistreur de macros?
0
Adirien Messages postés 84 Date d'inscription   Statut Membre Dernière intervention   2
 
La macro se trouve sur le classeur qui doit recevoir le commentaire.
Avec l'enregistreur de macro je vais pouvoir insérer un commentaire mais je ne pourrais pas y faire apparaître une valeur de cellule pour ça je suis obligé de passer par du code
0
Adirien Messages postés 84 Date d'inscription   Statut Membre Dernière intervention   2
 
J'ai tenté quelque chose comme cela déjà ne serait-ce que pour renvoyer la valeur de Matin mais ça ne marche pas :


 With MTTH.Sheets("Feuil1").Range("B1")
If .Comment Is Nothing Then .AddComment
.Comment.Text Text:=TDB.Sheets("Feuil1").Range("B2").Value
End With


Erreur d'execution '1004' :
Erreur définie par l'application ou l'objet
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
est-ce le code complet?
à quelle ligne l'erreur?
merci d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
0
Adirien Messages postés 84 Date d'inscription   Statut Membre Dernière intervention   2
 
C'est cette ligne où est l'erreur

Le code complet est le suivant :

Set MTTH = ThisWorkbook
Set TDB = Workbooks("TDB.xlsm")
 With MTTH.Sheets("Feuil1").Range("B1")
      If .Comment Is Nothing Then .AddComment
     .Comment.Text Text:=TDB.Sheets("Feuil1").Range("B2").Value
    End With


La ligne d'erreur est sur cette ligne

 .Comment.Text Text:=TDB.Sheets("Feuil1").Range("B2").Value
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
afin de découvrir ce qui provoque l'erreur, décompose l'instruction donnant l'erreur.
exemple:
dim cc as string
 cc=TDB.Sheets("Feuil1").Range("B2").Value
.Comment.Text Text:=cc
0
Adirien Messages postés 84 Date d'inscription   Statut Membre Dernière intervention   2 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
En décomposant cela fonctionne donc ça doit être la partie
TDB.Sheets("Feuil1").Range("B2").Value
après le "=" qui pose problème mais je ne vois pas d'erreur de syntaxe car j'ai fais un copier coller de cette même valeur dans la variable cc...
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Adirien Messages postés 84 Date d'inscription   Statut Membre Dernière intervention  
 
tu avais une erreur d'exécution, quelle erreur de syntaxe mentionnes-tu?
si cela fonctionne en décomposant, le problème n'est-il pas résolu?
0
Adirien Messages postés 84 Date d'inscription   Statut Membre Dernière intervention   2 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Effectivement c'est résolu donc inutile de chercher plus loin c'est le résultat qui compte.
Merci
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Adirien Messages postés 84 Date d'inscription   Statut Membre Dernière intervention  
 
si tu partages ton fichier, je peux chercher plus loin.
0