Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mettre de force un fichier dans un dossier

Mettre de force un fichier dans un dossier

14 réponses
Avatar
Didier Novarin
Bonjour
j'expose de nouveau mon problème car avec l'enregistreur de macros, je me
mélange les pinceaux ;-)
J'ai un fichier "toto" sur le bureau ou ailleurs, je souhaite qu'à la
première fermeture de celui-ci, il se créé un dossier C:\Quota, puis que le
fichier "toto" aille définitivement dans le dossier "Quota" soit
"C:\Quota\toto.xls"
Je vous remercie
Didier
Signaler un problème avec ce contenu

4 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
Jacky
Re....
A18h, Le fichier toto était encore sur le bureau.
Il ne faut pas changer la donne à chaque message..
D'ailleurs il faudra changer le code du Kill précèdent par celui-ci.

If Dir("C:Documents and SettingsJackyBureautoto.xls") <> "" Then
Kill "C:Documents and SettingsJackyBureautoto.xls" '***Avec adaptation
du chemin, évidemment****
End If

Pourquoi ne pas le supprimer manuellement ????
Sinon, demain peut-être

Bonne nuit
JJ

"Didier Novarin" a écrit dans le message de
news: %23iu0m$
Merci Jacky
le pb dans ce cas est que le classeur peut se trouver n'importe où après
un téléchargement
Didier

"Jacky" a écrit dans le message de news:

Re....
'-------
Sub Dossier_Quota()
Application.DisplayAlerts = False
If Dir("C:Quota", 16) = "" Then MkDir "C:Quota"
ActiveWorkbook.SaveAs "C:Quotatoto.xls"
Kill "C:Documents and SettingsJackyBureautoto.xls" '***Avec
adaptation
du chemin, évidemment****

'C'est ici que je désire supprimer le classeur origine
'Kill ancien classeur
End Sub
'-----------
JJ

"Didier Novarin" a écrit dans le message de
news:
Salut
je te remercie
mais le pb est que je veux supprimer le premier classeur
voilà la prose ;-)
je te remercie
Didier

Sub Dossier_Quota()
Application.DisplayAlerts = False
If Dir("C:Quota", 16) = "" Then MkDir "C:Quota"
ActiveWorkbook.SaveAs "C:Quotatoto.xls"
'C'est ici que je désire supprimer le classeur origine
'Kill ancien classeur
End Sub

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de
news:

Bonsoir Didier

Pour supprimer :
Exemple :
Kill "C:temp*.xls"
Bonne suite
Cordialement
Gérard



"Didier Novarin" a écrit dans le message de
news:
Merci beaucoup Kamel
Mais en fait j'ai un pb
je voudrais que le fichier toto aille définitivement dans le dossier
Quota
alors que là, il en créé un autre et garde l'original sur le bureau
comment faire afin qu'il n'en reste qu'un celui du répertoire Quota
Merci
Didier

"Kamel" a écrit dans le message de news:

cette ligne

If Dir("c:Quota", 16) = "" Then MkDir "c:Quota"

verifie si le répertoire c:Quota existe, si tel n'est pas le cas il
le
crée.

Kamel

"Didier Novarin" a écrit dans le message
de
news:
Re Bonjour Jacky
et merci encore c'est parfait
mais en fait
au départ le fichier s'appelle "toto", et je veux qu'il aille dans
le
répertoire en tant que toto
car s'i il y a d'autre classeur ouvert ?
et peux-tu m'expliquer le : If Dir("c:Quota", 16) = ""
je te remercie
Didier

