Bonjour à tous,
J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année.
A chaque fois que je quitte une des feuille, une sauvegarde et
automatiquement générer par l'action d'une macro, dans un répertoire de mon
choix.
Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes
et les placer dans un dossier portant l'année écoulé at supprimer celles qui
se trouve dans l'ancien répertoire.
J'explique ce que devra faire la macro:
1) Ouvrir le repertoire sauvegarde
2) Sélectionner les fichiers dans le répertoire
3) Copier les fichiers
4) Créer un sous répertoire 2004 (qui change selon l'année)
5) Coller les fichiers à l'intérieur
6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions.
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
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
michdenis
Bonjour Sten83,
Essaie ceci en adaptant le chemin où se trouvent tes fichiers.
P.S. N'oublie pas de sauvegarder tes fichiers en lieu sûr avant de tester en profondeur(!) la procédure.
'---------------------------- Sub CopierEtSupprimerFichier()
Dim Rep As String, Nrep As String Dim Fichier As String
'à déterminer chemin où sont tes fichiers Rep = "C:Denis" Nrep = Rep & Year(Date) & ""
If Dir(Nrep) = "" Then MkDir Nrep End If
'Ne copie que les fichiers excel 'Pour tous les fichiers modifie .xls par "*.*" Fichier = Dir(Rep & "*.xls") Do While Fichier <> "" FileCopy Rep & Fichier, Nrep & Fichier Kill Rep & Fichier Fichier = Dir() Loop
End Sub '----------------------------
Salutations!
"STEN83" a écrit dans le message de news:
Bonjour à tous, J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année. A chaque fois que je quitte une des feuille, une sauvegarde et automatiquement générer par l'action d'une macro, dans un répertoire de mon choix. Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes et les placer dans un dossier portant l'année écoulé at supprimer celles qui se trouve dans l'ancien répertoire. J'explique ce que devra faire la macro: 1) Ouvrir le repertoire sauvegarde 2) Sélectionner les fichiers dans le répertoire 3) Copier les fichiers 4) Créer un sous répertoire 2004 (qui change selon l'année) 5) Coller les fichiers à l'intérieur 6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions. -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Bonjour Sten83,
Essaie ceci en adaptant le chemin où se trouvent tes fichiers.
P.S. N'oublie pas de sauvegarder tes fichiers en lieu sûr avant de tester en profondeur(!) la procédure.
'----------------------------
Sub CopierEtSupprimerFichier()
Dim Rep As String, Nrep As String
Dim Fichier As String
'à déterminer chemin où sont tes fichiers
Rep = "C:Denis"
Nrep = Rep & Year(Date) & ""
If Dir(Nrep) = "" Then
MkDir Nrep
End If
'Ne copie que les fichiers excel
'Pour tous les fichiers modifie .xls par "*.*"
Fichier = Dir(Rep & "*.xls")
Do While Fichier <> ""
FileCopy Rep & Fichier, Nrep & Fichier
Kill Rep & Fichier
Fichier = Dir()
Loop
End Sub
'----------------------------
Salutations!
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
0BA5D1D7-92B7-4872-B702-518C5A807AAC@microsoft.com...
Bonjour à tous,
J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année.
A chaque fois que je quitte une des feuille, une sauvegarde et
automatiquement générer par l'action d'une macro, dans un répertoire de mon
choix.
Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes
et les placer dans un dossier portant l'année écoulé at supprimer celles qui
se trouve dans l'ancien répertoire.
J'explique ce que devra faire la macro:
1) Ouvrir le repertoire sauvegarde
2) Sélectionner les fichiers dans le répertoire
3) Copier les fichiers
4) Créer un sous répertoire 2004 (qui change selon l'année)
5) Coller les fichiers à l'intérieur
6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions.
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Essaie ceci en adaptant le chemin où se trouvent tes fichiers.
P.S. N'oublie pas de sauvegarder tes fichiers en lieu sûr avant de tester en profondeur(!) la procédure.
'---------------------------- Sub CopierEtSupprimerFichier()
Dim Rep As String, Nrep As String Dim Fichier As String
'à déterminer chemin où sont tes fichiers Rep = "C:Denis" Nrep = Rep & Year(Date) & ""
If Dir(Nrep) = "" Then MkDir Nrep End If
'Ne copie que les fichiers excel 'Pour tous les fichiers modifie .xls par "*.*" Fichier = Dir(Rep & "*.xls") Do While Fichier <> "" FileCopy Rep & Fichier, Nrep & Fichier Kill Rep & Fichier Fichier = Dir() Loop
End Sub '----------------------------
Salutations!
"STEN83" a écrit dans le message de news:
Bonjour à tous, J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année. A chaque fois que je quitte une des feuille, une sauvegarde et automatiquement générer par l'action d'une macro, dans un répertoire de mon choix. Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes et les placer dans un dossier portant l'année écoulé at supprimer celles qui se trouve dans l'ancien répertoire. J'explique ce que devra faire la macro: 1) Ouvrir le repertoire sauvegarde 2) Sélectionner les fichiers dans le répertoire 3) Copier les fichiers 4) Créer un sous répertoire 2004 (qui change selon l'année) 5) Coller les fichiers à l'intérieur 6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions. -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Bonjour à tous, J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année.
A chaque fois que je quitte une des feuille, une sauvegarde et automatiquement générer par l'action d'une macro, dans un répertoire de mon
choix. Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes
et les placer dans un dossier portant l'année écoulé at supprimer celles qui
se trouve dans l'ancien répertoire. J'explique ce que devra faire la macro: 1) Ouvrir le repertoire sauvegarde 2) Sélectionner les fichiers dans le répertoire 3) Copier les fichiers 4) Créer un sous répertoire 2004 (qui change selon l'année) 5) Coller les fichiers à l'intérieur 6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions. -- Le partage du savoir contribue à l'amélioration de la condition humaine!
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de
news:0BA5D1D7-92B7-4872-B702-518C5A807AAC@microsoft.com...
Bonjour à tous,
J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de
l'année.
A chaque fois que je quitte une des feuille, une sauvegarde et
automatiquement générer par l'action d'une macro, dans un répertoire
de mon
choix.
Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les
sauvegardes
et les placer dans un dossier portant l'année écoulé at supprimer
celles qui
se trouve dans l'ancien répertoire.
J'explique ce que devra faire la macro:
1) Ouvrir le repertoire sauvegarde
2) Sélectionner les fichiers dans le répertoire
3) Copier les fichiers
4) Créer un sous répertoire 2004 (qui change selon l'année)
5) Coller les fichiers à l'intérieur
6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions.
--
Le partage du savoir contribue à l'amélioration de la condition
humaine!
Bonjour à tous, J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année.
A chaque fois que je quitte une des feuille, une sauvegarde et automatiquement générer par l'action d'une macro, dans un répertoire de mon
choix. Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes
et les placer dans un dossier portant l'année écoulé at supprimer celles qui
se trouve dans l'ancien répertoire. J'explique ce que devra faire la macro: 1) Ouvrir le repertoire sauvegarde 2) Sélectionner les fichiers dans le répertoire 3) Copier les fichiers 4) Créer un sous répertoire 2004 (qui change selon l'année) 5) Coller les fichiers à l'intérieur 6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions. -- Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
STEN83
Merci michdenis c'est tout à fait ce que je voulais (super)
Bonjour Sten83,
Essaie ceci en adaptant le chemin où se trouvent tes fichiers.
P.S. N'oublie pas de sauvegarder tes fichiers en lieu sûr avant de tester en profondeur(!) la procédure.
'---------------------------- Sub CopierEtSupprimerFichier()
Dim Rep As String, Nrep As String Dim Fichier As String
'à déterminer chemin où sont tes fichiers Rep = "C:Denis" Nrep = Rep & Year(Date) & ""
If Dir(Nrep) = "" Then MkDir Nrep End If
'Ne copie que les fichiers excel 'Pour tous les fichiers modifie .xls par "*.*" Fichier = Dir(Rep & "*.xls") Do While Fichier <> "" FileCopy Rep & Fichier, Nrep & Fichier Kill Rep & Fichier Fichier = Dir() Loop
End Sub '----------------------------
Salutations!
"STEN83" a écrit dans le message de news:
Bonjour à tous, J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année. A chaque fois que je quitte une des feuille, une sauvegarde et automatiquement générer par l'action d'une macro, dans un répertoire de mon choix. Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes et les placer dans un dossier portant l'année écoulé at supprimer celles qui se trouve dans l'ancien répertoire. J'explique ce que devra faire la macro: 1) Ouvrir le repertoire sauvegarde 2) Sélectionner les fichiers dans le répertoire 3) Copier les fichiers 4) Créer un sous répertoire 2004 (qui change selon l'année) 5) Coller les fichiers à l'intérieur 6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions. -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Merci michdenis c'est tout à fait ce que je voulais (super)
Bonjour Sten83,
Essaie ceci en adaptant le chemin où se trouvent tes fichiers.
P.S. N'oublie pas de sauvegarder tes fichiers en lieu sûr avant de tester en profondeur(!) la procédure.
'----------------------------
Sub CopierEtSupprimerFichier()
Dim Rep As String, Nrep As String
Dim Fichier As String
'à déterminer chemin où sont tes fichiers
Rep = "C:Denis"
Nrep = Rep & Year(Date) & ""
If Dir(Nrep) = "" Then
MkDir Nrep
End If
'Ne copie que les fichiers excel
'Pour tous les fichiers modifie .xls par "*.*"
Fichier = Dir(Rep & "*.xls")
Do While Fichier <> ""
FileCopy Rep & Fichier, Nrep & Fichier
Kill Rep & Fichier
Fichier = Dir()
Loop
End Sub
'----------------------------
Salutations!
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
0BA5D1D7-92B7-4872-B702-518C5A807AAC@microsoft.com...
Bonjour à tous,
J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année.
A chaque fois que je quitte une des feuille, une sauvegarde et
automatiquement générer par l'action d'une macro, dans un répertoire de mon
choix.
Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes
et les placer dans un dossier portant l'année écoulé at supprimer celles qui
se trouve dans l'ancien répertoire.
J'explique ce que devra faire la macro:
1) Ouvrir le repertoire sauvegarde
2) Sélectionner les fichiers dans le répertoire
3) Copier les fichiers
4) Créer un sous répertoire 2004 (qui change selon l'année)
5) Coller les fichiers à l'intérieur
6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions.
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Merci michdenis c'est tout à fait ce que je voulais (super)
Bonjour Sten83,
Essaie ceci en adaptant le chemin où se trouvent tes fichiers.
P.S. N'oublie pas de sauvegarder tes fichiers en lieu sûr avant de tester en profondeur(!) la procédure.
'---------------------------- Sub CopierEtSupprimerFichier()
Dim Rep As String, Nrep As String Dim Fichier As String
'à déterminer chemin où sont tes fichiers Rep = "C:Denis" Nrep = Rep & Year(Date) & ""
If Dir(Nrep) = "" Then MkDir Nrep End If
'Ne copie que les fichiers excel 'Pour tous les fichiers modifie .xls par "*.*" Fichier = Dir(Rep & "*.xls") Do While Fichier <> "" FileCopy Rep & Fichier, Nrep & Fichier Kill Rep & Fichier Fichier = Dir() Loop
End Sub '----------------------------
Salutations!
"STEN83" a écrit dans le message de news:
Bonjour à tous, J'ai un classeur qui comprend 12 feuilles, 1 pour chaque mois de l'année. A chaque fois que je quitte une des feuille, une sauvegarde et automatiquement générer par l'action d'une macro, dans un répertoire de mon choix. Ce que j'aimerai, c'est qu'en fin d'année récupérer toutes les sauvegardes et les placer dans un dossier portant l'année écoulé at supprimer celles qui se trouve dans l'ancien répertoire. J'explique ce que devra faire la macro: 1) Ouvrir le repertoire sauvegarde 2) Sélectionner les fichiers dans le répertoire 3) Copier les fichiers 4) Créer un sous répertoire 2004 (qui change selon l'année) 5) Coller les fichiers à l'intérieur 6) Supprimer les fichiers du répertoire sauvegarde.
Merci de vos suggestions. -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
