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
MichDenis
Bonjour Xavier,
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement Workbooks.open "C:Exceltoto.xls" 'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom" 'Tu enlèves l'extension du nom du fichier SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook Application.EnableEvents = False .worksheets("Feuil1").Range("A1") = SonNom Application.EnableEvents = True end With
Salutations!
"xavier" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
merci
Bonjour Xavier,
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement
Workbooks.open "C:Exceltoto.xls"
'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom"
'Tu enlèves l'extension du nom du fichier
SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook
Application.EnableEvents = False
.worksheets("Feuil1").Range("A1") = SonNom
Application.EnableEvents = True
end With
Salutations!
"xavier" <xavier@discussions.microsoft.com> a écrit dans le message de news:
59AE9238-CCA3-4128-AE30-BD57FA45C21C@microsoft.com...
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et
pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement Workbooks.open "C:Exceltoto.xls" 'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom" 'Tu enlèves l'extension du nom du fichier SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook Application.EnableEvents = False .worksheets("Feuil1").Range("A1") = SonNom Application.EnableEvents = True end With
Salutations!
"xavier" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement
Workbooks.open "C:Exceltoto.xls" 'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom"
'Tu enlèves l'extension du nom du fichier SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook Application.EnableEvents = False .worksheets("Feuil1").Range("A1") = SonNom Application.EnableEvents = True end With
Salutations!
"xavier" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et
pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
merci
xavier
merci de ta réponse, mais je ne souhaite pas ouvrir le fichier à partir d'une macro, je fait l'ouverture normale du fichier à partir d'excel ou du poste de travail et c'est lors de cette ouverture que je souhiaterais stocker dans une cellule le nom du fichier
"MichDenis" wrote:
Bonjour Xavier,
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement Workbooks.open "C:Exceltoto.xls" 'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom" 'Tu enlèves l'extension du nom du fichier SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook Application.EnableEvents = False .worksheets("Feuil1").Range("A1") = SonNom Application.EnableEvents = True end With
Salutations!
"xavier" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
merci
merci de ta réponse, mais je ne souhaite pas ouvrir le fichier à partir d'une
macro, je fait l'ouverture normale du fichier à partir d'excel ou du poste de
travail et c'est lors de cette ouverture que je souhiaterais stocker dans une
cellule le nom du fichier
"MichDenis" wrote:
Bonjour Xavier,
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement
Workbooks.open "C:Exceltoto.xls"
'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom"
'Tu enlèves l'extension du nom du fichier
SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook
Application.EnableEvents = False
.worksheets("Feuil1").Range("A1") = SonNom
Application.EnableEvents = True
end With
Salutations!
"xavier" <xavier@discussions.microsoft.com> a écrit dans le message de news:
59AE9238-CCA3-4128-AE30-BD57FA45C21C@microsoft.com...
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et
pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
merci de ta réponse, mais je ne souhaite pas ouvrir le fichier à partir d'une macro, je fait l'ouverture normale du fichier à partir d'excel ou du poste de travail et c'est lors de cette ouverture que je souhiaterais stocker dans une cellule le nom du fichier
"MichDenis" wrote:
Bonjour Xavier,
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement Workbooks.open "C:Exceltoto.xls" 'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom" 'Tu enlèves l'extension du nom du fichier SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook Application.EnableEvents = False .worksheets("Feuil1").Range("A1") = SonNom Application.EnableEvents = True end With
Salutations!
"xavier" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
merci
Olivier D
Bonjour,
Voici une solution
Sub fname() Cells(1, 1) = ActiveWorkbook.FullName Cells(2, 1) = ActiveWorkbook.Name End Sub
Olivier
merci de ta réponse, mais je ne souhaite pas ouvrir le fichier à partir d'une macro, je fait l'ouverture normale du fichier à partir d'excel ou du poste de travail et c'est lors de cette ouverture que je souhiaterais stocker dans une cellule le nom du fichier
"MichDenis" wrote:
Bonjour Xavier,
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement Workbooks.open "C:Exceltoto.xls" 'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom" 'Tu enlèves l'extension du nom du fichier SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook Application.EnableEvents = False .worksheets("Feuil1").Range("A1") = SonNom Application.EnableEvents = True end With
Salutations!
"xavier" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
merci
Bonjour,
Voici une solution
Sub fname()
Cells(1, 1) = ActiveWorkbook.FullName
Cells(2, 1) = ActiveWorkbook.Name
End Sub
Olivier
merci de ta réponse, mais je ne souhaite pas ouvrir le fichier à partir d'une
macro, je fait l'ouverture normale du fichier à partir d'excel ou du poste de
travail et c'est lors de cette ouverture que je souhiaterais stocker dans une
cellule le nom du fichier
"MichDenis" wrote:
Bonjour Xavier,
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement
Workbooks.open "C:Exceltoto.xls"
'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom"
'Tu enlèves l'extension du nom du fichier
SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook
Application.EnableEvents = False
.worksheets("Feuil1").Range("A1") = SonNom
Application.EnableEvents = True
end With
Salutations!
"xavier" <xavier@discussions.microsoft.com> a écrit dans le message de news:
59AE9238-CCA3-4128-AE30-BD57FA45C21C@microsoft.com...
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et
pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
Sub fname() Cells(1, 1) = ActiveWorkbook.FullName Cells(2, 1) = ActiveWorkbook.Name End Sub
Olivier
merci de ta réponse, mais je ne souhaite pas ouvrir le fichier à partir d'une macro, je fait l'ouverture normale du fichier à partir d'excel ou du poste de travail et c'est lors de cette ouverture que je souhiaterais stocker dans une cellule le nom du fichier
"MichDenis" wrote:
Bonjour Xavier,
'Pour ouvrir le classeur de ton choix - modifie le chemin selon ton environnement Workbooks.open "C:Exceltoto.xls" 'Tu places le nom du fichier que tu viens d'ouvrir dans une variable "SonNom" 'Tu enlèves l'extension du nom du fichier SonNom = left(activeworkbook.name,Len(activeworkbook.name)-4)
Si tu veux copier le nom dans le classeur (Feuil1) où est écrit la macro
With thisworkbook Application.EnableEvents = False .worksheets("Feuil1").Range("A1") = SonNom Application.EnableEvents = True end With
Salutations!
"xavier" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir utiliser le nom du fichier ouvert pour ma macro et pour cela je voudrais le stocker dans une cellule comment puis-je faire?
ex j'ouvre toto.xls et dans ma cellule a1 je veux retrouver la valeur "toto"
