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" a écrit dans le message de groupe de
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
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" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : EF5A275C-8790-4A0F-9642-4E124FD8873F@microsoft.com...
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
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" a écrit dans le message de groupe de
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
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" a écrit dans le message de groupe de
> 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
>
>
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" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : EF5A275C-8790-4A0F-9642-4E124FD8873F@microsoft.com...
> 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
>
>
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" a écrit dans le message de groupe de
> 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
>
>
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" a écrit dans le message de groupe de
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
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" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : EF5A275C-8790-4A0F-9642-4E124FD8873F@microsoft.com...
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
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" a écrit dans le message de groupe de
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
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" a écrit dans le message de groupe de
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
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" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : EF5A275C-8790-4A0F-9642-4E124FD8873F@microsoft.com...
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
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" a écrit dans le message de groupe de
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
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" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
> 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
>
>
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" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 7D72D122-9847-4508-811F-1806C4E9D3CB@microsoft.com...
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" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : EF5A275C-8790-4A0F-9642-4E124FD8873F@microsoft.com...
> 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
>
>
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" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
> 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
>
>