Sauvegarde

Le
Peponne31
Bonsoir,

Excel 2003
Je voudrais réaliser une sauvegarde d'un classeur par appui sur un bouton et
j'ai nécrit cela
Private Sub SauvegardeProg_Click()
Const Chemin = "Un temps pour elle et lui"
lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")
On Error Resume Next
For i = 0 To 23
ChDrive lettres(i)
ChDir lettres(i) & ":" & Chemin
Var = CurDir
If Err.Number > 0 Then
Err.Clear
Else
Application.ScreenUpdating = False
WorkBook.Copy
Workbooks.SaveAs "Un temps pour elle et lui-" & Format(Date,
"mm") & "-" & _
Format(Date, "yyyy")
mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next i
On Error GoTo 0
End Sub

Mais ça ne fonctionne pas, quelqu'un pourrait me corriger ?
Merci par avance à ceux qui voudront me lire.
Peponne31
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19925281
Bonjour Peponne31

Je n'ai pas testé... je n'ai pas de réseau...

'-----------------------------------------
Sub SauvegardeProg_Click()
Dim Chemin As String

'Chemin = "Un temps pour elle et lui"

lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")

For Each elt In lettres
Chemin = elt & ":" & Chemin
If Dir(Chemin, vbDirectory) = "" Then
MsgBox "Chemin inexistant : " & vbCrLf & _
Chemin
Else
Chemin = Chemin & Format(Date, "mm-yyyy")
ThisWorkbook.SaveCopyAs Chemin
' mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next
End Sub
'-----------------------------------------

"Peponne31" discussion :
Bonsoir,

Excel 2003
Je voudrais réaliser une sauvegarde d'un classeur par appui sur un bouton et
j'ai nécrit cela
Private Sub SauvegardeProg_Click()
Const Chemin = "Un temps pour elle et lui"
lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")
On Error Resume Next
For i = 0 To 23
ChDrive lettres(i)
ChDir lettres(i) & ":" & Chemin
Var = CurDir
If Err.Number > 0 Then
Err.Clear
Else
Application.ScreenUpdating = False
WorkBook.Copy
Workbooks.SaveAs "Un temps pour elle et lui-" & Format(Date,
"mm") & "-" & _
Format(Date, "yyyy")
mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next i
On Error GoTo 0
End Sub

Mais ça ne fonctionne pas, quelqu'un pourrait me corriger ?
Merci par avance à ceux qui voudront me lire.
Peponne31
Peponne31
Le #19925301
bonsoir MichDenis,

j'ai plusieurs messages d'erreurs, déclaration de variables...
sachant le lecteur et le dossier de sauvegarde, ne serait-il pas plus simple
d'intégrer la sauvegarde à la fermeture du classeur ?

"MichDenis" a écrit :

Bonjour Peponne31

Je n'ai pas testé... je n'ai pas de réseau...

'-----------------------------------------
Sub SauvegardeProg_Click()
Dim Chemin As String

'Chemin = "Un temps pour elle et lui"

lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")

For Each elt In lettres
Chemin = elt & ":" & Chemin
If Dir(Chemin, vbDirectory) = "" Then
MsgBox "Chemin inexistant : " & vbCrLf & _
Chemin
Else
Chemin = Chemin & Format(Date, "mm-yyyy")
ThisWorkbook.SaveCopyAs Chemin
' mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next
End Sub
'-----------------------------------------

"Peponne31" discussion :
Bonsoir,

Excel 2003
Je voudrais réaliser une sauvegarde d'un classeur par appui sur un bouton et
j'ai nécrit cela
Private Sub SauvegardeProg_Click()
Const Chemin = "Un temps pour elle et lui"
lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")
On Error Resume Next
For i = 0 To 23
ChDrive lettres(i)
ChDir lettres(i) & ":" & Chemin
Var = CurDir
If Err.Number > 0 Then
Err.Clear
Else
Application.ScreenUpdating = False
WorkBook.Copy
Workbooks.SaveAs "Un temps pour elle et lui-" & Format(Date,
"mm") & "-" & _
Format(Date, "yyyy")
mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next i
On Error GoTo 0
End Sub

Mais ça ne fonctionne pas, quelqu'un pourrait me corriger ?
Merci par avance à ceux qui voudront me lire.
Peponne31




Peponne31
Le #19925321
Re

Je pense avoir résolu mon problème voici ce que j'ai fait

Private Sub CommandButton3_Click()
Dim w
For Each w In Application.Workbooks
w.Save
w.SaveAs "K:sav-progUn tempspour elle et lui.xls"
Next w
mywav6 ' ceci exécute la macro qui est dans le module 5
Application.ScreenUpdating = True
Application.CommandBars.ActiveMenuBar.Enabled = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.DisplayFormulaBar = True
Application.DisplayScrollBars = True
ActiveSheet.Protect
Application.Quit
End Sub
peux tu me dire si cela est correct ?
Merci à toi et bonne nuit
Peponne31

