OVH Cloud OVH Cloud

Classeur Perso

3 réponses
Avatar
Guy BRUSSON
Bonjour à tous,

Apres multiples manipulations avec les Macro je me retrouve a ouvrir un
classeur nomé PERSO comment faire pour le détruire.

de plus cette Macro ne ferme Pas la fenetre Macro en fin de parcour pourqoui
???


Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
' Macro enregistrée le 24/01/2006 par AGBFGB

Range("I14").Select
NumFact = ActiveCell

Range("E8").Select
NomClient = ActiveCell


Application.CutCopyMode = False
ChDir "C:\laura Evasion\Facture"
ActiveWorkbook.SaveAs Filename:= _
"C:\laura Evasion\SauveFacture\Fact " & NumFact & " " & NomClient &
" .xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Goto Reference:="SauvegardeFacture"

Workbooks.Open Filename:="C:\Laura Evasion\Facture\Facture Laura.xls"
Windows("Fact " & NumFact & " " & NomClient & " .xls").Activate
ActiveWorkbook.Close

Windows("Facture Laura.xls").Activate
ActiveWorkbook.Close

End Sub


Que manque t-il pour fermer la fenetre VB a la Fin


--
Amicalement et merci

3 réponses

Avatar
Daniel
Bonjour.
Pourquoi veux-tu supprimer ton classeur de macros personnelles ? Si c'est le
cas, après avoir fermé ce classeur, fais une recherche dans l'explorer sur
perso.xls et supprime-le.
Si tu exécutes une macro dans la fenêtre VBE, celle-ci ne se ferme point à
la fin de la macro. Elle (la fenêtre) sert essentiellement au développement
d'applications. Les macros sont normalement exécutées dans Excel.
Cordialement.
Daniel
"Guy BRUSSON" <BGUY> a écrit dans le message de news:

Bonjour à tous,

Apres multiples manipulations avec les Macro je me retrouve a ouvrir un
classeur nomé PERSO comment faire pour le détruire.

de plus cette Macro ne ferme Pas la fenetre Macro en fin de parcour
pourqoui
???


Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
' Macro enregistrée le 24/01/2006 par AGBFGB

Range("I14").Select
NumFact = ActiveCell

Range("E8").Select
NomClient = ActiveCell


Application.CutCopyMode = False
ChDir "C:laura EvasionFacture"
ActiveWorkbook.SaveAs Filename:= _
"C:laura EvasionSauveFactureFact " & NumFact & " " & NomClient &
" .xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Application.Goto Reference:="SauvegardeFacture"

Workbooks.Open Filename:="C:Laura EvasionFactureFacture
Laura.xls"
Windows("Fact " & NumFact & " " & NomClient & " .xls").Activate
ActiveWorkbook.Close

Windows("Facture Laura.xls").Activate
ActiveWorkbook.Close

End Sub


Que manque t-il pour fermer la fenetre VB a la Fin


--
Amicalement et merci


Avatar
Guy BRUSSON
Bonjour Daniel et merci

Effectivement je veux faire disparaitre le Perso.Xls et j'ai effectuer une
recherhe mais il ne le trouve Pas.

De plus ma macro est activée par un bouton (comme les autres macros mais
celle-ci perciste a ouvrir la fenetre VB et surtout a ne pas la Fermer
--
Amicalement et merci



Bonjour.
Pourquoi veux-tu supprimer ton classeur de macros personnelles ? Si c'est le
cas, après avoir fermé ce classeur, fais une recherche dans l'explorer sur
perso.xls et supprime-le.
Si tu exécutes une macro dans la fenêtre VBE, celle-ci ne se ferme point à
la fin de la macro. Elle (la fenêtre) sert essentiellement au développement
d'applications. Les macros sont normalement exécutées dans Excel.
Cordialement.
Daniel
"Guy BRUSSON" <BGUY> a écrit dans le message de news:

Bonjour à tous,

Apres multiples manipulations avec les Macro je me retrouve a ouvrir un
classeur nomé PERSO comment faire pour le détruire.

de plus cette Macro ne ferme Pas la fenetre Macro en fin de parcour
pourqoui
???


Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
' Macro enregistrée le 24/01/2006 par AGBFGB

Range("I14").Select
NumFact = ActiveCell

Range("E8").Select
NomClient = ActiveCell


Application.CutCopyMode = False
ChDir "C:laura EvasionFacture"
ActiveWorkbook.SaveAs Filename:= _
"C:laura EvasionSauveFactureFact " & NumFact & " " & NomClient &
" .xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Application.Goto Reference:="SauvegardeFacture"

Workbooks.Open Filename:="C:Laura EvasionFactureFacture
Laura.xls"
Windows("Fact " & NumFact & " " & NomClient & " .xls").Activate
ActiveWorkbook.Close

Windows("Facture Laura.xls").Activate
ActiveWorkbook.Close

End Sub


Que manque t-il pour fermer la fenetre VB a la Fin


--
Amicalement et merci







Avatar
Daniel
Le mien se trouve dans le répertoire :
C:Documents and SettingsDanielApplication DataMicrosoftExcelXLSTART
(XP, XL2003fr).
Daniel
"Guy BRUSSON" <BGUY> a écrit dans le message de news:

Bonjour Daniel et merci

Effectivement je veux faire disparaitre le Perso.Xls et j'ai effectuer une
recherhe mais il ne le trouve Pas.

De plus ma macro est activée par un bouton (comme les autres macros mais
celle-ci perciste a ouvrir la fenetre VB et surtout a ne pas la Fermer
--
Amicalement et merci



Bonjour.
Pourquoi veux-tu supprimer ton classeur de macros personnelles ? Si c'est
le
cas, après avoir fermé ce classeur, fais une recherche dans l'explorer
sur
perso.xls et supprime-le.
Si tu exécutes une macro dans la fenêtre VBE, celle-ci ne se ferme point
à
la fin de la macro. Elle (la fenêtre) sert essentiellement au
développement
d'applications. Les macros sont normalement exécutées dans Excel.
Cordialement.
Daniel
"Guy BRUSSON" <BGUY> a écrit dans le message de news:

Bonjour à tous,

Apres multiples manipulations avec les Macro je me retrouve a ouvrir un
classeur nomé PERSO comment faire pour le détruire.

de plus cette Macro ne ferme Pas la fenetre Macro en fin de parcour
pourqoui
???


Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
' Macro enregistrée le 24/01/2006 par AGBFGB

Range("I14").Select
NumFact = ActiveCell

Range("E8").Select
NomClient = ActiveCell


Application.CutCopyMode = False
ChDir "C:laura EvasionFacture"
ActiveWorkbook.SaveAs Filename:= _
"C:laura EvasionSauveFactureFact " & NumFact & " " &
NomClient &
" .xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Application.Goto Reference:="SauvegardeFacture"

Workbooks.Open Filename:="C:Laura EvasionFactureFacture
Laura.xls"
Windows("Fact " & NumFact & " " & NomClient & " .xls").Activate
ActiveWorkbook.Close

Windows("Facture Laura.xls").Activate
ActiveWorkbook.Close

End Sub


Que manque t-il pour fermer la fenetre VB a la Fin


--
Amicalement et merci