Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel creation de fichier

creation de fichier

12 réponses
Avatar
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:=False

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

End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
DanielCo
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
Avatar
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

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




Avatar
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
Avatar
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
Avatar
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
Avatar
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é.
Avatar
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é.
Avatar
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
Avatar
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

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



Avatar
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

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







1 2