VBA : sauvegarde partielle dans le repertoire actif...?
5 réponses
Domi
Rebonsoir,
deux questions de sauvagarde....
Sub SauverClasseur()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " "
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls"
End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur
actif avec un nouveau nom incluant la date et l'heure...
Tout va bien jusque là !
2 questions
1°) Comment faire en sorte que la sauvegarde se fasse dans le même
repertoire que celui du classeur dont on fait la sauvegarde ? (actuellment
cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que quelques
feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de
l'ensemble des feuilles ?
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
Philippe.R
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem() Dim lechem As String lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name) - 1) MsgBox lechem ChDir lechem End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables (pour peu qu'elles soient identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il ne te reste qu'à renommer
Sub SauverClasseur() Dim strDate As String Count = Len(ActiveWorkbook.Name) Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " " strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls" End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur actif avec un nouveau nom incluant la date et l'heure... Tout va bien jusque là !
2 questions 1°) Comment faire en sorte que la sauvegarde se fasse dans le même repertoire que celui du classeur dont on fait la sauvegarde ? (actuellment cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que quelques feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de l'ensemble des feuilles ?
Merci Domi
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem()
Dim lechem As String
lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name) - 1)
MsgBox lechem
ChDir lechem
End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables (pour peu qu'elles soient
identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il ne te reste qu'à renommer
"Domi" <scrat83@free.fr> a écrit dans le message de news:%23fyukx6XEHA.2408@tk2msftngp13.phx.gbl...
Rebonsoir,
deux questions de sauvagarde....
Sub SauverClasseur()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " "
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls"
End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur
actif avec un nouveau nom incluant la date et l'heure...
Tout va bien jusque là !
2 questions
1°) Comment faire en sorte que la sauvegarde se fasse dans le même
repertoire que celui du classeur dont on fait la sauvegarde ? (actuellment
cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que quelques
feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de
l'ensemble des feuilles ?
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem() Dim lechem As String lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name) - 1) MsgBox lechem ChDir lechem End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables (pour peu qu'elles soient identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il ne te reste qu'à renommer
Sub SauverClasseur() Dim strDate As String Count = Len(ActiveWorkbook.Name) Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " " strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls" End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur actif avec un nouveau nom incluant la date et l'heure... Tout va bien jusque là !
2 questions 1°) Comment faire en sorte que la sauvegarde se fasse dans le même repertoire que celui du classeur dont on fait la sauvegarde ? (actuellment cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que quelques feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de l'ensemble des feuilles ?
Merci Domi
Domi
Merci, je vais essayer d'intégrer cela dans mes codes existants.
Domi
"Philippe.R" a écrit dans le message de news:
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem() Dim lechem As String lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name) - 1)
MsgBox lechem ChDir lechem End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables (pour peu qu'elles soient
identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il ne te reste qu'à renommer
Sub SauverClasseur() Dim strDate As String Count = Len(ActiveWorkbook.Name) Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " " strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls" End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur actif avec un nouveau nom incluant la date et l'heure... Tout va bien jusque là !
2 questions 1°) Comment faire en sorte que la sauvegarde se fasse dans le même repertoire que celui du classeur dont on fait la sauvegarde ? (actuellment
cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que quelques
feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de l'ensemble des feuilles ?
Merci Domi
Merci, je vais essayer d'intégrer cela dans mes codes existants.
Domi
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:uNM5Qh7XEHA.2500@TK2MSFTNGP09.phx.gbl...
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem()
Dim lechem As String
lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) -
Len(ThisWorkbook.Name) - 1)
MsgBox lechem
ChDir lechem
End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables
(pour peu qu'elles soient
identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il
ne te reste qu'à renommer
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23fyukx6XEHA.2408@tk2msftngp13.phx.gbl...
Rebonsoir,
deux questions de sauvagarde....
Sub SauverClasseur()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " "
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls"
End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur
actif avec un nouveau nom incluant la date et l'heure...
Tout va bien jusque là !
2 questions
1°) Comment faire en sorte que la sauvegarde se fasse dans le même
repertoire que celui du classeur dont on fait la sauvegarde ?
(actuellment
cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que
quelques
feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de
l'ensemble des feuilles ?
Sub SauverClasseur() Dim strDate As String Count = Len(ActiveWorkbook.Name) Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " " strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls" End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur actif avec un nouveau nom incluant la date et l'heure... Tout va bien jusque là !
2 questions 1°) Comment faire en sorte que la sauvegarde se fasse dans le même repertoire que celui du classeur dont on fait la sauvegarde ? (actuellment
cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que quelques
feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de l'ensemble des feuilles ?
Merci Domi
Philippe.R
C'était avec plaisir Domi ! -- Bon Courage et Amicales Salutations
"Domi" a écrit dans le message de news:etSwH7%
Merci, je vais essayer d'intégrer cela dans mes codes existants.
Domi
"Philippe.R" a écrit dans le message de news:
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem() Dim lechem As String lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name) - 1)
MsgBox lechem ChDir lechem End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables (pour peu qu'elles soient
identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il ne te reste qu'à renommer
Sub SauverClasseur() Dim strDate As String Count = Len(ActiveWorkbook.Name) Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " " strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls" End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur actif avec un nouveau nom incluant la date et l'heure... Tout va bien jusque là !
2 questions 1°) Comment faire en sorte que la sauvegarde se fasse dans le même repertoire que celui du classeur dont on fait la sauvegarde ? (actuellment
cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que quelques
feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de l'ensemble des feuilles ?
Merci Domi
C'était avec plaisir Domi !
--
Bon Courage et Amicales Salutations
"Domi" <scrat83@free.fr> a écrit dans le message de news:etSwH7%23XEHA.3988@tk2msftngp13.phx.gbl...
Merci, je vais essayer d'intégrer cela dans mes codes existants.
Domi
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:uNM5Qh7XEHA.2500@TK2MSFTNGP09.phx.gbl...
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem()
Dim lechem As String
lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) -
Len(ThisWorkbook.Name) - 1)
MsgBox lechem
ChDir lechem
End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables
(pour peu qu'elles soient
identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il
ne te reste qu'à renommer
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23fyukx6XEHA.2408@tk2msftngp13.phx.gbl...
Rebonsoir,
deux questions de sauvagarde....
Sub SauverClasseur()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " "
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls"
End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur
actif avec un nouveau nom incluant la date et l'heure...
Tout va bien jusque là !
2 questions
1°) Comment faire en sorte que la sauvegarde se fasse dans le même
repertoire que celui du classeur dont on fait la sauvegarde ?
(actuellment
cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que
quelques
feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de
l'ensemble des feuilles ?
Sub SauverClasseur() Dim strDate As String Count = Len(ActiveWorkbook.Name) Name = "Sauvegarde " & Left(ActiveWorkbook.Name, Count - 4) & " " strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ThisWorkbook.SaveCopyAs Filename:=Name & strDate & ".xls" End Sub
Ce bout de code récupéré et adapté me permet de sauvagarder le classeur actif avec un nouveau nom incluant la date et l'heure... Tout va bien jusque là !
2 questions 1°) Comment faire en sorte que la sauvegarde se fasse dans le même repertoire que celui du classeur dont on fait la sauvegarde ? (actuellment
cela se fait dans mes documents (sous WK2)
2°) Plus delicat je pense... comment faire pour ne sauvegarder que quelques
feuilles précises ("titi", "toto" et "tata" par exemple...) au lieu de l'ensemble des feuilles ?
Merci Domi
Alain CROS
Bonjour
Peut être ThisWorkbook.Path ?
Sub SauverClasseur() Dim strDate$, Name$ With ThisWorkbook Name = .Path & .Parent.PathSeparator & "Sauvegarde " & Left$(.Name, Len(.Name) - 4&) & " " strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") .SaveCopyAs Filename:=Name & strDate & ".xls" End With End Sub
Alain CROS
"Philippe.R" a écrit dans le message de news:
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem() Dim lechem As String lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name) - 1) MsgBox lechem ChDir lechem End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables (pour peu qu'elles soient identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il ne te reste qu'à renommer
Sub SauverClasseur()
Dim strDate$, Name$
With ThisWorkbook
Name = .Path & .Parent.PathSeparator & "Sauvegarde " & Left$(.Name, Len(.Name) - 4&) & " "
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
.SaveCopyAs Filename:=Name & strDate & ".xls"
End With
End Sub
Alain CROS
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news: uNM5Qh7XEHA.2500@TK2MSFTNGP09.phx.gbl...
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem()
Dim lechem As String
lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name) - 1)
MsgBox lechem
ChDir lechem
End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables (pour peu qu'elles soient
identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il ne te reste qu'à renommer
Sub SauverClasseur() Dim strDate$, Name$ With ThisWorkbook Name = .Path & .Parent.PathSeparator & "Sauvegarde " & Left$(.Name, Len(.Name) - 4&) & " " strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") .SaveCopyAs Filename:=Name & strDate & ".xls" End With End Sub
Alain CROS
"Philippe.R" a écrit dans le message de news:
Bonjour Domi,
1) Une manière de faire pour récupérer le bon chemin :
Sub quelchem() Dim lechem As String lechem = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name) - 1) MsgBox lechem ChDir lechem End Sub
le chdir indiquant le bon dossier / sous dossier
2) une piste encore, consistant à supprimer les feuilles indésirables (pour peu qu'elles soient identifiables) avant de sauver le classeur sous le nouveau nom.
ou bien cette commande :
Sheets(Array("Titi", "Toto","Tata")).Copy
qui créée une copie des feuilles souhaitées dans un nouveau classeur qu'il ne te reste qu'à renommer