"Jacky" a écrit dans le message de news:
u$
Bonjour
Ceci devrait faire:
'--------
Sub jj()
On Error GoTo erreur
Application.DisplayAlerts = False
If Dir("c:Quota", 16) = "" Then MkDir "c:Quota"
ActiveWorkbook.SaveAs "c:Quotatoto.xls"
On Error GoTo 0
Exit Sub
erreur:
MsgBox "Le fichier n'a pas été sauvegardé." & Chr(10) _
& "La longueur du nom ne doit pas dépasser 218 caractères" &
Chr(10)
_
& "et ne doit pas contenir de caractères interdit (/<>*:;|"""")"
End Sub
'----------
Salutations
JJ

"Didier Novarin" a écrit dans le
message
de




news:
Bonjour
j'expose de nouveau mon problème car avec l'enregistreur de
macros,
je





me
mélange les pinceaux ;-)
J'ai un fichier "toto" sur le bureau ou ailleurs, je souhaite
qu'à
la
première fermeture de celui-ci, il se créé un dossier C:Quota,
puis
que
le

fichier "toto" aille définitivement dans le dossier "Quota" soit
"C:Quotatoto.xls"
Je vous remercie
Didier






































Avatar
Didier Novarin
Je te remercie Jacky
le fichier est en téléchargement en Winrar et les utilisateurs l'installe
n'importe où
mais j'ai bricolé quelque chose de parfait avec ta procédure et celle de OnE
Encore merci et bonne nuit
Didier

"Jacky" a écrit dans le message de news:

Re....
A18h, Le fichier toto était encore sur le bureau.
Il ne faut pas changer la donne à chaque message..
D'ailleurs il faudra changer le code du Kill précèdent par celui-ci.

If Dir("C:Documents and SettingsJackyBureautoto.xls") <> "" Then
Kill "C:Documents and SettingsJackyBureautoto.xls" '***Avec adaptation
du chemin, évidemment****
End If

Pourquoi ne pas le supprimer manuellement ????
Sinon, demain peut-être

Bonne nuit
JJ

"Didier Novarin" a écrit dans le message de
news: %23iu0m$
Merci Jacky
le pb dans ce cas est que le classeur peut se trouver n'importe où après
un téléchargement
Didier

"Jacky" a écrit dans le message de news:

Re....
'-------
Sub Dossier_Quota()
Application.DisplayAlerts = False
If Dir("C:Quota", 16) = "" Then MkDir "C:Quota"
ActiveWorkbook.SaveAs "C:Quotatoto.xls"
Kill "C:Documents and SettingsJackyBureautoto.xls" '***Avec
adaptation
du chemin, évidemment****

'C'est ici que je désire supprimer le classeur origine
'Kill ancien classeur
End Sub
'-----------
JJ

"Didier Novarin" a écrit dans le message de
news:
Salut
je te remercie
mais le pb est que je veux supprimer le premier classeur
voilà la prose ;-)
je te remercie
Didier

Sub Dossier_Quota()
Application.DisplayAlerts = False
If Dir("C:Quota", 16) = "" Then MkDir "C:Quota"
ActiveWorkbook.SaveAs "C:Quotatoto.xls"
'C'est ici que je désire supprimer le classeur origine
'Kill ancien classeur
End Sub

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de
news:

Bonsoir Didier

Pour supprimer :
Exemple :
Kill "C:temp*.xls"
Bonne suite
Cordialement
Gérard



"Didier Novarin" a écrit dans le message
de
news:
Merci beaucoup Kamel
Mais en fait j'ai un pb
je voudrais que le fichier toto aille définitivement dans le dossier
Quota
alors que là, il en créé un autre et garde l'original sur le bureau
comment faire afin qu'il n'en reste qu'un celui du répertoire Quota
Merci
Didier

"Kamel" a écrit dans le message de news:

cette ligne

If Dir("c:Quota", 16) = "" Then MkDir "c:Quota"

verifie si le répertoire c:Quota existe, si tel n'est pas le cas
il
le
crée.

Kamel

"Didier Novarin" a écrit dans le
message
de
news:
Re Bonjour Jacky
et merci encore c'est parfait
mais en fait
au départ le fichier s'appelle "toto", et je veux qu'il aille dans
le
répertoire en tant que toto
car s'i il y a d'autre classeur ouvert ?
et peux-tu m'expliquer le : If Dir("c:Quota", 16) = ""
je te remercie
Didier

"Jacky" a écrit dans le message de news:
u$
Bonjour
Ceci devrait faire:
'--------
Sub jj()
On Error GoTo erreur
Application.DisplayAlerts = False
If Dir("c:Quota", 16) = "" Then MkDir "c:Quota"
ActiveWorkbook.SaveAs "c:Quotatoto.xls"
On Error GoTo 0
Exit Sub
erreur:
MsgBox "Le fichier n'a pas été sauvegardé." & Chr(10) _
& "La longueur du nom ne doit pas dépasser 218 caractères" &
Chr(10)
_
& "et ne doit pas contenir de caractères interdit
(/<>*:;|"""")"
End Sub
'----------
Salutations
JJ

