Je voudrai savoir s'il est possible de modifier le nom
d'un fichiers Excel ("nomdufichier.xls" en "XX-
nomdufichier.xls") en fonction du contenu d'une cellule
Merci de votre aide
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
Vincent.
'lut Vi vi, c possib'... Mais il faut passer par une macro. Est- ce gênant pour ton cas ?
Sinon, dans le module Workbook.BeforeSave de thisworkbook, il faut utiliser qqchose comme : thisworkbook.saveas thisworkbook.path & "" & range ("A1").value & "-" & thisworkbook.name
Pour plus de précision, revenir faire un tour dans le coin ;-)
-----Message d'origine----- Bonjour ,
Je voudrai savoir s'il est possible de modifier le nom d'un fichiers Excel ("nomdufichier.xls" en "XX- nomdufichier.xls") en fonction du contenu d'une cellule Merci de votre aide .
'lut
Vi vi, c possib'... Mais il faut passer par une macro. Est-
ce gênant pour ton cas ?
Sinon, dans le module Workbook.BeforeSave de thisworkbook,
il faut utiliser qqchose comme :
thisworkbook.saveas thisworkbook.path & "" & range
("A1").value & "-" & thisworkbook.name
Pour plus de précision, revenir faire un tour dans le
coin ;-)
-----Message d'origine-----
Bonjour ,
Je voudrai savoir s'il est possible de modifier le nom
d'un fichiers Excel ("nomdufichier.xls" en "XX-
nomdufichier.xls") en fonction du contenu d'une cellule
Merci de votre aide
.
'lut Vi vi, c possib'... Mais il faut passer par une macro. Est- ce gênant pour ton cas ?
Sinon, dans le module Workbook.BeforeSave de thisworkbook, il faut utiliser qqchose comme : thisworkbook.saveas thisworkbook.path & "" & range ("A1").value & "-" & thisworkbook.name
Pour plus de précision, revenir faire un tour dans le coin ;-)
-----Message d'origine----- Bonjour ,
Je voudrai savoir s'il est possible de modifier le nom d'un fichiers Excel ("nomdufichier.xls" en "XX- nomdufichier.xls") en fonction du contenu d'une cellule Merci de votre aide .
FabAur
Tout d'abord merci pour ta réponse . Comme tu l'as dit , les macro posent un problème pour moi pourrai-tu me donner plus d'explication ? Merci d'avance
Tout d'abord merci pour ta réponse .
Comme tu l'as dit , les macro posent un problème pour moi
pourrai-tu me donner plus d'explication ?
Merci d'avance
Tout d'abord merci pour ta réponse . Comme tu l'as dit , les macro posent un problème pour moi pourrai-tu me donner plus d'explication ? Merci d'avance
Philippe.R
Bonjour,
La cellule dans laquelle figure la chaîne à ajouter au nom est supposée nommée : debnom
Par la combinaison de touches Alt+F11, tu ouvres l'éditeur VBA
Dans la fenêtre située en haut à gauche, tu repères le nom de ton fichier, tu le sélectionne et par clic droit / insertion module, tu y ajoute un module ordinaire dans lequel tu colles le code ci dessous :
Sub modifnom() 'MPFE le 26/10/2003 par Philippe.R Dim lenom1 As String, lenom2 As String, lechem As String lenom1 = ThisWorkbook.Name lenom2 = [debnom] & "_" & lenom1 lechem = ThisWorkbook.Path ActiveWorkbook.SaveAs Filename:= _ lechem & "" & lenom2 _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse End Sub
Tu pourras alors l'exécuter depuis le menu outils / macro ou bien y associer un bouton ou bien un raccourci clavier ou encore de manière automatique en liaison avec un évènement de la feuille ou du classeur. -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"FabAur" a écrit dans le message de news:061e01c39971$7aaf2a40$ Tout d'abord merci pour ta réponse . Comme tu l'as dit , les macro posent un problème pour moi pourrai-tu me donner plus d'explication ? Merci d'avance
Bonjour,
La cellule dans laquelle figure la chaîne à ajouter au nom est supposée nommée : debnom
Par la combinaison de touches Alt+F11, tu ouvres l'éditeur VBA
Dans la fenêtre située en haut à gauche, tu repères le nom de ton fichier, tu le sélectionne et par clic
droit / insertion module, tu y ajoute un module ordinaire dans lequel tu colles le code ci dessous :
Sub modifnom()
'MPFE le 26/10/2003 par Philippe.R
Dim lenom1 As String, lenom2 As String, lechem As String
lenom1 = ThisWorkbook.Name
lenom2 = [debnom] & "_" & lenom1
lechem = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:= _
lechem & "" & lenom2 _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
Tu pourras alors l'exécuter depuis le menu outils / macro ou bien y associer un bouton ou bien un
raccourci clavier ou encore de manière automatique en liaison avec un évènement de la feuille ou du
classeur.
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"FabAur" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:061e01c39971$7aaf2a40$a001280a@phx.gbl...
Tout d'abord merci pour ta réponse .
Comme tu l'as dit , les macro posent un problème pour moi
pourrai-tu me donner plus d'explication ?
Merci d'avance
La cellule dans laquelle figure la chaîne à ajouter au nom est supposée nommée : debnom
Par la combinaison de touches Alt+F11, tu ouvres l'éditeur VBA
Dans la fenêtre située en haut à gauche, tu repères le nom de ton fichier, tu le sélectionne et par clic droit / insertion module, tu y ajoute un module ordinaire dans lequel tu colles le code ci dessous :
Sub modifnom() 'MPFE le 26/10/2003 par Philippe.R Dim lenom1 As String, lenom2 As String, lechem As String lenom1 = ThisWorkbook.Name lenom2 = [debnom] & "_" & lenom1 lechem = ThisWorkbook.Path ActiveWorkbook.SaveAs Filename:= _ lechem & "" & lenom2 _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse End Sub
Tu pourras alors l'exécuter depuis le menu outils / macro ou bien y associer un bouton ou bien un raccourci clavier ou encore de manière automatique en liaison avec un évènement de la feuille ou du classeur. -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"FabAur" a écrit dans le message de news:061e01c39971$7aaf2a40$ Tout d'abord merci pour ta réponse . Comme tu l'as dit , les macro posent un problème pour moi pourrai-tu me donner plus d'explication ? Merci d'avance
