sauvegarde

[GHISLAIN]

bonjour le forum,

j essaie d exporter les feuilles d un classeur pour sauvegarde

deux soucis se présentent dans la finalisation de cette sauvegarde

la première est tenir compte des feuilles a exporter de la colonne J
la colonne J pourra être variable , tous les mois ne seront pas obligatoirement
exportés
donc tenir compte de la présence de vide dans la plage J2 a J13



second souci , le code que j essaie d adapter a ma situation exporte
les feuilles en format PDF

je souhaite conserver le format XLS

très cordialement
merci a tous de votre aide et suggestion
<Ghislain

 

[Cousinhub]

Re : sauvegarde

Bonjour,

Si j'ai bien compris :

Private Sub CommandButton2_Click()
Dim Cel As Range
Dim Rep
Dim sDossier As String
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
sDossier = "C:\SAUVEGARDE PLANNING\" & Sheets("bd").Range("f6").Value
Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
For Each Cel In Sheets("bd").Range("J2:J13")
    If Not IsEmpty(Cel) Then
        Sheets(Cel.Value).Copy
        ActiveWorkbook.SaveAs sDossier & "\" & Cel.Value & ".xls"
        ActiveWorkbook.Close False
    End If
Next Cel
Unload Me
End Sub

Par contre, je ne pense pas que le CommandButton1 soit nécessaire, la création du répertoire de sauvegarde se faisant automatiquement par le code ci-dessus.

Bon courage

 

[GHISLAIN]

Re : sauvegarde

bonjour Bhbh,

merci d"etre passé sur mon fil

c'est exactement ce que je souhaitais
j'ai modifié cette ligne ActiveWorkbook.SaveAs sDossier & "\" & Cel.Value & ".xls"

par ActiveWorkbook.SaveAs sDossier & "\" & Cel.Value
pour la raison suivante , quand j'ouvrais une feuille sauvegardé j avais un message comme quoi le format de ce fichier est different ce celui specifié par l'extention du fichier

en suprimant le . xls je n ai plus cette erreur

merci encore

cordialement

ghislain