OVH Cloud OVH Cloud

Enregistrer dans .Path en créant un nouveau dossier

4 réponses
Avatar
ManBas
Bonsoir à tous,
Vous m'avez appris à enregistrer dans .Path: j'ai pu faire de gros progrès.
Mais j'ai sans doute abusé. A force d'y mettre des choses c'est devenu un
peu pagaille, et l'idée de créer des sous-dossiers dans le répertoire
d'origine m'est venue.
Est-ce possible?
Si oui, avec quel code?
Merci d'avance pour votre réponse.

4 réponses

Avatar
lSteph
Bonjour ,

.path est la propriété chemin et peut donc correspondre à n'importe quel
répertoire
selon l'objet auquel il se rapporte
ainsi Activeworkbook.path signifie le chemin du classeur actif

pour créer un répertoire c'est MkDir
pour changer de répertoire c'est ChDir
pour supprimer un répertoire RmDir

lSteph
"ManBas" a écrit dans le message de news:

Bonsoir à tous,
Vous m'avez appris à enregistrer dans .Path: j'ai pu faire de gros
progrès.
Mais j'ai sans doute abusé. A force d'y mettre des choses c'est devenu un
peu pagaille, et l'idée de créer des sous-dossiers dans le répertoire
d'origine m'est venue.
Est-ce possible?
Si oui, avec quel code?
Merci d'avance pour votre réponse.



Avatar
ManBas
Bonsoir LSteph,
Merci de me répondre.
Est-ce celà? (je suis sûr que non)
MkDir ActiveWorkbook.Path
With activeworkbook.SaveAs.path &""&"Nouveau Dossier


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

Bonjour ,

.path est la propriété chemin et peut donc correspondre à n'importe quel
répertoire
selon l'objet auquel il se rapporte
ainsi Activeworkbook.path signifie le chemin du classeur actif

pour créer un répertoire c'est MkDir
pour changer de répertoire c'est ChDir
pour supprimer un répertoire RmDir

lSteph
"ManBas" a écrit dans le message de news:

Bonsoir à tous,
Vous m'avez appris à enregistrer dans .Path: j'ai pu faire de gros
progrès.
Mais j'ai sans doute abusé. A force d'y mettre des choses c'est devenu un
peu pagaille, et l'idée de créer des sous-dossiers dans le répertoire
d'origine m'est venue.
Est-ce possible?
Si oui, avec quel code?
Merci d'avance pour votre réponse.







Avatar
lSteph
re,
pour créer un répertoire un enregistrer le fichier mnfich.xls dedans:

'***
Sub vazila()
MkDir "monnouveau"
ActiveWorkbook.SaveAs "monnouveaumonfich.xls"
End Sub
'****

'sinon ceci change le répertoire courant pour le répertoire du classeur
actif(déjà enregistré)
'puis crée un nouveaurépertoire

Sub test()
ChDir ActiveWorkbook.Path
MkDir "monnouveau"
End Sub

Sub détest()
'supprime le répertoire
RmDir "monnouveau"

End Sub

'lSteph


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

Bonsoir LSteph,
Merci de me répondre.
Est-ce celà? (je suis sûr que non)
MkDir ActiveWorkbook.Path
With activeworkbook.SaveAs.path &""&"Nouveau Dossier


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

Bonjour ,

.path est la propriété chemin et peut donc correspondre à n'importe quel
répertoire
selon l'objet auquel il se rapporte
ainsi Activeworkbook.path signifie le chemin du classeur actif

pour créer un répertoire c'est MkDir
pour changer de répertoire c'est ChDir
pour supprimer un répertoire RmDir

lSteph
"ManBas" a écrit dans le message de news:

Bonsoir à tous,
Vous m'avez appris à enregistrer dans .Path: j'ai pu faire de gros
progrès.
Mais j'ai sans doute abusé. A force d'y mettre des choses c'est devenu
un peu pagaille, et l'idée de créer des sous-dossiers dans le répertoire
d'origine m'est venue.
Est-ce possible?
Si oui, avec quel code?
Merci d'avance pour votre réponse.











Avatar
ManBas
Merci beaucoup pour ces lignes très didactiques.
Je vais pouvoir mettre de l'ordre.
A bientôt.

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

re,
pour créer un répertoire un enregistrer le fichier mnfich.xls dedans:

'***
Sub vazila()
MkDir "monnouveau"
ActiveWorkbook.SaveAs "monnouveaumonfich.xls"
End Sub
'****

'sinon ceci change le répertoire courant pour le répertoire du classeur
actif(déjà enregistré)
'puis crée un nouveaurépertoire

Sub test()
ChDir ActiveWorkbook.Path
MkDir "monnouveau"
End Sub

Sub détest()
'supprime le répertoire
RmDir "monnouveau"

End Sub

'lSteph


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

Bonsoir LSteph,
Merci de me répondre.
Est-ce celà? (je suis sûr que non)
MkDir ActiveWorkbook.Path
With activeworkbook.SaveAs.path &""&"Nouveau Dossier


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

Bonjour ,

.path est la propriété chemin et peut donc correspondre à n'importe quel
répertoire
selon l'objet auquel il se rapporte
ainsi Activeworkbook.path signifie le chemin du classeur actif

pour créer un répertoire c'est MkDir
pour changer de répertoire c'est ChDir
pour supprimer un répertoire RmDir

lSteph
"ManBas" a écrit dans le message de news:

Bonsoir à tous,
Vous m'avez appris à enregistrer dans .Path: j'ai pu faire de gros
progrès.
Mais j'ai sans doute abusé. A force d'y mettre des choses c'est devenu
un peu pagaille, et l'idée de créer des sous-dossiers dans le
répertoire d'origine m'est venue.
Est-ce possible?
Si oui, avec quel code?
Merci d'avance pour votre réponse.