Ouvrir un classeur et copier une valeur dans un commentaire
5 réponses
Didier Novarin
Bonjour
j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA"
je souhaite faire cela :
A partir du classeur TATA, ouvrir le classeur TOTO
Dans le classeur TOTO, copier la cellule A1 de la feuille1
Passer au classeur TATA coller son contenu dans un commentaire de la cellule
Q4 feuille1
Puis fermer le classeur TOTO
Je vous remercie beaucoup
Didier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
SL
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
Bonjour
il ne doit pas être nécessaire d'ouvrir TOTO
regarde sur Excelabo par exemple pour lire dans un classeur fermé
http://www.excelabo.net/xl/fichiers.php#lireferméenbloc
ou chez F. Sigonneau
http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23pEWXcH2FHA.1564@tk2msftngp13.phx.gbl...
Bonjour
j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA"
je souhaite faire cela :
A partir du classeur TATA, ouvrir le classeur TOTO
Dans le classeur TOTO, copier la cellule A1 de la feuille1
Passer au classeur TATA coller son contenu dans un commentaire de la
cellule Q4 feuille1
Puis fermer le classeur TOTO
Je vous remercie beaucoup
Didier
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
Didier Novarin
Je te remercie SL mais c'est vraiment très complexe, je souhaite faire quelque chose de simple ouvrir toto copier puis fermer et coller dans un commentaire Didier
"SL" a écrit dans le message de news:
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
Je te remercie SL
mais c'est vraiment très complexe, je souhaite faire quelque chose de simple
ouvrir toto copier puis fermer et coller dans un commentaire
Didier
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
eAbL0jH2FHA.2348@TK2MSFTNGP15.phx.gbl...
Bonjour
il ne doit pas être nécessaire d'ouvrir TOTO
regarde sur Excelabo par exemple pour lire dans un classeur fermé
http://www.excelabo.net/xl/fichiers.php#lireferméenbloc
ou chez F. Sigonneau
http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23pEWXcH2FHA.1564@tk2msftngp13.phx.gbl...
Bonjour
j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA"
je souhaite faire cela :
A partir du classeur TATA, ouvrir le classeur TOTO
Dans le classeur TOTO, copier la cellule A1 de la feuille1
Passer au classeur TATA coller son contenu dans un commentaire de la
cellule Q4 feuille1
Puis fermer le classeur TOTO
Je vous remercie beaucoup
Didier
Je te remercie SL mais c'est vraiment très complexe, je souhaite faire quelque chose de simple ouvrir toto copier puis fermer et coller dans un commentaire Didier
"SL" a écrit dans le message de news:
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
ChrisV
Bonjour Didier,
Sub zaza() Dim txNote On Error Resume Next 'chemin d'accès à adapter Workbooks.Open Filename:="...Mes documentstoto.xls" txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1] With Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object .Text = txNote .Font.Name = "Arial" .Font.Size = 12 .AutoSize = True End With Workbooks("toto.xls").Close True End Sub
ChrisV
"Didier Novarin" a écrit dans le message de news:
Je te remercie SL mais c'est vraiment très complexe, je souhaite faire quelque chose de simple ouvrir toto copier puis fermer et coller dans un commentaire Didier
"SL" a écrit dans le message de news:
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
Bonjour Didier,
Sub zaza()
Dim txNote
On Error Resume Next
'chemin d'accès à adapter
Workbooks.Open Filename:="...Mes documentstoto.xls"
txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1]
With
Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object
.Text = txNote
.Font.Name = "Arial"
.Font.Size = 12
.AutoSize = True
End With
Workbooks("toto.xls").Close True
End Sub
ChrisV
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: uchvkvH2FHA.1252@TK2MSFTNGP09.phx.gbl...
Je te remercie SL
mais c'est vraiment très complexe, je souhaite faire quelque chose de
simple
ouvrir toto copier puis fermer et coller dans un commentaire
Didier
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
eAbL0jH2FHA.2348@TK2MSFTNGP15.phx.gbl...
Bonjour
il ne doit pas être nécessaire d'ouvrir TOTO
regarde sur Excelabo par exemple pour lire dans un classeur fermé
http://www.excelabo.net/xl/fichiers.php#lireferméenbloc
ou chez F. Sigonneau
http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23pEWXcH2FHA.1564@tk2msftngp13.phx.gbl...
Bonjour
j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA"
je souhaite faire cela :
A partir du classeur TATA, ouvrir le classeur TOTO
Dans le classeur TOTO, copier la cellule A1 de la feuille1
Passer au classeur TATA coller son contenu dans un commentaire de la
cellule Q4 feuille1
Puis fermer le classeur TOTO
Je vous remercie beaucoup
Didier
Sub zaza() Dim txNote On Error Resume Next 'chemin d'accès à adapter Workbooks.Open Filename:="...Mes documentstoto.xls" txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1] With Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object .Text = txNote .Font.Name = "Arial" .Font.Size = 12 .AutoSize = True End With Workbooks("toto.xls").Close True End Sub
ChrisV
"Didier Novarin" a écrit dans le message de news:
Je te remercie SL mais c'est vraiment très complexe, je souhaite faire quelque chose de simple ouvrir toto copier puis fermer et coller dans un commentaire Didier
"SL" a écrit dans le message de news:
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
Didier Novarin
Nickel Merci beaucoup ChrisV Didier
"ChrisV" a écrit dans le message de news:
Bonjour Didier,
Sub zaza() Dim txNote On Error Resume Next 'chemin d'accès à adapter Workbooks.Open Filename:="...Mes documentstoto.xls" txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1] With Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object .Text = txNote .Font.Name = "Arial" .Font.Size = 12 .AutoSize = True End With Workbooks("toto.xls").Close True End Sub
ChrisV
"Didier Novarin" a écrit dans le message de news:
Je te remercie SL mais c'est vraiment très complexe, je souhaite faire quelque chose de simple ouvrir toto copier puis fermer et coller dans un commentaire Didier
"SL" a écrit dans le message de news:
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
Nickel
Merci beaucoup ChrisV
Didier
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
OwmbjPI2FHA.3892@TK2MSFTNGP12.phx.gbl...
Bonjour Didier,
Sub zaza()
Dim txNote
On Error Resume Next
'chemin d'accès à adapter
Workbooks.Open Filename:="...Mes documentstoto.xls"
txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1]
With
Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object
.Text = txNote
.Font.Name = "Arial"
.Font.Size = 12
.AutoSize = True
End With
Workbooks("toto.xls").Close True
End Sub
ChrisV
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: uchvkvH2FHA.1252@TK2MSFTNGP09.phx.gbl...
Je te remercie SL
mais c'est vraiment très complexe, je souhaite faire quelque chose de
simple
ouvrir toto copier puis fermer et coller dans un commentaire
Didier
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
eAbL0jH2FHA.2348@TK2MSFTNGP15.phx.gbl...
Bonjour
il ne doit pas être nécessaire d'ouvrir TOTO
regarde sur Excelabo par exemple pour lire dans un classeur fermé
http://www.excelabo.net/xl/fichiers.php#lireferméenbloc
ou chez F. Sigonneau
http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23pEWXcH2FHA.1564@tk2msftngp13.phx.gbl...
Bonjour
j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA"
je souhaite faire cela :
A partir du classeur TATA, ouvrir le classeur TOTO
Dans le classeur TOTO, copier la cellule A1 de la feuille1
Passer au classeur TATA coller son contenu dans un commentaire de la
cellule Q4 feuille1
Puis fermer le classeur TOTO
Je vous remercie beaucoup
Didier
Sub zaza() Dim txNote On Error Resume Next 'chemin d'accès à adapter Workbooks.Open Filename:="...Mes documentstoto.xls" txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1] With Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object .Text = txNote .Font.Name = "Arial" .Font.Size = 12 .AutoSize = True End With Workbooks("toto.xls").Close True End Sub
ChrisV
"Didier Novarin" a écrit dans le message de news:
Je te remercie SL mais c'est vraiment très complexe, je souhaite faire quelque chose de simple ouvrir toto copier puis fermer et coller dans un commentaire Didier
"SL" a écrit dans le message de news:
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
ChrisV
De rien...! ;-)
ChrisV
"Didier Novarin" a écrit dans le message de news: %
Nickel Merci beaucoup ChrisV Didier
"ChrisV" a écrit dans le message de news:
Bonjour Didier,
Sub zaza() Dim txNote On Error Resume Next 'chemin d'accès à adapter Workbooks.Open Filename:="...Mes documentstoto.xls" txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1] With Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object .Text = txNote .Font.Name = "Arial" .Font.Size = 12 .AutoSize = True End With Workbooks("toto.xls").Close True End Sub
ChrisV
"Didier Novarin" a écrit dans le message de news:
Je te remercie SL mais c'est vraiment très complexe, je souhaite faire quelque chose de simple ouvrir toto copier puis fermer et coller dans un commentaire Didier
"SL" a écrit dans le message de news:
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
De rien...! ;-)
ChrisV
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23dosCiI2FHA.3204@TK2MSFTNGP14.phx.gbl...
Nickel
Merci beaucoup ChrisV
Didier
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
OwmbjPI2FHA.3892@TK2MSFTNGP12.phx.gbl...
Bonjour Didier,
Sub zaza()
Dim txNote
On Error Resume Next
'chemin d'accès à adapter
Workbooks.Open Filename:="...Mes documentstoto.xls"
txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1]
With
Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object
.Text = txNote
.Font.Name = "Arial"
.Font.Size = 12
.AutoSize = True
End With
Workbooks("toto.xls").Close True
End Sub
ChrisV
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: uchvkvH2FHA.1252@TK2MSFTNGP09.phx.gbl...
Je te remercie SL
mais c'est vraiment très complexe, je souhaite faire quelque chose de
simple
ouvrir toto copier puis fermer et coller dans un commentaire
Didier
"SL" <nospam_sl69@laposte.net> a écrit dans le message de news:
eAbL0jH2FHA.2348@TK2MSFTNGP15.phx.gbl...
Bonjour
il ne doit pas être nécessaire d'ouvrir TOTO
regarde sur Excelabo par exemple pour lire dans un classeur fermé
http://www.excelabo.net/xl/fichiers.php#lireferméenbloc
ou chez F. Sigonneau
http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23pEWXcH2FHA.1564@tk2msftngp13.phx.gbl...
Bonjour
j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA"
je souhaite faire cela :
A partir du classeur TATA, ouvrir le classeur TOTO
Dans le classeur TOTO, copier la cellule A1 de la feuille1
Passer au classeur TATA coller son contenu dans un commentaire de la
cellule Q4 feuille1
Puis fermer le classeur TOTO
Je vous remercie beaucoup
Didier
"Didier Novarin" a écrit dans le message de news: %
Nickel Merci beaucoup ChrisV Didier
"ChrisV" a écrit dans le message de news:
Bonjour Didier,
Sub zaza() Dim txNote On Error Resume Next 'chemin d'accès à adapter Workbooks.Open Filename:="...Mes documentstoto.xls" txNote = Workbooks("toto.xls").Sheets("Feuil1").[A1] With Workbooks("tata.xls").Sheets("Feuil1").[Q4].AddComment.Shape.OLEFormat.Object .Text = txNote .Font.Name = "Arial" .Font.Size = 12 .AutoSize = True End With Workbooks("toto.xls").Close True End Sub
ChrisV
"Didier Novarin" a écrit dans le message de news:
Je te remercie SL mais c'est vraiment très complexe, je souhaite faire quelque chose de simple ouvrir toto copier puis fermer et coller dans un commentaire Didier
"SL" a écrit dans le message de news:
Bonjour il ne doit pas être nécessaire d'ouvrir TOTO regarde sur Excelabo par exemple pour lire dans un classeur fermé http://www.excelabo.net/xl/fichiers.php#lireferméenbloc ou chez F. Sigonneau http://frederic.sigonneau.free.fr/code/Ado/ADOLireClasseurFerme.txt
Stéphane
"Didier Novarin" a écrit dans le message de news: %
Bonjour j'ai 2 classeurs dans "mes documents" "TOTO" et "TATA" je souhaite faire cela : A partir du classeur TATA, ouvrir le classeur TOTO Dans le classeur TOTO, copier la cellule A1 de la feuille1 Passer au classeur TATA coller son contenu dans un commentaire de la cellule Q4 feuille1 Puis fermer le classeur TOTO Je vous remercie beaucoup Didier
