Bonjour,
ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et
ca ne marche qu'aléatoirement.
Si quelqu'un pouvait me dire pourquoi.
d'avance merci
Cordialement
Patrick
Sub workbook_open()
Dim Chemin
Dim datefich
Dim mois
Dim an
datefich = Date
Application.DisplayAlerts = False
Chemin = ActiveWorkbook.Path
an = CStr(Year(datefich))
mois = CStr(Month(datefich))
datefich = an & "-" & mois '
If Dir(Chemin & "\" & datefich & ".xls") = datefich & ".xls" Then
Workbooks.Open Filename:=(Chemin & "\" & datefich & ".xls")
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
auto_open
End If
Bonjour, Qu'est-ce qui fonctionne mal ? l'ouverture du fichier existant ou la création du fichier ? Cordialement. Daniel
Bonjour, ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et ca ne marche qu'aléatoirement. Si quelqu'un pouvait me dire pourquoi. d'avance merci Cordialement Patrick
Sub workbook_open() Dim Chemin Dim datefich Dim mois Dim an datefich = Date Application.DisplayAlerts = False Chemin = ActiveWorkbook.Path an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls") Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show auto_open End If
MsgBox "le fichier " & datefich & " a été créer" Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show End If
End Sub
Bonjour,
Qu'est-ce qui fonctionne mal ? l'ouverture du fichier existant ou la
création du fichier ?
Cordialement.
Daniel
Bonjour,
ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et
ca ne marche qu'aléatoirement.
Si quelqu'un pouvait me dire pourquoi.
d'avance merci
Cordialement
Patrick
Sub workbook_open()
Dim Chemin
Dim datefich
Dim mois
Dim an
datefich = Date
Application.DisplayAlerts = False
Chemin = ActiveWorkbook.Path
an = CStr(Year(datefich))
mois = CStr(Month(datefich))
datefich = an & "-" & mois '
If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then
Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls")
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
auto_open
End If
Bonjour, Qu'est-ce qui fonctionne mal ? l'ouverture du fichier existant ou la création du fichier ? Cordialement. Daniel
Bonjour, ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et ca ne marche qu'aléatoirement. Si quelqu'un pouvait me dire pourquoi. d'avance merci Cordialement Patrick
Sub workbook_open() Dim Chemin Dim datefich Dim mois Dim an datefich = Date Application.DisplayAlerts = False Chemin = ActiveWorkbook.Path an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls") Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show auto_open End If
MsgBox "le fichier " & datefich & " a été créer" Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show End If
End Sub
Patrick Leguet
Bonjour et merci de te pencher sur ce cas. Lors de la premiere ouverture, création du fichier (Le but etant de créer un fichier chaque mois pour une appli de caisse enregistreuse) lors de la 2ème ouverture ouverture normale du fichier précédement créé lors de la 3ème ouverture, ca bloque sur cette ligne Chemin = ActiveWorkbook.Path le chemin est vide! Voila cordialement Patrick
"DanielCo" a écrit dans le message de news: k7qfqb$c1d$
Bonjour, Qu'est-ce qui fonctionne mal ? l'ouverture du fichier existant ou la création du fichier ? Cordialement. Daniel
Bonjour, ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et ca ne marche qu'aléatoirement. Si quelqu'un pouvait me dire pourquoi. d'avance merci Cordialement Patrick
Sub workbook_open() Dim Chemin Dim datefich Dim mois Dim an datefich = Date Application.DisplayAlerts = False Chemin = ActiveWorkbook.Path an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls") Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show auto_open End If
MsgBox "le fichier " & datefich & " a été créer" Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show End If
End Sub
Bonjour et merci de te pencher sur ce cas.
Lors de la premiere ouverture, création du fichier (Le but etant de créer un
fichier chaque mois pour une appli de caisse enregistreuse)
lors de la 2ème ouverture ouverture normale du fichier précédement créé
lors de la 3ème ouverture, ca bloque sur cette ligne
Chemin = ActiveWorkbook.Path
le chemin est vide!
Voila
cordialement
Patrick
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
k7qfqb$c1d$1@speranza.aioe.org...
Bonjour,
Qu'est-ce qui fonctionne mal ? l'ouverture du fichier existant ou la
création du fichier ?
Cordialement.
Daniel
Bonjour,
ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas
et
ca ne marche qu'aléatoirement.
Si quelqu'un pouvait me dire pourquoi.
d'avance merci
Cordialement
Patrick
Sub workbook_open()
Dim Chemin
Dim datefich
Dim mois
Dim an
datefich = Date
Application.DisplayAlerts = False
Chemin = ActiveWorkbook.Path
an = CStr(Year(datefich))
mois = CStr(Month(datefich))
datefich = an & "-" & mois '
If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then
Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls")
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
auto_open
End If
Bonjour et merci de te pencher sur ce cas. Lors de la premiere ouverture, création du fichier (Le but etant de créer un fichier chaque mois pour une appli de caisse enregistreuse) lors de la 2ème ouverture ouverture normale du fichier précédement créé lors de la 3ème ouverture, ca bloque sur cette ligne Chemin = ActiveWorkbook.Path le chemin est vide! Voila cordialement Patrick
"DanielCo" a écrit dans le message de news: k7qfqb$c1d$
Bonjour, Qu'est-ce qui fonctionne mal ? l'ouverture du fichier existant ou la création du fichier ? Cordialement. Daniel
Bonjour, ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et ca ne marche qu'aléatoirement. Si quelqu'un pouvait me dire pourquoi. d'avance merci Cordialement Patrick
Sub workbook_open() Dim Chemin Dim datefich Dim mois Dim an datefich = Date Application.DisplayAlerts = False Chemin = ActiveWorkbook.Path an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls") Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show auto_open End If
MsgBox "le fichier " & datefich & " a été créer" Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show End If
End Sub
DanielCo
Remplace la ligne par : Chemin = ThisWorkbook.Path Daniel
Bonjour et merci de te pencher sur ce cas. Lors de la premiere ouverture, création du fichier (Le but etant de créer un fichier chaque mois pour une appli de caisse enregistreuse) lors de la 2ème ouverture ouverture normale du fichier précédement créé lors de la 3ème ouverture, ca bloque sur cette ligne Chemin = ActiveWorkbook.Path le chemin est vide! Voila cordialement Patrick
Remplace la ligne par :
Chemin = ThisWorkbook.Path
Daniel
Bonjour et merci de te pencher sur ce cas.
Lors de la premiere ouverture, création du fichier (Le but etant de créer
un fichier chaque mois pour une appli de caisse enregistreuse)
lors de la 2ème ouverture ouverture normale du fichier précédement créé
lors de la 3ème ouverture, ca bloque sur cette ligne
Chemin = ActiveWorkbook.Path
le chemin est vide!
Voila
cordialement
Patrick
Remplace la ligne par : Chemin = ThisWorkbook.Path Daniel
Bonjour et merci de te pencher sur ce cas. Lors de la premiere ouverture, création du fichier (Le but etant de créer un fichier chaque mois pour une appli de caisse enregistreuse) lors de la 2ème ouverture ouverture normale du fichier précédement créé lors de la 3ème ouverture, ca bloque sur cette ligne Chemin = ActiveWorkbook.Path le chemin est vide! Voila cordialement Patrick
Gloops
A condition que le fichier ait déjà été enregistré.
DanielCo a écrit, le 12/11/2012 11:43 :
Remplace la ligne par : Chemin = ThisWorkbook.Path Daniel
A condition que le fichier ait déjà été enregistré.
DanielCo a écrit, le 12/11/2012 11:43 :
Remplace la ligne par :
Chemin = ThisWorkbook.Path
Daniel
A condition que le fichier ait déjà été enregistré.
DanielCo a écrit, le 12/11/2012 11:43 :
Remplace la ligne par : Chemin = ThisWorkbook.Path Daniel
Patrick Leguet
Merci a vous, mais ca ne marche pas! tjs les memes syymptomes a+ patrick
"Gloops" a écrit dans le message de news: k7r8gj$66l$ A condition que le fichier ait déjà été enregistré.
DanielCo a écrit, le 12/11/2012 11:43 :
Remplace la ligne par : Chemin = ThisWorkbook.Path Daniel
Merci a vous,
mais ca ne marche pas!
tjs les memes syymptomes
a+
patrick
"Gloops" <gloops@zailes.invalid.org> a écrit dans le message de news:
k7r8gj$66l$1@nntp.pasdenom.info...
A condition que le fichier ait déjà été enregistré.
DanielCo a écrit, le 12/11/2012 11:43 :
Remplace la ligne par :
Chemin = ThisWorkbook.Path
Daniel
Merci a vous, mais ca ne marche pas! tjs les memes syymptomes a+ patrick
"Gloops" a écrit dans le message de news: k7r8gj$66l$ A condition que le fichier ait déjà été enregistré.
DanielCo a écrit, le 12/11/2012 11:43 :
Remplace la ligne par : Chemin = ThisWorkbook.Path Daniel
Gloops
Est-ce vrai que le fichier a déjà été enregistré ? Mais pourquoi vouloir le créer, alors ?
_____________________________________________ Patrick Leguet a écrit, le 12/11/2012 20:24 :
Merci a vous, mais ca ne marche pas! tjs les memes syymptomes a+ patrick
"Gloops" a écrit dans le message de news: k7r8gj$66l$ A condition que le fichier ait déjà été enregistré.
Est-ce vrai que le fichier a déjà été enregistré ?
Mais pourquoi vouloir le créer, alors ?
_____________________________________________
Patrick Leguet a écrit, le 12/11/2012 20:24 :
Merci a vous,
mais ca ne marche pas!
tjs les memes syymptomes
a+
patrick
"Gloops" <gloops@zailes.invalid.org> a écrit dans le message de news:
k7r8gj$66l$1@nntp.pasdenom.info...
A condition que le fichier ait déjà été enregistré.
Est-ce vrai que le fichier a déjà été enregistré ? Mais pourquoi vouloir le créer, alors ?
_____________________________________________ Patrick Leguet a écrit, le 12/11/2012 20:24 :
Merci a vous, mais ca ne marche pas! tjs les memes syymptomes a+ patrick
"Gloops" a écrit dans le message de news: k7r8gj$66l$ A condition que le fichier ait déjà été enregistré.
Patrick Leguet
Bonjour, le but est d'avoir un fichier vierge qui lors de son ouverture verifie que le fichier du mois courant existe et l'ouvre, si le fichier n'existe pas il le cree et l'enregistre. (C'est pour une appli de caisse enreugistreuse) cordialement patrick
"Gloops" a écrit dans le message de news: k7rltf$9c4$ Est-ce vrai que le fichier a déjà été enregistré ? Mais pourquoi vouloir le créer, alors ?
_____________________________________________ Patrick Leguet a écrit, le 12/11/2012 20:24 :
Merci a vous, mais ca ne marche pas! tjs les memes syymptomes a+ patrick
"Gloops" a écrit dans le message de news: k7r8gj$66l$ A condition que le fichier ait déjà été enregistré.
Bonjour,
le but est d'avoir un fichier vierge qui lors de son ouverture verifie que
le fichier du mois courant existe et l'ouvre, si le fichier n'existe pas il
le cree et l'enregistre.
(C'est pour une appli de caisse enreugistreuse)
cordialement
patrick
"Gloops" <gloops@zailes.invalid.org> a écrit dans le message de news:
k7rltf$9c4$1@nntp.pasdenom.info...
Est-ce vrai que le fichier a déjà été enregistré ?
Mais pourquoi vouloir le créer, alors ?
_____________________________________________
Patrick Leguet a écrit, le 12/11/2012 20:24 :
Merci a vous,
mais ca ne marche pas!
tjs les memes syymptomes
a+
patrick
"Gloops" <gloops@zailes.invalid.org> a écrit dans le message de news:
k7r8gj$66l$1@nntp.pasdenom.info...
A condition que le fichier ait déjà été enregistré.
Bonjour, le but est d'avoir un fichier vierge qui lors de son ouverture verifie que le fichier du mois courant existe et l'ouvre, si le fichier n'existe pas il le cree et l'enregistre. (C'est pour une appli de caisse enreugistreuse) cordialement patrick
"Gloops" a écrit dans le message de news: k7rltf$9c4$ Est-ce vrai que le fichier a déjà été enregistré ? Mais pourquoi vouloir le créer, alors ?
_____________________________________________ Patrick Leguet a écrit, le 12/11/2012 20:24 :
Merci a vous, mais ca ne marche pas! tjs les memes syymptomes a+ patrick
"Gloops" a écrit dans le message de news: k7r8gj$66l$ A condition que le fichier ait déjà été enregistré.
Gloops
Alors interroge-toi sur le sens de ActiveWorkbook.Path
_____________________________________________ Patrick Leguet a écrit, le 13/11/2012 05:59 :
Bonjour, le but est d'avoir un fichier vierge qui lors de son ouverture verifie que le fichier du mois courant existe et l'ouvre, si le fichier n'existe pa s il le cree et l'enregistre. (C'est pour une appli de caisse enreugistreuse) cordialement patrick
Alors interroge-toi sur le sens de ActiveWorkbook.Path
_____________________________________________
Patrick Leguet a écrit, le 13/11/2012 05:59 :
Bonjour,
le but est d'avoir un fichier vierge qui lors de son ouverture verifie que
le fichier du mois courant existe et l'ouvre, si le fichier n'existe pa s il
le cree et l'enregistre.
(C'est pour une appli de caisse enreugistreuse)
cordialement
patrick
Alors interroge-toi sur le sens de ActiveWorkbook.Path
_____________________________________________ Patrick Leguet a écrit, le 13/11/2012 05:59 :
Bonjour, le but est d'avoir un fichier vierge qui lors de son ouverture verifie que le fichier du mois courant existe et l'ouvre, si le fichier n'existe pa s il le cree et l'enregistre. (C'est pour une appli de caisse enreugistreuse) cordialement patrick
Jacky
Bonjour, Je pense que...... C'est le serpent qui se mord la queue.... Si le fichier n'existe pas, le code va créer un classeur qui a dans son Thisworkbook le même code que le classeur de lancement 1- Le fichier de lancement doit être indépendant (éventuellement fermé après l'ouverture de classeur de travail) 2- Avant la création du classeur "An-mois" le thisworkbook doit être supprimer. -- Salutations JJ
"Patrick Leguet" a écrit dans le message de news: 50a084f1$0$1968$
Bonjour, ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et ca ne marche qu'aléatoirement. Si quelqu'un pouvait me dire pourquoi. d'avance merci Cordialement Patrick
Sub workbook_open() Dim Chemin Dim datefich Dim mois Dim an datefich = Date Application.DisplayAlerts = False Chemin = ActiveWorkbook.Path an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls") Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show auto_open End If
MsgBox "le fichier " & datefich & " a été créer" Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show End If
End Sub
Bonjour,
Je pense que......
C'est le serpent qui se mord la queue....
Si le fichier n'existe pas, le code va créer un classeur qui a dans son Thisworkbook le même code que le
classeur de lancement
1- Le fichier de lancement doit être indépendant (éventuellement fermé après l'ouverture de classeur de
travail)
2- Avant la création du classeur "An-mois" le thisworkbook doit être supprimer.
--
Salutations
JJ
"Patrick Leguet" <pleguet@free.fr> a écrit dans le message de news: 50a084f1$0$1968$426a74cc@news.free.fr...
Bonjour,
ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et
ca ne marche qu'aléatoirement.
Si quelqu'un pouvait me dire pourquoi.
d'avance merci
Cordialement
Patrick
Sub workbook_open()
Dim Chemin
Dim datefich
Dim mois
Dim an
datefich = Date
Application.DisplayAlerts = False
Chemin = ActiveWorkbook.Path
an = CStr(Year(datefich))
mois = CStr(Month(datefich))
datefich = an & "-" & mois '
If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then
Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls")
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
auto_open
End If
Bonjour, Je pense que...... C'est le serpent qui se mord la queue.... Si le fichier n'existe pas, le code va créer un classeur qui a dans son Thisworkbook le même code que le classeur de lancement 1- Le fichier de lancement doit être indépendant (éventuellement fermé après l'ouverture de classeur de travail) 2- Avant la création du classeur "An-mois" le thisworkbook doit être supprimer. -- Salutations JJ
"Patrick Leguet" a écrit dans le message de news: 50a084f1$0$1968$
Bonjour, ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et ca ne marche qu'aléatoirement. Si quelqu'un pouvait me dire pourquoi. d'avance merci Cordialement Patrick
Sub workbook_open() Dim Chemin Dim datefich Dim mois Dim an datefich = Date Application.DisplayAlerts = False Chemin = ActiveWorkbook.Path an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls") Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show auto_open End If
MsgBox "le fichier " & datefich & " a été créer" Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show End If
End Sub
Jacky
Re.. Comme ceci peut-être '--------------- Sub workbook_open() Dim Chemin As String, Fichier As String Dim datefich Dim mois Dim an datefich = Date 'Application.DisplayAlerts = False Chemin = ThisWorkbook.Path & "" Fichier = ThisWorkbook.Name an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & datefich & ".xls") = datefich & ".xls" Then If Fichier <> datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & datefich & ".xls") Workbooks(Fichier).Close False End If Else MsgBox "le fichier " & Chemin & datefich & " est introuvable! """ ActiveWorkbook.SaveAs Filename:=Chemin & datefich & ".xls" MsgBox "le fichier " & datefich & " a été créer" End If UserForm1.Show 'auto_open End Sub '-----------------
-- Salutations JJ
"Jacky" a écrit dans le message de news: k7ta5b$ud$
Bonjour, Je pense que...... C'est le serpent qui se mord la queue.... Si le fichier n'existe pas, le code va créer un classeur qui a dans son Thisworkbook le même code que le classeur de lancement 1- Le fichier de lancement doit être indépendant (éventuellement fermé après l'ouverture de classeur de travail) 2- Avant la création du classeur "An-mois" le thisworkbook doit être supprimer. -- Salutations JJ
"Patrick Leguet" a écrit dans le message de news: 50a084f1$0$1968$
Bonjour, ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et ca ne marche qu'aléatoirement. Si quelqu'un pouvait me dire pourquoi. d'avance merci Cordialement Patrick
Sub workbook_open() Dim Chemin Dim datefich Dim mois Dim an datefich = Date Application.DisplayAlerts = False Chemin = ActiveWorkbook.Path an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls") Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show auto_open End If
MsgBox "le fichier " & datefich & " a été créer" Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show End If
End Sub
Re..
Comme ceci peut-être
'---------------
Sub workbook_open()
Dim Chemin As String, Fichier As String
Dim datefich
Dim mois
Dim an
datefich = Date
'Application.DisplayAlerts = False
Chemin = ThisWorkbook.Path & ""
Fichier = ThisWorkbook.Name
an = CStr(Year(datefich))
mois = CStr(Month(datefich))
datefich = an & "-" & mois '
If Dir(Chemin & datefich & ".xls") = datefich & ".xls" Then
If Fichier <> datefich & ".xls" Then
Workbooks.Open Filename:=(Chemin & datefich & ".xls")
Workbooks(Fichier).Close False
End If
Else
MsgBox "le fichier " & Chemin & datefich & " est introuvable! """
ActiveWorkbook.SaveAs Filename:=Chemin & datefich & ".xls"
MsgBox "le fichier " & datefich & " a été créer"
End If
UserForm1.Show
'auto_open
End Sub
'-----------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: k7ta5b$ud$1@speranza.aioe.org...
Bonjour,
Je pense que......
C'est le serpent qui se mord la queue....
Si le fichier n'existe pas, le code va créer un classeur qui a dans son Thisworkbook le même code que le
classeur de lancement
1- Le fichier de lancement doit être indépendant (éventuellement fermé après l'ouverture de classeur de
travail)
2- Avant la création du classeur "An-mois" le thisworkbook doit être supprimer.
--
Salutations
JJ
"Patrick Leguet" <pleguet@free.fr> a écrit dans le message de news: 50a084f1$0$1968$426a74cc@news.free.fr...
Bonjour,
ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et
ca ne marche qu'aléatoirement.
Si quelqu'un pouvait me dire pourquoi.
d'avance merci
Cordialement
Patrick
Sub workbook_open()
Dim Chemin
Dim datefich
Dim mois
Dim an
datefich = Date
Application.DisplayAlerts = False
Chemin = ActiveWorkbook.Path
an = CStr(Year(datefich))
mois = CStr(Month(datefich))
datefich = an & "-" & mois '
If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then
Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls")
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
auto_open
End If
Re.. Comme ceci peut-être '--------------- Sub workbook_open() Dim Chemin As String, Fichier As String Dim datefich Dim mois Dim an datefich = Date 'Application.DisplayAlerts = False Chemin = ThisWorkbook.Path & "" Fichier = ThisWorkbook.Name an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & datefich & ".xls") = datefich & ".xls" Then If Fichier <> datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & datefich & ".xls") Workbooks(Fichier).Close False End If Else MsgBox "le fichier " & Chemin & datefich & " est introuvable! """ ActiveWorkbook.SaveAs Filename:=Chemin & datefich & ".xls" MsgBox "le fichier " & datefich & " a été créer" End If UserForm1.Show 'auto_open End Sub '-----------------
-- Salutations JJ
"Jacky" a écrit dans le message de news: k7ta5b$ud$
Bonjour, Je pense que...... C'est le serpent qui se mord la queue.... Si le fichier n'existe pas, le code va créer un classeur qui a dans son Thisworkbook le même code que le classeur de lancement 1- Le fichier de lancement doit être indépendant (éventuellement fermé après l'ouverture de classeur de travail) 2- Avant la création du classeur "An-mois" le thisworkbook doit être supprimer. -- Salutations JJ
"Patrick Leguet" a écrit dans le message de news: 50a084f1$0$1968$
Bonjour, ci dessous ma macro qui doit me creer un fichier si celui ci n'existe pas et ca ne marche qu'aléatoirement. Si quelqu'un pouvait me dire pourquoi. d'avance merci Cordialement Patrick
Sub workbook_open() Dim Chemin Dim datefich Dim mois Dim an datefich = Date Application.DisplayAlerts = False Chemin = ActiveWorkbook.Path an = CStr(Year(datefich)) mois = CStr(Month(datefich)) datefich = an & "-" & mois ' If Dir(Chemin & "" & datefich & ".xls") = datefich & ".xls" Then Workbooks.Open Filename:=(Chemin & "" & datefich & ".xls") Application.WindowState = xlMinimized AppActivate "Microsoft Excel" UserForm1.Show auto_open End If
