Bonjour !
Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier
contenant ce fichier dans des variables.
Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom.
Exxmple :
j'ai le fichier "toto.xls" stocké dans "C:\Dossier\Second Dossier".
Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
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
patrick
Bonjour
pour le chemin monChemin = ActiveWorkbook.path pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+ patrick
"tictok" a écrit dans le message news:
Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer de nouveaux fichiers dans le meme dossier et commencant par le meme nom. Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom "toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
Bonjour
pour le chemin monChemin = ActiveWorkbook.path
pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+
patrick
"tictok" <nomail@yet.com> a écrit dans le message news:
eR2EuIBPEHA.1348@TK2MSFTNGP12.phx.gbl...
Bonjour !
Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier
contenant ce fichier dans des variables.
Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom.
Exxmple :
j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier".
Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
pour le chemin monChemin = ActiveWorkbook.path pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+ patrick
"tictok" a écrit dans le message news:
Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer de nouveaux fichiers dans le meme dossier et commencant par le meme nom. Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom "toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
michdenis
Bonjour Tictok,
La fonction Split requiert Excel 2000 ou plus récent '------------------ Sub Chemin_Et_Fichier()
Dim CheminFichier As String Dim Chemin As String Dim Fichier As String
"tictok" a écrit dans le message de news: Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer de nouveaux fichiers dans le meme dossier et commencant par le meme nom. Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom "toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
Bonjour Tictok,
La fonction Split requiert Excel 2000 ou plus récent
'------------------
Sub Chemin_Et_Fichier()
Dim CheminFichier As String
Dim Chemin As String
Dim Fichier As String
"tictok" <nomail@yet.com> a écrit dans le message de news:eR2EuIBPEHA.1348@TK2MSFTNGP12.phx.gbl...
Bonjour !
Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier
contenant ce fichier dans des variables.
Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom.
Exxmple :
j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier".
Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
"tictok" a écrit dans le message de news: Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer de nouveaux fichiers dans le meme dossier et commencant par le meme nom. Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom "toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
tictok
Merci Patrick pour ta reponse, c'etait simple en fait. Je vais essayer de trouver la facon d'enlever le ".xls" du nom du fichier. Merci encore !
"patrick" escreveu na mensagem news:c8affg$ig7$
Bonjour
pour le chemin monChemin = ActiveWorkbook.path pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+ patrick
"tictok" a écrit dans le message news:
Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom. Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom "toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
Merci Patrick pour ta reponse, c'etait simple en fait.
Je vais essayer de trouver la facon d'enlever le ".xls" du nom du fichier.
Merci encore !
"patrick" <stop_patrick.mathe@libertysurf.fr> escreveu na mensagem
news:c8affg$ig7$1@muguet.sncf.fr...
Bonjour
pour le chemin monChemin = ActiveWorkbook.path
pour le nom nomClasseur = ActiveWorkbook.name ou
ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+
patrick
"tictok" <nomail@yet.com> a écrit dans le message news:
eR2EuIBPEHA.1348@TK2MSFTNGP12.phx.gbl...
Bonjour !
Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier
contenant ce fichier dans des variables.
Car je voudrais les utiliser plus tard dans mon programme pour
enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom.
Exxmple :
j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier".
Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car
il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
Merci Patrick pour ta reponse, c'etait simple en fait. Je vais essayer de trouver la facon d'enlever le ".xls" du nom du fichier. Merci encore !
"patrick" escreveu na mensagem news:c8affg$ig7$
Bonjour
pour le chemin monChemin = ActiveWorkbook.path pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+ patrick
"tictok" a écrit dans le message news:
Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom. Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom "toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
patrick
Re
pour recupérer le nom du classeur sans son extension tu peux essayer nomDuClasseur = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
@+ patrick
"tictok" a écrit dans le message news: #
Merci Patrick pour ta reponse, c'etait simple en fait. Je vais essayer de trouver la facon d'enlever le ".xls" du nom du fichier. Merci encore !
"patrick" escreveu na mensagem news:c8affg$ig7$
Bonjour
pour le chemin monChemin = ActiveWorkbook.path pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+ patrick
"tictok" a écrit dans le message news:
Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom.
Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
Re
pour recupérer le nom du classeur sans son extension
tu peux essayer
nomDuClasseur = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
@+
patrick
"tictok" <nomail@yet.com> a écrit dans le message news:
#S0NFbBPEHA.2704@TK2MSFTNGP10.phx.gbl...
Merci Patrick pour ta reponse, c'etait simple en fait.
Je vais essayer de trouver la facon d'enlever le ".xls" du nom du fichier.
Merci encore !
"patrick" <stop_patrick.mathe@libertysurf.fr> escreveu na mensagem
news:c8affg$ig7$1@muguet.sncf.fr...
Bonjour
pour le chemin monChemin = ActiveWorkbook.path
pour le nom nomClasseur = ActiveWorkbook.name ou
ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+
patrick
"tictok" <nomail@yet.com> a écrit dans le message news:
eR2EuIBPEHA.1348@TK2MSFTNGP12.phx.gbl...
Bonjour !
Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier
contenant ce fichier dans des variables.
Car je voudrais les utiliser plus tard dans mon programme pour
enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme
nom.
Exxmple :
j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier".
Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour
nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car
il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
pour recupérer le nom du classeur sans son extension tu peux essayer nomDuClasseur = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
@+ patrick
"tictok" a écrit dans le message news: #
Merci Patrick pour ta reponse, c'etait simple en fait. Je vais essayer de trouver la facon d'enlever le ".xls" du nom du fichier. Merci encore !
"patrick" escreveu na mensagem news:c8affg$ig7$
Bonjour
pour le chemin monChemin = ActiveWorkbook.path pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+ patrick
"tictok" a écrit dans le message news:
Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom.
Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
tictok
Ca marche parfaitement :).
"patrick" escreveu na mensagem news:c8agst$j86$
Re
pour recupérer le nom du classeur sans son extension tu peux essayer nomDuClasseur = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
@+ patrick
"tictok" a écrit dans le message news: #
Merci Patrick pour ta reponse, c'etait simple en fait. Je vais essayer de trouver la facon d'enlever le ".xls" du nom du fichier.
Merci encore !
"patrick" escreveu na mensagem news:c8affg$ig7$
Bonjour
pour le chemin monChemin = ActiveWorkbook.path pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+ patrick
"tictok" a écrit dans le message news:
Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom.
Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car
il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
Ca marche parfaitement :).
"patrick" <stop_patrick.mathe@libertysurf.fr> escreveu na mensagem
news:c8agst$j86$1@muguet.sncf.fr...
Re
pour recupérer le nom du classeur sans son extension
tu peux essayer
nomDuClasseur = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
@+
patrick
"tictok" <nomail@yet.com> a écrit dans le message news:
#S0NFbBPEHA.2704@TK2MSFTNGP10.phx.gbl...
Merci Patrick pour ta reponse, c'etait simple en fait.
Je vais essayer de trouver la facon d'enlever le ".xls" du nom du
fichier.
Merci encore !
"patrick" <stop_patrick.mathe@libertysurf.fr> escreveu na mensagem
news:c8affg$ig7$1@muguet.sncf.fr...
Bonjour
pour le chemin monChemin = ActiveWorkbook.path
pour le nom nomClasseur = ActiveWorkbook.name ou
ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+
patrick
"tictok" <nomail@yet.com> a écrit dans le message news:
eR2EuIBPEHA.1348@TK2MSFTNGP12.phx.gbl...
Bonjour !
Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier
contenant ce fichier dans des variables.
Car je voudrais les utiliser plus tard dans mon programme pour
enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme
nom.
Exxmple :
j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier".
Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour
nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif
car
il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
pour recupérer le nom du classeur sans son extension tu peux essayer nomDuClasseur = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
@+ patrick
"tictok" a écrit dans le message news: #
Merci Patrick pour ta reponse, c'etait simple en fait. Je vais essayer de trouver la facon d'enlever le ".xls" du nom du fichier.
Merci encore !
"patrick" escreveu na mensagem news:c8affg$ig7$
Bonjour
pour le chemin monChemin = ActiveWorkbook.path pour le nom nomClasseur = ActiveWorkbook.name ou ActiveWorkbook.fullname
mettre un "" entre les deux variables pour que le tout soit valable
@+ patrick
"tictok" a écrit dans le message news:
Bonjour ! Je voudrais recuperer par VBA le nom du fichier ouvert et le dossier contenant ce fichier dans des variables. Car je voudrais les utiliser plus tard dans mon programme pour enregistrer
de nouveaux fichiers dans le meme dossier et commencant par le meme nom.
Exxmple : j'ai le fichier "toto.xls" stocké dans "C:DossierSecond Dossier". Je veux enregistrer les nouveaux fichiers dans ce dossier avec pour nom
"toto_XXX.xls", XXX prenant des valeurs precises (A, B, C, ...).
Quelqu'un pourrait t'il m'aider ?
(Je veux eviter d'utiliser toute manip se servant du dossier actif car
il
suffit que j'ai change ce dossier actif pour que ca ne marche plus.)