"Peponne31" a écrit :

bonsoir MichDenis,

j'ai plusieurs messages d'erreurs, déclaration de variables...
sachant le lecteur et le dossier de sauvegarde, ne serait-il pas plus simple
d'intégrer la sauvegarde à la fermeture du classeur ?

"MichDenis" a écrit :

> Bonjour Peponne31
>
> Je n'ai pas testé... je n'ai pas de réseau...
>
> '-----------------------------------------
> Sub SauvegardeProg_Click()
> Dim Chemin As String
>
> 'Chemin = "Un temps pour elle et lui"
>
> lettres = Array("c", "d", "e", "f", "g", "h", "i", _
> "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
> "u", "v", "w", "x", "y", "z")
>
> For Each elt In lettres
> Chemin = elt & ":" & Chemin
> If Dir(Chemin, vbDirectory) = "" Then
> MsgBox "Chemin inexistant : " & vbCrLf & _
> Chemin
> Else
> Chemin = Chemin & Format(Date, "mm-yyyy")
> ThisWorkbook.SaveCopyAs Chemin
> ' mywav5 ' ceci exécute la macro qui est dans le module 5
> Sheets("menu").Select
> Exit Sub
> End If
> Next
> End Sub
> '-----------------------------------------
>
> "Peponne31" > discussion :
> Bonsoir,
>
> Excel 2003
> Je voudrais réaliser une sauvegarde d'un classeur par appui sur un bouton et
> j'ai nécrit cela
> Private Sub SauvegardeProg_Click()
> Const Chemin = "Un temps pour elle et lui"
> lettres = Array("c", "d", "e", "f", "g", "h", "i", _
> "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
> "u", "v", "w", "x", "y", "z")
> On Error Resume Next
> For i = 0 To 23
> ChDrive lettres(i)
> ChDir lettres(i) & ":" & Chemin
> Var = CurDir
> If Err.Number > 0 Then
> Err.Clear
> Else
> Application.ScreenUpdating = False
> WorkBook.Copy
> Workbooks.SaveAs "Un temps pour elle et lui-" & Format(Date,
> "mm") & "-" & _
> Format(Date, "yyyy")
> mywav5 ' ceci exécute la macro qui est dans le module 5
> Sheets("menu").Select
> Exit Sub
> End If
> Next i
> On Error GoTo 0
> End Sub
>
> Mais ça ne fonctionne pas, quelqu'un pourrait me corriger ?
> Merci par avance à ceux qui voudront me lire.
> Peponne31
>
>


Peponne31
Le #19925401
Re

La sauvegarde fonctionne bien mais comment pui-je traiter les erreurs si pas
de clef ou de répertoire ?
Merci encore
Peponne31

"MichDenis" a écrit :

Bonjour Peponne31

Je n'ai pas testé... je n'ai pas de réseau...

'-----------------------------------------
Sub SauvegardeProg_Click()
Dim Chemin As String

'Chemin = "Un temps pour elle et lui"

lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")

For Each elt In lettres
Chemin = elt & ":" & Chemin
If Dir(Chemin, vbDirectory) = "" Then
MsgBox "Chemin inexistant : " & vbCrLf & _
Chemin
Else
Chemin = Chemin & Format(Date, "mm-yyyy")
ThisWorkbook.SaveCopyAs Chemin
' mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next
End Sub
'-----------------------------------------

"Peponne31" discussion :
Bonsoir,

Excel 2003
Je voudrais réaliser une sauvegarde d'un classeur par appui sur un bouton et
j'ai nécrit cela
Private Sub SauvegardeProg_Click()
Const Chemin = "Un temps pour elle et lui"
lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")
On Error Resume Next
For i = 0 To 23
ChDrive lettres(i)
ChDir lettres(i) & ":" & Chemin
Var = CurDir
If Err.Number > 0 Then
Err.Clear
Else
Application.ScreenUpdating = False
WorkBook.Copy
Workbooks.SaveAs "Un temps pour elle et lui-" & Format(Date,
"mm") & "-" & _
Format(Date, "yyyy")
mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next i
On Error GoTo 0
End Sub

Mais ça ne fonctionne pas, quelqu'un pourrait me corriger ?
Merci par avance à ceux qui voudront me lire.
Peponne31




MichDenis
Le #19925441
Pour vérifier si un répertoire existe ,

If Dir(Chemin & Fichier, vbDirectory) = "" Then
Msgbox "Répertoire inexistant
else
'tout est ok


end if

"Peponne31" discussion :
Re

