Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure le
"nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure le
"nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure le
"nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" & Sheets("Feuil1").Range("d1")
& ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure
le "nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" & Sheets("Feuil1").Range("d1")
& ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :
Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure
le "nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" & Sheets("Feuil1").Range("d1")
& ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure
le "nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous. Elle
fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille 1
au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" & Sheets("Feuil1").Range("d1")
& ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure
le "nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous. Elle
fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille 1
au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" <i@v> a écrit dans le message de news:
%23FIE7l1OJHA.1164@TK2MSFTNGP03.phx.gbl...
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" & Sheets("Feuil1").Range("d1")
& ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :
Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure
le "nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous. Elle
fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille 1
au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" & Sheets("Feuil1").Range("d1")
& ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée, figure
le "nom d'un client". Je souhaite que ce nom de client soit le nom de mon
fichier Excel, et celà de façon automatique. Comment faire ?
bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille
1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire ?
bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille
1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" <i@v> a écrit dans le message de news:
%23FIE7l1OJHA.1164@TK2MSFTNGP03.phx.gbl...
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :
Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire ?
bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille
1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire ?
oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille
1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire ?
oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
OF6gAK4OJHA.200@TK2MSFTNGP03.phx.gbl...
bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille
1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" <i@v> a écrit dans le message de news:
%23FIE7l1OJHA.1164@TK2MSFTNGP03.phx.gbl...
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :
Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire ?
oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la feuille
1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire ?
voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire
?
voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :
oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
OF6gAK4OJHA.200@TK2MSFTNGP03.phx.gbl...
bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" <i@v> a écrit dans le message de news:
%23FIE7l1OJHA.1164@TK2MSFTNGP03.phx.gbl...
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :
Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire
?
voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire
?
Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" a écrit dans le message de news:voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire
?
Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
unS83o4OJHA.200@TK2MSFTNGP03.phx.gbl...
voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :
oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
OF6gAK4OJHA.200@TK2MSFTNGP03.phx.gbl...
bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" <i@v> a écrit dans le message de news:
%23FIE7l1OJHA.1164@TK2MSFTNGP03.phx.gbl...
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :
Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire
?
Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" a écrit dans le message de news:voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit le
nom de mon fichier Excel, et celà de façon automatique. Comment faire
?
bonjour JBF,
y a t'il un message d'erreur ?
isabelle
JBF a écrit :Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" a écrit dans le message de news:voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="",
_
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit
le nom de mon fichier Excel, et celà de façon automatique. Comment
faire ?
bonjour JBF,
y a t'il un message d'erreur ?
isabelle
JBF a écrit :
Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
unS83o4OJHA.200@TK2MSFTNGP03.phx.gbl...
voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :
oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
OF6gAK4OJHA.200@TK2MSFTNGP03.phx.gbl...
bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" <i@v> a écrit dans le message de news:
%23FIE7l1OJHA.1164@TK2MSFTNGP03.phx.gbl...
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="",
_
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :
Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit
le nom de mon fichier Excel, et celà de façon automatique. Comment
faire ?
bonjour JBF,
y a t'il un message d'erreur ?
isabelle
JBF a écrit :Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" a écrit dans le message de news:voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="",
_
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit
le nom de mon fichier Excel, et celà de façon automatique. Comment
faire ?
Autant pour moi.
Il n'y a pas de message d'erreur. L'erreur c'est moi qui l'ai générée en
faisant un mauvais copié collé! dsl.
merci de ton aide.
J'ai posté un nouveau message pour faire quasiment la même chose que ce que
tu viens de me donner comme solution mais cette fois pour imprimer en .PDF
en fonction du contenu de deux cellules mais cette fois sans modifier le nom
du fichier. J'ai essayé de remplacer "SAVE.AS" par "PRINT" ou "PRINTOUT.
Merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
y a t'il un message d'erreur ?
isabelle
JBF a écrit :Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" a écrit dans le message de news:voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="",
_
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit
le nom de mon fichier Excel, et celà de façon automatique. Comment
faire ?
Autant pour moi.
Il n'y a pas de message d'erreur. L'erreur c'est moi qui l'ai générée en
faisant un mauvais copié collé! dsl.
merci de ton aide.
J'ai posté un nouveau message pour faire quasiment la même chose que ce que
tu viens de me donner comme solution mais cette fois pour imprimer en .PDF
en fonction du contenu de deux cellules mais cette fois sans modifier le nom
du fichier. J'ai essayé de remplacer "SAVE.AS" par "PRINT" ou "PRINTOUT.
Merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
ONs4lrOPJHA.5080@TK2MSFTNGP03.phx.gbl...
bonjour JBF,
y a t'il un message d'erreur ?
isabelle
JBF a écrit :
Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
unS83o4OJHA.200@TK2MSFTNGP03.phx.gbl...
voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :
oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" <i@v> a écrit dans le message de news:
OF6gAK4OJHA.200@TK2MSFTNGP03.phx.gbl...
bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :
Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" <i@v> a écrit dans le message de news:
%23FIE7l1OJHA.1164@TK2MSFTNGP03.phx.gbl...
bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="",
_
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :
Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit
le nom de mon fichier Excel, et celà de façon automatique. Comment
faire ?
Autant pour moi.
Il n'y a pas de message d'erreur. L'erreur c'est moi qui l'ai générée en
faisant un mauvais copié collé! dsl.
merci de ton aide.
J'ai posté un nouveau message pour faire quasiment la même chose que ce que
tu viens de me donner comme solution mais cette fois pour imprimer en .PDF
en fonction du contenu de deux cellules mais cette fois sans modifier le nom
du fichier. J'ai essayé de remplacer "SAVE.AS" par "PRINT" ou "PRINTOUT.
Merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
y a t'il un message d'erreur ?
isabelle
JBF a écrit :Bonjour Isabelle,
Cette macro ne marche pas. La cause est peut être qu'il y a plusieurs
documents dans le dossier DEVIS qui contiennent tous un onglet "Ne pas
ouvrir".
Merci
JBF
"isabelle" a écrit dans le message de news:voilà la modification :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevis" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range("
D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
JBF a écrit :oui :
Sub nom_du_devis()
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsJBFMes
documentsPOLLUANTSClientsDevisComplet.xls" & Sheets("Ne pas
ouvrir").Range("A2") & " devis diagnostic" & Sheets("Ne pas
ouvrir").Range(" D2") & ".xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
merci
JBF
"isabelle" a écrit dans le message de news:bonjour JBF,
peut tu me montrer ta macro ?
isabelle
JBF a écrit :Bonsoir Isabelle,
Je me permets de reprendre cette conversation.
Je cherchais exactement la macro que tu viens de proposer ci-dessous.
Elle fonctionne mais...
Juste un problème. Elle ajoute le contenu de la cellule D1 de la
feuille 1 au nom du fichier déjà existant.
Concrètement mon fichier s'appelle COMPLET.xls avec ta macro ça donne
"COMPLET.xls823 devis".
J'aimerai bien faire disparaître "COMPLET.xls" et laisser 823 devis.
Est-ce possible?
"isabelle" a écrit dans le message de news:
%bonjour PLEMEAU,
Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:zaza" &
Sheets("Feuil1").Range("d1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="",
_
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
isabelle
PLEMEAU a écrit :Dans un onglet de fichier Excel, dans une cellule bien identifiée,
figure le "nom d'un client". Je souhaite que ce nom de client soit
le nom de mon fichier Excel, et celà de façon automatique. Comment
faire ?