"Didier Novarin" a écrit dans le
message
de




news:
Bonjour
j'expose de nouveau mon problème car avec l'enregistreur de
macros,
je





me
mélange les pinceaux ;-)
J'ai un fichier "toto" sur le bureau ou ailleurs, je souhaite
qu'à
la
première fermeture de celui-ci, il se créé un dossier C:Quota,
puis
que
le

fichier "toto" aille définitivement dans le dossier "Quota" soit
"C:Quotatoto.xls"
Je vous remercie
Didier










































Avatar
G. L
Bonjour Didier

Dans ce cas, il me semble qu'il serait judicieux de stocker dans une cellule
le chemin d'ouverture du fichier toto.
Comme ça plus de problème l'utilisateur pourrait le mettre n'importe ou.
Une piste :

http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/f11bf03e5590d22c/0af1597b8236671d?q=fichier&rnum=4&hl=fr#0af1597b8236671d

Cordialement

Gérard


"Didier Novarin" a écrit dans le message de
news:
Salut
je te remercie
mais le pb est que je veux supprimer le premier classeur
voilà la prose ;-)
je te remercie
Didier

Sub Dossier_Quota()
Application.DisplayAlerts = False
If Dir("C:Quota", 16) = "" Then MkDir "C:Quota"
ActiveWorkbook.SaveAs "C:Quotatoto.xls"
'C'est ici que je désire supprimer le classeur origine
'Kill ancien classeur
End Sub

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:

Bonsoir Didier

Pour supprimer :
Exemple :
Kill "C:temp*.xls"
Bonne suite
Cordialement
Gérard



"Didier Novarin" a écrit dans le message de
news:
Merci beaucoup Kamel
Mais en fait j'ai un pb
je voudrais que le fichier toto aille définitivement dans le dossier
Quota
alors que là, il en créé un autre et garde l'original sur le bureau
comment faire afin qu'il n'en reste qu'un celui du répertoire Quota
Merci
Didier

"Kamel" a écrit dans le message de news:

cette ligne

If Dir("c:Quota", 16) = "" Then MkDir "c:Quota"

verifie si le répertoire c:Quota existe, si tel n'est pas le cas il
le




crée.

Kamel

"Didier Novarin" a écrit dans le message
de




news:
Re Bonjour Jacky
et merci encore c'est parfait
mais en fait
au départ le fichier s'appelle "toto", et je veux qu'il aille dans
le





répertoire en tant que toto
car s'i il y a d'autre classeur ouvert ?
et peux-tu m'expliquer le : If Dir("c:Quota", 16) = ""
je te remercie
Didier

"Jacky" a écrit dans le message de news:
u$
Bonjour
Ceci devrait faire:
'--------
Sub jj()
On Error GoTo erreur
Application.DisplayAlerts = False
If Dir("c:Quota", 16) = "" Then MkDir "c:Quota"
ActiveWorkbook.SaveAs "c:Quotatoto.xls"
On Error GoTo 0
Exit Sub
erreur:
MsgBox "Le fichier n'a pas été sauvegardé." & Chr(10) _
& "La longueur du nom ne doit pas dépasser 218 caractères" &
Chr(10)






