Je ne comprends rien à rien en matière de chemin !
Et on me l'a déjà expliqué 2 fois !!
La solution que je tiens pour un classeur ne se reproduit pas dans un autre
projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau".
La macro crée la copie d'une feuille que je rebaptise NomClasseur
(variable).
Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui
reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le
classeur XL est à coté, ou le classeur est sur le bureau en s'appellant
BureauNomClasseur, etc...
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
papou
Bonjour Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est situé où il faut au départ : Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin
Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin ! Et on me l'a déjà expliqué 2 fois !! La solution que je tiens pour un classeur ne se reproduit pas dans un autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau". La macro crée la copie d'une feuille que je rebaptise NomClasseur (variable). Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le classeur XL est à coté, ou le classeur est sur le bureau en s'appellant BureauNomClasseur, etc...
Merci +++ de votre aide
Bonjour
Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est
situé où il faut au départ :
Dim LeChemin As String
LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde"
MkDir LeChemin
Cordialement
Pascal
"ManBas" <nonospamMaBas@wanadoo.fr> a écrit dans le message de news:
OMZykie7GHA.1012@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin !
Et on me l'a déjà expliqué 2 fois !!
La solution que je tiens pour un classeur ne se reproduit pas dans un
autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau".
La macro crée la copie d'une feuille que je rebaptise NomClasseur
(variable).
Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui
reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le
classeur XL est à coté, ou le classeur est sur le bureau en s'appellant
BureauNomClasseur, etc...
Bonjour Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est situé où il faut au départ : Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin
Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin ! Et on me l'a déjà expliqué 2 fois !! La solution que je tiens pour un classeur ne se reproduit pas dans un autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau". La macro crée la copie d'une feuille que je rebaptise NomClasseur (variable). Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le classeur XL est à coté, ou le classeur est sur le bureau en s'appellant BureauNomClasseur, etc...
Merci +++ de votre aide
ManBas
Merci de ta réponse Papou.
Une erreur d'accès se produit sur Mk Dir.
Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin With ActiveWorkbook .SaveAs NomClasseur .Close End With
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est situé où il faut au départ : Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin
Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin ! Et on me l'a déjà expliqué 2 fois !! La solution que je tiens pour un classeur ne se reproduit pas dans un autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau". La macro crée la copie d'une feuille que je rebaptise NomClasseur (variable). Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le classeur XL est à coté, ou le classeur est sur le bureau en s'appellant BureauNomClasseur, etc...
Merci +++ de votre aide
Merci de ta réponse Papou.
Une erreur d'accès se produit sur Mk Dir.
Dim LeChemin As String
LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde"
MkDir LeChemin
With ActiveWorkbook
.SaveAs NomClasseur
.Close
End With
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23Ad8VJf7GHA.4064@TK2MSFTNGP03.phx.gbl...
Bonjour
Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il
est situé où il faut au départ :
Dim LeChemin As String
LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde"
MkDir LeChemin
Cordialement
Pascal
"ManBas" <nonospamMaBas@wanadoo.fr> a écrit dans le message de news:
OMZykie7GHA.1012@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin !
Et on me l'a déjà expliqué 2 fois !!
La solution que je tiens pour un classeur ne se reproduit pas dans un
autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau".
La macro crée la copie d'une feuille que je rebaptise NomClasseur
(variable).
Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui
reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou
le classeur XL est à coté, ou le classeur est sur le bureau en
s'appellant BureauNomClasseur, etc...
Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin With ActiveWorkbook .SaveAs NomClasseur .Close End With
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est situé où il faut au départ : Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin
Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin ! Et on me l'a déjà expliqué 2 fois !! La solution que je tiens pour un classeur ne se reproduit pas dans un autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau". La macro crée la copie d'une feuille que je rebaptise NomClasseur (variable). Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le classeur XL est à coté, ou le classeur est sur le bureau en s'appellant BureauNomClasseur, etc...
Merci +++ de votre aide
ManBas
Avec cette écriture, il y a bien le répertoire ET le fichier sur le bureau, mais à coté l'un de l'autre: Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde Locale Salle " & Salle MkDir LeChemin With ActiveWorkbook 'enregistrement automatique dans le répertoire actuel .SaveAs LeChemin & NomClasseur 'ThisWorkbook.Path & NomClasseur .Close 'si nécessaire End With
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est situé où il faut au départ : Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin
Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin ! Et on me l'a déjà expliqué 2 fois !! La solution que je tiens pour un classeur ne se reproduit pas dans un autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau". La macro crée la copie d'une feuille que je rebaptise NomClasseur (variable). Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le classeur XL est à coté, ou le classeur est sur le bureau en s'appellant BureauNomClasseur, etc...
Merci +++ de votre aide
Avec cette écriture, il y a bien le répertoire ET le fichier sur le bureau,
mais à coté l'un de l'autre:
Dim LeChemin As String
LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde
Locale Salle " & Salle
MkDir LeChemin
With ActiveWorkbook
'enregistrement automatique dans le répertoire actuel
.SaveAs LeChemin & NomClasseur 'ThisWorkbook.Path & NomClasseur
.Close 'si nécessaire
End With
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23Ad8VJf7GHA.4064@TK2MSFTNGP03.phx.gbl...
Bonjour
Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il
est situé où il faut au départ :
Dim LeChemin As String
LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde"
MkDir LeChemin
Cordialement
Pascal
"ManBas" <nonospamMaBas@wanadoo.fr> a écrit dans le message de news:
OMZykie7GHA.1012@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin !
Et on me l'a déjà expliqué 2 fois !!
La solution que je tiens pour un classeur ne se reproduit pas dans un
autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau".
La macro crée la copie d'une feuille que je rebaptise NomClasseur
(variable).
Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui
reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou
le classeur XL est à coté, ou le classeur est sur le bureau en
s'appellant BureauNomClasseur, etc...
Avec cette écriture, il y a bien le répertoire ET le fichier sur le bureau, mais à coté l'un de l'autre: Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde Locale Salle " & Salle MkDir LeChemin With ActiveWorkbook 'enregistrement automatique dans le répertoire actuel .SaveAs LeChemin & NomClasseur 'ThisWorkbook.Path & NomClasseur .Close 'si nécessaire End With
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est situé où il faut au départ : Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin
Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin ! Et on me l'a déjà expliqué 2 fois !! La solution que je tiens pour un classeur ne se reproduit pas dans un autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau". La macro crée la copie d'une feuille que je rebaptise NomClasseur (variable). Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le classeur XL est à coté, ou le classeur est sur le bureau en s'appellant BureauNomClasseur, etc...
Merci +++ de votre aide
ManBas
Et là ça marche avec:
MkDir ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" With ActiveWorkbook .SaveAs ThisWorkbook.Path & Application.PathSeparator _ & "Sauvegarde" & "" & NomClasseur & ".xls" .Close End With
Merci A bientôt
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est situé où il faut au départ : Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin
Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin ! Et on me l'a déjà expliqué 2 fois !! La solution que je tiens pour un classeur ne se reproduit pas dans un autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau". La macro crée la copie d'une feuille que je rebaptise NomClasseur (variable). Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le classeur XL est à coté, ou le classeur est sur le bureau en s'appellant BureauNomClasseur, etc...
Merci +++ de votre aide
Et là ça marche avec:
MkDir ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde"
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & Application.PathSeparator _
& "Sauvegarde" & "" & NomClasseur & ".xls"
.Close
End With
Merci
A bientôt
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23Ad8VJf7GHA.4064@TK2MSFTNGP03.phx.gbl...
Bonjour
Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il
est situé où il faut au départ :
Dim LeChemin As String
LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde"
MkDir LeChemin
Cordialement
Pascal
"ManBas" <nonospamMaBas@wanadoo.fr> a écrit dans le message de news:
OMZykie7GHA.1012@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin !
Et on me l'a déjà expliqué 2 fois !!
La solution que je tiens pour un classeur ne se reproduit pas dans un
autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau".
La macro crée la copie d'une feuille que je rebaptise NomClasseur
(variable).
Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui
reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou
le classeur XL est à coté, ou le classeur est sur le bureau en
s'appellant BureauNomClasseur, etc...
MkDir ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" With ActiveWorkbook .SaveAs ThisWorkbook.Path & Application.PathSeparator _ & "Sauvegarde" & "" & NomClasseur & ".xls" .Close End With
Merci A bientôt
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: %
Bonjour Tu n'as qu'à partir du chemin de ton classeur puisque tu nous dis qu'il est situé où il faut au départ : Dim LeChemin As String LeChemin = ThisWorkbook.Path & Application.PathSeparator & "Sauvegarde" MkDir LeChemin
Cordialement Pascal
"ManBas" a écrit dans le message de news:
Bonjour à tous,
Je ne comprends rien à rien en matière de chemin ! Et on me l'a déjà expliqué 2 fois !! La solution que je tiens pour un classeur ne se reproduit pas dans un autre projet ou un autre ordinateur.
Mon classeur d'origine se trouve sur le "bureau". La macro crée la copie d'une feuille que je rebaptise NomClasseur (variable). Je voudrais créer un répertoire nommé "Sauvegarde" SUR LE BUREAU, qui reçoive ces copies appellées NomClasseur.
Ou le répertoire crée se trouve dans "mes documents" et il est vide, ou le classeur XL est à coté, ou le classeur est sur le bureau en s'appellant BureauNomClasseur, etc...
