creation de fichier

Le
Patrick Leguet
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

If Dir(Chemin & "" & datefich & ".xls") = "" Then
MsgBox "le fichier " & datefich & " " & ActiveWorkbook.Path & " est
introuvable!"
ActiveWorkbook.SaveAs Filename:=Chemin & "" & datefich & ".xls",
FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse

MsgBox "le fichier " & datefich & " a été créer"
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
End If

End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24955352
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

If Dir(Chemin & "" & datefich & ".xls") = "" Then
MsgBox "le fichier " & datefich & " " & ActiveWorkbook.Path & " est
introuvable!"
ActiveWorkbook.SaveAs Filename:=Chemin & "" & datefich & ".xls",
FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse

MsgBox "le fichier " & datefich & " a été créer"
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
End If

End Sub
Patrick Leguet
Le #24955442
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" 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

If Dir(Chemin & "" & datefich & ".xls") = "" Then
MsgBox "le fichier " & datefich & " " & ActiveWorkbook.Path & " est
introuvable!"
ActiveWorkbook.SaveAs Filename:=Chemin & "" & datefich & ".xls",
FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse

MsgBox "le fichier " & datefich & " a été créer"
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
End If

End Sub




DanielCo
Le #24955462
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
Le #24956552
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
Le #24957102
Merci a vous,
mais ca ne marche pas!
tjs les memes syymptomes
a+
patrick

"Gloops" 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
Le #24957262
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" k7r8gj$66l$
A condition que le fichier ait déjà été enregistré.
Patrick Leguet
Le #24958102
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" 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" k7r8gj$66l$
A condition que le fichier ait déjà été enregistré.
Gloops
Le #24958702
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
Le #24959202
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"
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

If Dir(Chemin & "" & datefich & ".xls") = "" Then
MsgBox "le fichier " & datefich & " " & ActiveWorkbook.Path & " est
introuvable!"
ActiveWorkbook.SaveAs Filename:=Chemin & "" & datefich & ".xls",
FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse

MsgBox "le fichier " & datefich & " a été créer"
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
End If

End Sub



Jacky
Le #24960282
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"
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"
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

If Dir(Chemin & "" & datefich & ".xls") = "" Then
MsgBox "le fichier " & datefich & " " & ActiveWorkbook.Path & " est
introuvable!"
ActiveWorkbook.SaveAs Filename:=Chemin & "" & datefich & ".xls",
FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse

MsgBox "le fichier " & datefich & " a été créer"
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
End If

End Sub







Publicité
Poster une réponse
Anonyme