Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
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

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
Jacky
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
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
Jacky
Re..
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 ?
Cette instruction : ActiveWorkbook.SaveAs "c:Quotatoto.xls"

va enregistrer le fichier actif dans : c:Quota et aura pour nom :
toto.xls
If faudra donc que le fichier toto soit actif au moment du lancement de la
macro, ou le rendre actif par select ou activate, si ce n'est pas le cas.

If Dir("c:Quota", 16) = ""
Va voir si le répertoire existe , sinon le créer avec MkDir
Un petit coup de F1 sur Dir donnera plus d'explications.

Bon WE
JJ


"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
Kamel
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
OK je te remercie beaucoup Jacky
Très bonne soirée et bon WE
Didier

"Jacky" a écrit dans le message de news:
%
Re..
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 ?
Cette instruction : ActiveWorkbook.SaveAs "c:Quotatoto.xls"

va enregistrer le fichier actif dans : c:Quota et aura pour nom :
toto.xls
If faudra donc que le fichier toto soit actif au moment du lancement de la
macro, ou le rendre actif par select ou activate, si ce n'est pas le cas.

If Dir("c:Quota", 16) = ""
Va voir si le répertoire existe , sinon le créer avec MkDir
Un petit coup de F1 sur Dir donnera plus d'explications.

Bon WE
JJ


"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
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
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
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
Jacky
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
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


































1 2