Bonjour à Tous,
J'aurais besoin d'aide.
Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle.
J'espère être simple et clair...
Bouton de sauvegarde avec alerte, compteur et validation.
Merci à tous pour votre aide
@++
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonjour,
Le fichier existe bien. Je teste la solution et je reviens vers toi. Merci. @+
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous,
J'aurais besoin d'aide.
Etant débutant en VBA, pourriez-vous m'aider à créer un
bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je
souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte
(rouge par exemple) et validation manuelle.
J'espère être simple et clair...
Bouton de sauvegarde avec alerte, compteur et validation.
Merci à tous pour votre aide
@++
Bonjour,
Le fichier existe bien.
Je teste la solution et je reviens vers toi.
Merci.
@+
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonjour,
Le fichier existe bien. Je teste la solution et je reviens vers toi. Merci. @+
MichD
Bonjour,
J'ai lu en diagonale... et ceci est particulier :
'--------------------------- If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & _ "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then Kill Repertoire & fichier ThisWorkbook.SaveCopyAs Repertoire & nom End If '---------------------------
Peut-on supprimer un fichier ouvert ? Kill Repertoire & fichier
MichD ------------------------------------------
Bonjour,
J'ai lu en diagonale... et ceci est particulier :
'---------------------------
If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & _
"Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then
Kill Repertoire & fichier
ThisWorkbook.SaveCopyAs Repertoire & nom
End If
'---------------------------
Peut-on supprimer un fichier ouvert ?
Kill Repertoire & fichier
'--------------------------- If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & _ "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then Kill Repertoire & fichier ThisWorkbook.SaveCopyAs Repertoire & nom End If '---------------------------
Peut-on supprimer un fichier ouvert ? Kill Repertoire & fichier
MichD ------------------------------------------
Jacky
Bonjour,
Peut-on supprimer un fichier ouvert ?
Ce fichier n'est pas le classeur ouvert, mais se trouve dans le répertoire "Sauvegarde" crée à la première utilisation. Le code le supprime à la condition décrite (90Jours) et est remplacé par une copie de celui en cours avec comme nom le "nom du classeur" concaténer avec la "date du jour" si l'utilisateur confirme par le bouton "oui". Je ne sers de ce code personnellement , et je n'ai pas de problème.
-- Salutations JJ
"MichD" a écrit dans le message de news: ja5lku$pao$
Bonjour,
J'ai lu en diagonale... et ceci est particulier :
'--------------------------- If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & _ "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then Kill Repertoire & fichier ThisWorkbook.SaveCopyAs Repertoire & nom End If '---------------------------
Peut-on supprimer un fichier ouvert ? Kill Repertoire & fichier
MichD ------------------------------------------
Bonjour,
Peut-on supprimer un fichier ouvert ?
Ce fichier n'est pas le classeur ouvert, mais se trouve dans le répertoire "Sauvegarde" crée à la première
utilisation.
Le code le supprime à la condition décrite (90Jours) et est remplacé par une copie de celui en cours avec
comme nom le "nom du classeur" concaténer avec la "date du jour" si l'utilisateur confirme par le bouton
"oui".
Je ne sers de ce code personnellement , et je n'ai pas de problème.
--
Salutations
JJ
"MichD" <michdenis@hotmail.com> a écrit dans le message de news: ja5lku$pao$1@speranza.aioe.org...
Bonjour,
J'ai lu en diagonale... et ceci est particulier :
'---------------------------
If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & _
"Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then
Kill Repertoire & fichier
ThisWorkbook.SaveCopyAs Repertoire & nom
End If
'---------------------------
Peut-on supprimer un fichier ouvert ?
Kill Repertoire & fichier
Ce fichier n'est pas le classeur ouvert, mais se trouve dans le répertoire "Sauvegarde" crée à la première utilisation. Le code le supprime à la condition décrite (90Jours) et est remplacé par une copie de celui en cours avec comme nom le "nom du classeur" concaténer avec la "date du jour" si l'utilisateur confirme par le bouton "oui". Je ne sers de ce code personnellement , et je n'ai pas de problème.
-- Salutations JJ
"MichD" a écrit dans le message de news: ja5lku$pao$
Bonjour,
J'ai lu en diagonale... et ceci est particulier :
'--------------------------- If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & _ "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then Kill Repertoire & fichier ThisWorkbook.SaveCopyAs Repertoire & nom End If '---------------------------
Peut-on supprimer un fichier ouvert ? Kill Repertoire & fichier
Re... Avant la PREMIERE utilisation, il est indispensable de supprimer de répertoire "Sauvegarde" avec ce qu'il contient (s'il existe dans le chemin concerné) par l'explorateur Windows avec Excel fermé.
-- Salutations JJ
"man77" a écrit dans le message de news:
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonjour,
Le fichier existe bien. Je teste la solution et je reviens vers toi. Merci. @+
Re...
Avant la PREMIERE utilisation, il est indispensable de supprimer de répertoire "Sauvegarde" avec ce qu'il
contient (s'il existe dans le chemin concerné) par l'explorateur Windows avec Excel fermé.
--
Salutations
JJ
"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
CcadnV_Vtbva31vTRVn_vwA@giganews.com...
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous,
J'aurais besoin d'aide.
Etant débutant en VBA, pourriez-vous m'aider à créer un
bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je
souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte
(rouge par exemple) et validation manuelle.
J'espère être simple et clair...
Bouton de sauvegarde avec alerte, compteur et validation.
Merci à tous pour votre aide
@++
Bonjour,
Le fichier existe bien.
Je teste la solution et je reviens vers toi.
Merci.
@+
Re... Avant la PREMIERE utilisation, il est indispensable de supprimer de répertoire "Sauvegarde" avec ce qu'il contient (s'il existe dans le chemin concerné) par l'explorateur Windows avec Excel fermé.
-- Salutations JJ
"man77" a écrit dans le message de news:
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonjour,
Le fichier existe bien. Je teste la solution et je reviens vers toi. Merci. @+
man77
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonsoir, J'ai testé et ... :-( En effet il y a un problème. Il ne me sauvegarde pas à chaque nouvelle ouverture... De plus j'utilise ce réertoire "sauvegarde" pour d'autres sauvegarde et là c'est la panique. Il me mets une erreur . Dois-je créer un répertoire sauvegarde par famille de sauvegarde? Dois-je effacer ma sauvegarde? Je souhaite que l'utilisateur sois informé mais qu'il n'efface rien. C'est un problème de procédure interne. Merci de votre aide. @++
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous,
J'aurais besoin d'aide.
Etant débutant en VBA, pourriez-vous m'aider à créer un
bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je
souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte
(rouge par exemple) et validation manuelle.
J'espère être simple et clair...
Bouton de sauvegarde avec alerte, compteur et validation.
Merci à tous pour votre aide
@++
Bonsoir,
J'ai testé et ... :-(
En effet il y a un problème.
Il ne me sauvegarde pas à chaque nouvelle ouverture...
De plus j'utilise ce réertoire "sauvegarde" pour d'autres sauvegarde et là c'est la panique.
Il me mets une erreur .
Dois-je créer un répertoire sauvegarde par famille de sauvegarde?
Dois-je effacer ma sauvegarde?
Je souhaite que l'utilisateur sois informé mais qu'il n'efface rien.
C'est un problème de procédure interne.
Merci de votre aide.
@++
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonsoir, J'ai testé et ... :-( En effet il y a un problème. Il ne me sauvegarde pas à chaque nouvelle ouverture... De plus j'utilise ce réertoire "sauvegarde" pour d'autres sauvegarde et là c'est la panique. Il me mets une erreur . Dois-je créer un répertoire sauvegarde par famille de sauvegarde? Dois-je effacer ma sauvegarde? Je souhaite que l'utilisateur sois informé mais qu'il n'efface rien. C'est un problème de procédure interne. Merci de votre aide. @++
man77
Jacky a écrit le 10/11/2011 à 13h42 :
Bonjour, Ceci crée un répertoire nommé "Sauvegarde" dans le chemin du fichier en cours à son 1er lancement et y place une copie du fichier en cours. Contrôle à chaque ouverture si une nouvelle sauvegarde est nécessaire
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" nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy hh_mm_ss") & ".xls" If Dir(Repertoire, 16) = "" Then MkDir Repertoire ThisWorkbook.SaveCopyAs Repertoire & nom End If '---------- Fichier = Dir(Repertoire) If Date - CDate(Left(Right(Fichier, 23), 10)) >= 100 Then If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then Kill Repertoire & Fichier ThisWorkbook.SaveCopyAs Repertoire & nom End If End If End Sub '----------------------
-- Salutations JJ
"man77" a écrit dans le message de news:
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Encore moi... Exsusez moi mais j'avais oublié : If Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10)) > 90 Then Il me mets il erreur là aussi... Et l'enregistrement ne fonctionne pas... Merci à tous pour votre aide @+
Jacky a écrit le 10/11/2011 à 13h42 :
Bonjour,
Ceci crée un répertoire nommé "Sauvegarde" dans
le chemin du fichier en cours à son 1er lancement et y place
une copie du fichier en cours.
Contrôle à chaque ouverture si une nouvelle sauvegarde est
nécessaire
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"
nom = "Sauvegarde de " & ThisWorkbook.Name & " du "
& Format(Now, "dd mm yyyy hh_mm_ss") & ".xls"
If Dir(Repertoire, 16) = "" Then
MkDir Repertoire
ThisWorkbook.SaveCopyAs Repertoire & nom
End If
'----------
Fichier = Dir(Repertoire)
If Date - CDate(Left(Right(Fichier, 23), 10)) >= 100 Then
If MsgBox("La date de sauvegarde de votre fichier est
périmée." & vbLf & "Voulez-vous procéder
à une
nouvelle sauvegarde", 292, "Information") = 6 Then
Kill Repertoire & Fichier
ThisWorkbook.SaveCopyAs Repertoire & nom
End If
End If
End Sub
'----------------------
--
Salutations
JJ
"man77" a écrit
dans le message de news:
Bonjour à Tous,
J'aurais besoin d'aide.
Etant débutant en VBA, pourriez-vous m'aider à créer un
bouton de sauvegarde
auto du fichier actif sous un autre répertoire. Je souhaiterais que
cette
sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et
validation manuelle.
J'espère être simple et clair...
Bouton de sauvegarde avec alerte, compteur et validation.
Merci à tous pour votre aide
@++
Encore moi...
Exsusez moi mais j'avais oublié :
If Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10)) > 90 Then
Il me mets il erreur là aussi...
Et l'enregistrement ne fonctionne pas...
Merci à tous pour votre aide
@+
Bonjour, Ceci crée un répertoire nommé "Sauvegarde" dans le chemin du fichier en cours à son 1er lancement et y place une copie du fichier en cours. Contrôle à chaque ouverture si une nouvelle sauvegarde est nécessaire
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" nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy hh_mm_ss") & ".xls" If Dir(Repertoire, 16) = "" Then MkDir Repertoire ThisWorkbook.SaveCopyAs Repertoire & nom End If '---------- Fichier = Dir(Repertoire) If Date - CDate(Left(Right(Fichier, 23), 10)) >= 100 Then If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then Kill Repertoire & Fichier ThisWorkbook.SaveCopyAs Repertoire & nom End If End If End Sub '----------------------
-- Salutations JJ
"man77" a écrit dans le message de news:
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Encore moi... Exsusez moi mais j'avais oublié : If Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10)) > 90 Then Il me mets il erreur là aussi... Et l'enregistrement ne fonctionne pas... Merci à tous pour votre aide @+
Jacky
RE... Heu...
En effet il y a un problème. Il ne me sauvegarde pas à chaque nouvelle ouverture...
La demande est:
souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte
Le répertoire "sauvegarde" crée par le code fourni DOIT ETRE RESERVE à ce classeur
c'est la panique. Il me mets une erreur .
Si ce code fait des erreurs, c'est qu'il a été modifié.
Reformule ta demande avec plus de précision
-- Salutations JJ
"man77" a écrit dans le message de news:
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonsoir, J'ai testé et ... :-( En effet il y a un problème. Il ne me sauvegarde pas à chaque nouvelle ouverture... De plus j'utilise ce réertoire "sauvegarde" pour d'autres sauvegarde et là c'est la panique. Il me mets une erreur . Dois-je créer un répertoire sauvegarde par famille de sauvegarde? Dois-je effacer ma sauvegarde? Je souhaite que l'utilisateur sois informé mais qu'il n'efface rien. C'est un problème de procédure interne. Merci de votre aide. @++
RE...
Heu...
En effet il y a un problème.
Il ne me sauvegarde pas à chaque nouvelle ouverture...
La demande est:
souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte
Le répertoire "sauvegarde" crée par le code fourni DOIT ETRE RESERVE à ce classeur
c'est la panique.
Il me mets une erreur .
Si ce code fait des erreurs, c'est qu'il a été modifié.
Reformule ta demande avec plus de précision
--
Salutations
JJ
"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
lY2dndlTjqud4VfT4p2dnAA@giganews.com...
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous,
J'aurais besoin d'aide.
Etant débutant en VBA, pourriez-vous m'aider à créer un
bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je
souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte
(rouge par exemple) et validation manuelle.
J'espère être simple et clair...
Bouton de sauvegarde avec alerte, compteur et validation.
Merci à tous pour votre aide
@++
Bonsoir,
J'ai testé et ... :-(
En effet il y a un problème.
Il ne me sauvegarde pas à chaque nouvelle ouverture...
De plus j'utilise ce réertoire "sauvegarde" pour d'autres sauvegarde et là
c'est la panique.
Il me mets une erreur .
Dois-je créer un répertoire sauvegarde par famille de sauvegarde?
Dois-je effacer ma sauvegarde?
Je souhaite que l'utilisateur sois informé mais qu'il n'efface rien.
C'est un problème de procédure interne.
Merci de votre aide.
@++
En effet il y a un problème. Il ne me sauvegarde pas à chaque nouvelle ouverture...
La demande est:
souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte
Le répertoire "sauvegarde" crée par le code fourni DOIT ETRE RESERVE à ce classeur
c'est la panique. Il me mets une erreur .
Si ce code fait des erreurs, c'est qu'il a été modifié.
Reformule ta demande avec plus de précision
-- Salutations JJ
"man77" a écrit dans le message de news:
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonsoir, J'ai testé et ... :-( En effet il y a un problème. Il ne me sauvegarde pas à chaque nouvelle ouverture... De plus j'utilise ce réertoire "sauvegarde" pour d'autres sauvegarde et là c'est la panique. Il me mets une erreur . Dois-je créer un répertoire sauvegarde par famille de sauvegarde? Dois-je effacer ma sauvegarde? Je souhaite que l'utilisateur sois informé mais qu'il n'efface rien. C'est un problème de procédure interne. Merci de votre aide. @++
man77
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonjour à Tous, Excusez-moi si j'insiste et surtout si j'ai du mal à m'expliquer... Vraiment désolé de vous embêter. Voilà ce que j'ai écris :
Sub sauvegarde() Repertoire = "R:Technique-MaintenanceSauvegarde-Stock" nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy") & ".xls" If Dir(Repertoire, 16) = "" Then MkDir Repertoire ThisWorkbook.SaveCopyAs Repertoire & nom End If '------------ Fichier = Dir(Repertoire) If Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10)) > 90 Then If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then Kill Repertoire & Fichier ThisWorkbook.SaveCopyAs Repertoire & nom End If Else [e13] = "Il reste " & 90 - (Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10))) & " jour(s) avant la prochaine sauvegarde AUTO " End If End Sub
Lors de l'exécution le message d'erreur est :
erreur d'exécution '13' incompatibilité de type
Le fichier cible "R:Technique-MaintenanceSauvegarde-Stock" est bien vide.
Voilà, merci de votre aide.
man77 a écrit le 10/11/2011 à 12h11 :
Bonjour à Tous,
J'aurais besoin d'aide.
Etant débutant en VBA, pourriez-vous m'aider à créer un
bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je
souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte
(rouge par exemple) et validation manuelle.
J'espère être simple et clair...
Bouton de sauvegarde avec alerte, compteur et validation.
Merci à tous pour votre aide
@++
Bonjour à Tous,
Excusez-moi si j'insiste et surtout si j'ai du mal à m'expliquer...
Vraiment désolé de vous embêter.
Voilà ce que j'ai écris :
Sub sauvegarde()
Repertoire = "R:Technique-MaintenanceSauvegarde-Stock"
nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy") & ".xls"
If Dir(Repertoire, 16) = "" Then
MkDir Repertoire
ThisWorkbook.SaveCopyAs Repertoire & nom
End If
'------------
Fichier = Dir(Repertoire)
If Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10)) > 90 Then
If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then
Kill Repertoire & Fichier
ThisWorkbook.SaveCopyAs Repertoire & nom
End If
Else
[e13] = "Il reste " & 90 - (Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10))) & " jour(s) avant la prochaine sauvegarde AUTO "
End If
End Sub
Lors de l'exécution le message d'erreur est :
erreur d'exécution '13'
incompatibilité de type
Le fichier cible "R:Technique-MaintenanceSauvegarde-Stock" est bien vide.
Bonjour à Tous, J'aurais besoin d'aide. Etant débutant en VBA, pourriez-vous m'aider à créer un bouton de sauvegarde auto du fichier actif sous un autre répertoire. Je souhaiterais que cette sauvegarde s'effectue tous les 100 jour avec alerte (rouge par exemple) et validation manuelle. J'espère être simple et clair... Bouton de sauvegarde avec alerte, compteur et validation. Merci à tous pour votre aide @++
Bonjour à Tous, Excusez-moi si j'insiste et surtout si j'ai du mal à m'expliquer... Vraiment désolé de vous embêter. Voilà ce que j'ai écris :
Sub sauvegarde() Repertoire = "R:Technique-MaintenanceSauvegarde-Stock" nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy") & ".xls" If Dir(Repertoire, 16) = "" Then MkDir Repertoire ThisWorkbook.SaveCopyAs Repertoire & nom End If '------------ Fichier = Dir(Repertoire) If Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10)) > 90 Then If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then Kill Repertoire & Fichier ThisWorkbook.SaveCopyAs Repertoire & nom End If Else [e13] = "Il reste " & 90 - (Date - CDate(Left(Mid(Fichier, Len(ThisWorkbook.Name) + 19, Len(ThisWorkbook.Name)), 10))) & " jour(s) avant la prochaine sauvegarde AUTO " End If End Sub
Lors de l'exécution le message d'erreur est :
erreur d'exécution '13' incompatibilité de type
Le fichier cible "R:Technique-MaintenanceSauvegarde-Stock" est bien vide.
Voilà, merci de votre aide.
Gloops
man77 a écrit, le 18/11/2011 10:18 :
Bonjour, Bonjour,
De nouveau besoin d'aide. Après plusieurs tests ça ne fonctionne pas. Peux-tu m'aider stp :
Sub sauvegarde()
Repertoire = "R:Technique-MaintenanceSauvegarde" nom = "Sauvegarde de "& ThisWorkbook.Name& " du "& Format(Now, "dd mm yyyy") & ".xls" If Dir(Repertoire, 16) = "" Then MkDir Repertoire ThisWorkbook.SaveCopyAs Repertoire& nom End If '---------- Fichier = Dir(Repertoire) If Date - CDate(Left(Right(Fichier, 23), 10))>= 90 Then If MsgBox("La date de sauvegarde de votre fichier est périmée."& v bLf& "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information ") = 6 Then Kill Repertoire& Fichier ThisWorkbook.SaveCopyAs Repertoire& nom End If Else [e13] = "Il reste "& 90 - (Date - CDate(Left(Right(Fichier, 23), 10) ))& " jour(s) avant la prochaine sauvegarde AUTO "
End If End Sub
Le problème est au niveau de cdate et du Kill... Merci et @++
Je crois que Daniel a répondu pour le Kill. Pour ce qui est de la comparaison de dates, essaie plutôt avec DateValu e.
man77 a écrit, le 18/11/2011 10:18 :
Bonjour, Bonjour,
De nouveau besoin d'aide.
Après plusieurs tests ça ne fonctionne pas.
Peux-tu m'aider stp :
Sub sauvegarde()
Repertoire = "R:Technique-MaintenanceSauvegarde"
nom = "Sauvegarde de "& ThisWorkbook.Name& " du "& Format(Now, "dd mm yyyy")
& ".xls"
If Dir(Repertoire, 16) = "" Then
MkDir Repertoire
ThisWorkbook.SaveCopyAs Repertoire& nom
End If
'----------
Fichier = Dir(Repertoire)
If Date - CDate(Left(Right(Fichier, 23), 10))>= 90 Then
If MsgBox("La date de sauvegarde de votre fichier est périmée."& v bLf&
"Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information ") = 6 Then
Kill Repertoire& Fichier
ThisWorkbook.SaveCopyAs Repertoire& nom
End If
Else
[e13] = "Il reste "& 90 - (Date - CDate(Left(Right(Fichier, 23), 10) ))& "
jour(s) avant la prochaine sauvegarde AUTO "
End If
End Sub
Le problème est au niveau de cdate et du Kill...
Merci et @++
Je crois que Daniel a répondu pour le Kill.
Pour ce qui est de la comparaison de dates, essaie plutôt avec DateValu e.
De nouveau besoin d'aide. Après plusieurs tests ça ne fonctionne pas. Peux-tu m'aider stp :
Sub sauvegarde()
Repertoire = "R:Technique-MaintenanceSauvegarde" nom = "Sauvegarde de "& ThisWorkbook.Name& " du "& Format(Now, "dd mm yyyy") & ".xls" If Dir(Repertoire, 16) = "" Then MkDir Repertoire ThisWorkbook.SaveCopyAs Repertoire& nom End If '---------- Fichier = Dir(Repertoire) If Date - CDate(Left(Right(Fichier, 23), 10))>= 90 Then If MsgBox("La date de sauvegarde de votre fichier est périmée."& v bLf& "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information ") = 6 Then Kill Repertoire& Fichier ThisWorkbook.SaveCopyAs Repertoire& nom End If Else [e13] = "Il reste "& 90 - (Date - CDate(Left(Right(Fichier, 23), 10) ))& " jour(s) avant la prochaine sauvegarde AUTO "
End If End Sub
Le problème est au niveau de cdate et du Kill... Merci et @++
Je crois que Daniel a répondu pour le Kill. Pour ce qui est de la comparaison de dates, essaie plutôt avec DateValu e.