_
& "et ne doit pas contenir de caractères interdit (/<>*:;|"""")"
End Sub
'----------
Salutations
JJ

"Didier Novarin" a écrit dans le
message






de
news:
Bonjour
j'expose de nouveau mon problème car avec l'enregistreur de
macros,







je
me
mélange les pinceaux ;-)
J'ai un fichier "toto" sur le bureau ou ailleurs, je souhaite qu'à
la
première fermeture de celui-ci, il se créé un dossier C:Quota,
puis







que
le

fichier "toto" aille définitivement dans le dossier "Quota" soit
"C:Quotatoto.xls"
Je vous remercie
Didier




























Avatar
Didier Novarin
Je te remercie beaucoup
Didier

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:
%
Bonjour Didier

Dans ce cas, il me semble qu'il serait judicieux de stocker dans une
cellule
le chemin d'ouverture du fichier toto.
Comme ça plus de problème l'utilisateur pourrait le mettre n'importe ou.
Une piste :

http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/f11bf03e5590d22c/0af1597b8236671d?q=fichier&rnum=4&hl=fr#0af1597b8236671d

Cordialement

Gérard


"Didier Novarin" a écrit dans le message de
news:
Salut
je te remercie
mais le pb est que je veux supprimer le premier classeur
voilà la prose ;-)
je te remercie
Didier

Sub Dossier_Quota()
Application.DisplayAlerts = False
If Dir("C:Quota", 16) = "" Then MkDir "C:Quota"
ActiveWorkbook.SaveAs "C:Quotatoto.xls"
'C'est ici que je désire supprimer le classeur origine
'Kill ancien classeur
End Sub

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de
news:

Bonsoir Didier

Pour supprimer :
Exemple :
Kill "C:temp*.xls"
Bonne suite
Cordialement
Gérard



"Didier Novarin" a écrit dans le message de
news:
Merci beaucoup Kamel
Mais en fait j'ai un pb
je voudrais que le fichier toto aille définitivement dans le dossier
Quota
alors que là, il en créé un autre et garde l'original sur le bureau
comment faire afin qu'il n'en reste qu'un celui du répertoire Quota
Merci
Didier

"Kamel" a écrit dans le message de news:

cette ligne

If Dir("c:Quota", 16) = "" Then MkDir "c:Quota"

verifie si le répertoire c:Quota existe, si tel n'est pas le cas il
le




crée.

Kamel

"Didier Novarin" a écrit dans le message
de




news:
Re Bonjour Jacky
et merci encore c'est parfait
mais en fait
au départ le fichier s'appelle "toto", et je veux qu'il aille dans
le





répertoire en tant que toto
car s'i il y a d'autre classeur ouvert ?
et peux-tu m'expliquer le : If Dir("c:Quota", 16) = ""
je te remercie
Didier

"Jacky" a écrit dans le message de news:
u$
Bonjour
Ceci devrait faire:
'--------
Sub jj()
On Error GoTo erreur
Application.DisplayAlerts = False
If Dir("c:Quota", 16) = "" Then MkDir "c:Quota"
ActiveWorkbook.SaveAs "c:Quotatoto.xls"
On Error GoTo 0
Exit Sub
erreur:
MsgBox "Le fichier n'a pas été sauvegardé." & Chr(10) _
& "La longueur du nom ne doit pas dépasser 218 caractères" &
Chr(10)






_
& "et ne doit pas contenir de caractères interdit (/<>*:;|"""")"
End Sub
'----------
Salutations
JJ

"Didier Novarin" a écrit dans le
message






de
news:
Bonjour
j'expose de nouveau mon problème car avec l'enregistreur de
macros,







je
me
mélange les pinceaux ;-)
J'ai un fichier "toto" sur le bureau ou ailleurs, je souhaite
qu'à
la
première fermeture de celui-ci, il se créé un dossier C:Quota,
puis







que
le

fichier "toto" aille définitivement dans le dossier "Quota" soit
"C:Quotatoto.xls"
Je vous remercie
Didier
































1 2