Re : Rechercher l'existence d'un classeur
Re everybody...
Pffttt.... l'orage a fait explosé le cinéma. Mais me revoilou.
Impec pour tester l'existence du fichier. (Merci les amis)
un autre souci maintenant
la sauvegarde.
la procédure ci-dessous n'est pas appréciée par VBA
(Passage en gras)
et je ne fais pas la différence entre entre SaveCopyAs et SaveAs
et (ben oui, on ne m'arrête plus) j'ai toujours le souci de récupérer le path pour sauvegarder dans le même repertoire...
et.... ben je rame...
Private Sub Sauvegarde()
Dim NomFichier As String
Dim FileName As String
Dim RepArchivage As Integer
Dim i As Integer
Dim Derligne As Long
RepArchivage = MsgBox(" OK pour lancer la procédure d'archivage des données." _
& Chr(10) & Chr(10) & "Les présences seront effacées pour l'année en cours." _
& Chr(10) & "Procédure à utiliser en fin d'année scolaire. " _
, vbOKCancel + vbQuestion + vbDefaultButton2, "Suivi de Facturation - Garderie")
Select Case RepArchivage
Case 1
CBSaisies.Enabled = False
CBModifications.Enabled = False
CBEAjouter.Enabled = False
CBEModifier.Enabled = False
CBESupprimer.Enabled = False
CBArchivages.Enabled = False
NomFichier = "Garderie" & " " & Sheets("Menu").Range("G11") & ".xls"
Sheets("Menu").Range("E13").Select
With Selection
.Value = "ARCHIVES"
' là il me faut trouver les commandes pour formater la cellule...
End With
If Existe Then 'le fichier de sauvegarde existe déjà
'là il me faut sauvegarder le classeur.
Else:
ActiveWorkbook.SaveCopyAs FileName:=ThisWorkBook.Path \ NomFichier
End If
' For i = 4 To ThisWorkbook.Sheets.Count 'efface les données des
différentes feuilles
' With Sheets(i)
' Derligne = .Range("A65536").End(xlUp).Row
' .Range("C4:F" & Derligne).Select
' .Selection.Clear
' Next i
' End With
CBSaisies.Enabled = True
CBModifications.Enabled = True
CBEAjouter.Enabled = True
CBEModifier.Enabled = True
CBESupprimer.Enabled = True
CBArchivages.Enabled = True
Case 3
Exit Sub
End Select
End Sub
Merci à vous...
Amicalement
Gianluca