je voudrais faire un backup d un fichier avant la maj de celui la c
est a dire au debut de ma marco que je puisse faire une copie du
fichier et mettre cette copie dans un dossier specifique et que se
fichier portera le nom du fichier + la date du jour
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
Jacky
Bonjour,
Ceci créer a l'ouverture du classeur dans le répertoire en cours un dossier nommé "Sauvegarde" et y place le classeur avec son nom + la date et l'heure
Dans le thisworkbook '----------------- Private Sub Workbook_Open() Call sauvegarde End Sub '--------------- Dans un module standard '----------------- Sub sauvegarde() Dim Repertoire As String, Fichier As String, nom As String Repertoire = ThisWorkbook.Path & "Sauvegarde" If Dir(Repertoire, 16) = "" Then MkDir Repertoire nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy hh_mm_ss") & ".xls" ThisWorkbook.SaveCopyAs Repertoire & nom End Sub '----------
-- Salutations JJ
"joseph84" a écrit dans le message de news:
Bonjour tout le monde
je voudrais faire un backup d un fichier avant la maj de celui la c est a dire au debut de ma marco que je puisse faire une copie du fichier et mettre cette copie dans un dossier specifique et que se fichier portera le nom du fichier + la date du jour
merci
Bonjour,
Ceci créer a l'ouverture du classeur dans le répertoire en cours un dossier nommé "Sauvegarde" et y place le
classeur avec son nom + la date et l'heure
Dans le thisworkbook
'-----------------
Private Sub Workbook_Open()
Call sauvegarde
End Sub
'---------------
Dans un module standard
'-----------------
Sub sauvegarde()
Dim Repertoire As String, Fichier As String, nom As String
Repertoire = ThisWorkbook.Path & "Sauvegarde"
If Dir(Repertoire, 16) = "" Then MkDir Repertoire
nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy hh_mm_ss") & ".xls"
ThisWorkbook.SaveCopyAs Repertoire & nom
End Sub
'----------
--
Salutations
JJ
"joseph84" <youwangsoft@gmail.com> a écrit dans le message de news:
9ed8dccf-f8f8-465e-bd17-d27afc31ebfb@o10g2000prn.googlegroups.com...
Bonjour tout le monde
je voudrais faire un backup d un fichier avant la maj de celui la c
est a dire au debut de ma marco que je puisse faire une copie du
fichier et mettre cette copie dans un dossier specifique et que se
fichier portera le nom du fichier + la date du jour
Ceci créer a l'ouverture du classeur dans le répertoire en cours un dossier nommé "Sauvegarde" et y place le classeur avec son nom + la date et l'heure
Dans le thisworkbook '----------------- Private Sub Workbook_Open() Call sauvegarde End Sub '--------------- Dans un module standard '----------------- Sub sauvegarde() Dim Repertoire As String, Fichier As String, nom As String Repertoire = ThisWorkbook.Path & "Sauvegarde" If Dir(Repertoire, 16) = "" Then MkDir Repertoire nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy hh_mm_ss") & ".xls" ThisWorkbook.SaveCopyAs Repertoire & nom End Sub '----------
-- Salutations JJ
"joseph84" a écrit dans le message de news:
Bonjour tout le monde
je voudrais faire un backup d un fichier avant la maj de celui la c est a dire au debut de ma marco que je puisse faire une copie du fichier et mettre cette copie dans un dossier specifique et que se fichier portera le nom du fichier + la date du jour
J'ai placé ces lignes dans le Workbook_open, donc la sauvegarde est créée avant toute modification du fichier
ThierryP
On 9 juin, 19:40, joseph84 wrote:
Bonjour tout le monde
je voudrais faire un backup d un fichier avant la maj de celui la c est a dire au debut de ma marco que je puisse faire une copie du fichier et mettre cette copie dans un dossier specifique et que se fichier portera le nom du fichier + la date du jour
J'ai placé ces lignes dans le Workbook_open, donc la sauvegarde est
créée avant toute modification du fichier
ThierryP
On 9 juin, 19:40, joseph84 <youwangs...@gmail.com> wrote:
Bonjour tout le monde
je voudrais faire un backup d un fichier avant la maj de celui la c
est a dire au debut de ma marco que je puisse faire une copie du
fichier et mettre cette copie dans un dossier specifique et que se
fichier portera le nom du fichier + la date du jour
J'ai placé ces lignes dans le Workbook_open, donc la sauvegarde est créée avant toute modification du fichier
ThierryP
On 9 juin, 19:40, joseph84 wrote:
Bonjour tout le monde
je voudrais faire un backup d un fichier avant la maj de celui la c est a dire au debut de ma marco que je puisse faire une copie du fichier et mettre cette copie dans un dossier specifique et que se fichier portera le nom du fichier + la date du jour
J'ai placé ces lignes dans le Workbook_open, donc la sauvegarde est créée avant toute modification du fichier
ThierryP
On 9 juin, 19:40, joseph84 wrote:
> Bonjour tout le monde
> je voudrais faire un backup d un fichier avant la maj de celui la c > est a dire au debut de ma marco que je puisse faire une copie du > fichier et mettre cette copie dans un dossier specifique et que se > fichier portera le nom du fichier + la date du jour
> merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci bcp tout fonctionne nickel crom :D
On 9 juin, 12:34, ThierryP <petithory.thie...@gmail.com> wrote:
J'ai placé ces lignes dans le Workbook_open, donc la sauvegarde est
créée avant toute modification du fichier
ThierryP
On 9 juin, 19:40, joseph84 <youwangs...@gmail.com> wrote:
> Bonjour tout le monde
> je voudrais faire un backup d un fichier avant la maj de celui la c
> est a dire au debut de ma marco que je puisse faire une copie du
> fichier et mettre cette copie dans un dossier specifique et que se
> fichier portera le nom du fichier + la date du jour
> merci- Masquer le texte des messages précédents -
J'ai placé ces lignes dans le Workbook_open, donc la sauvegarde est créée avant toute modification du fichier
ThierryP
On 9 juin, 19:40, joseph84 wrote:
> Bonjour tout le monde
> je voudrais faire un backup d un fichier avant la maj de celui la c > est a dire au debut de ma marco que je puisse faire une copie du > fichier et mettre cette copie dans un dossier specifique et que se > fichier portera le nom du fichier + la date du jour
> merci- Masquer le texte des messages précédents -