La sauvegarde fonctionne bien mais comment pui-je traiter les erreurs si pas
de clef ou de répertoire ?
Merci encore
Peponne31

"MichDenis" a écrit :

Bonjour Peponne31

Je n'ai pas testé... je n'ai pas de réseau...

'-----------------------------------------
Sub SauvegardeProg_Click()
Dim Chemin As String

'Chemin = "Un temps pour elle et lui"

lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")

For Each elt In lettres
Chemin = elt & ":" & Chemin
If Dir(Chemin, vbDirectory) = "" Then
MsgBox "Chemin inexistant : " & vbCrLf & _
Chemin
Else
Chemin = Chemin & Format(Date, "mm-yyyy")
ThisWorkbook.SaveCopyAs Chemin
' mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next
End Sub
'-----------------------------------------

"Peponne31" discussion :
Bonsoir,

Excel 2003
Je voudrais réaliser une sauvegarde d'un classeur par appui sur un bouton et
j'ai nécrit cela
Private Sub SauvegardeProg_Click()
Const Chemin = "Un temps pour elle et lui"
lettres = Array("c", "d", "e", "f", "g", "h", "i", _
"j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
"u", "v", "w", "x", "y", "z")
On Error Resume Next
For i = 0 To 23
ChDrive lettres(i)
ChDir lettres(i) & ":" & Chemin
Var = CurDir
If Err.Number > 0 Then
Err.Clear
Else
Application.ScreenUpdating = False
WorkBook.Copy
Workbooks.SaveAs "Un temps pour elle et lui-" & Format(Date,
"mm") & "-" & _
Format(Date, "yyyy")
mywav5 ' ceci exécute la macro qui est dans le module 5
Sheets("menu").Select
Exit Sub
End If
Next i
On Error GoTo 0
End Sub

Mais ça ne fonctionne pas, quelqu'un pourrait me corriger ?
Merci par avance à ceux qui voudront me lire.
Peponne31




Peponne31
Le #19925461
Je l'ai intégré mais sans résultat, je vérai demain
merci beaucoup et bonne nuit.
Peponne31

"MichDenis" a écrit :

Pour vérifier si un répertoire existe ,

If Dir(Chemin & Fichier, vbDirectory) = "" Then
Msgbox "Répertoire inexistant
else
'tout est ok


end if

"Peponne31" discussion :
Re

La sauvegarde fonctionne bien mais comment pui-je traiter les erreurs si pas
de clef ou de répertoire ?
Merci encore
Peponne31

"MichDenis" a écrit :

> Bonjour Peponne31
>
> Je n'ai pas testé... je n'ai pas de réseau...
>
> '-----------------------------------------
> Sub SauvegardeProg_Click()
> Dim Chemin As String
>
> 'Chemin = "Un temps pour elle et lui"
>
> lettres = Array("c", "d", "e", "f", "g", "h", "i", _
> "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
> "u", "v", "w", "x", "y", "z")
>
> For Each elt In lettres
> Chemin = elt & ":" & Chemin
> If Dir(Chemin, vbDirectory) = "" Then
> MsgBox "Chemin inexistant : " & vbCrLf & _
> Chemin
> Else
> Chemin = Chemin & Format(Date, "mm-yyyy")
> ThisWorkbook.SaveCopyAs Chemin
> ' mywav5 ' ceci exécute la macro qui est dans le module 5
> Sheets("menu").Select
> Exit Sub
> End If
> Next
> End Sub
> '-----------------------------------------
>
> "Peponne31" > discussion :
> Bonsoir,
>
> Excel 2003
> Je voudrais réaliser une sauvegarde d'un classeur par appui sur un bouton et
> j'ai nécrit cela
> Private Sub SauvegardeProg_Click()
> Const Chemin = "Un temps pour elle et lui"
> lettres = Array("c", "d", "e", "f", "g", "h", "i", _
> "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _
> "u", "v", "w", "x", "y", "z")
> On Error Resume Next
> For i = 0 To 23
> ChDrive lettres(i)
> ChDir lettres(i) & ":" & Chemin
> Var = CurDir
> If Err.Number > 0 Then
> Err.Clear
> Else
> Application.ScreenUpdating = False
> WorkBook.Copy
> Workbooks.SaveAs "Un temps pour elle et lui-" & Format(Date,
> "mm") & "-" & _
> Format(Date, "yyyy")
> mywav5 ' ceci exécute la macro qui est dans le module 5
> Sheets("menu").Select
> Exit Sub
> End If
> Next i
> On Error GoTo 0
> End Sub
>
> Mais ça ne fonctionne pas, quelqu'un pourrait me corriger ?
> Merci par avance à ceux qui voudront me lire.
> Peponne31
>
>



Publicité
Poster une réponse
Anonyme