Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

sauvegarde

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion GHISLAIN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

GHISLAIN

XLDnaute Impliqué
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
 

Pièces jointes

Trier par date Trier par votes
Re : sauvegarde

Bonjour,

Si j'ai bien compris :

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
N
  • Résolu(e)
XL 2019 VBA: Copier valeurs de cellules si critère "VRAI" présent
Réponses
5
Affichages
695
fanfan38
M
  • Question Question
XL 2016 VBA - Traitement de données avec valeurs identiques dans un dictionnaire
2
Réponses
28
Affichages
3 K
Mak_tarmak
M
B
  • Question Question
XL 2019 Formule pour extraire les données d'une colonne en fonction d'une autre
Réponses
2
Affichages
889
Bana XIII
B
K
  • Question Question
Microsoft 365 Création d'un journal d'écriture à partir d'un tableau des ventes
2
Réponses
15
Affichages
3 K
CARTER92
C
  • Question Question
XL 2016 Remplir une BDD à partir des feuilles Excel du meme classeur
Réponses
7
Affichages
2 K
sousou
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
D
  • Question Question
Microsoft 365 CREATION DE FICHIER DE SUIVI AUTOMATISE
Réponses
5
Affichages
3 K
desto
D
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
S
  • Question Question
XL 2010 copier coller colonne paire et impaire dans nouveau fichier
Réponses
4
Affichages
3 K
staros
S
F
  • Résolu(e)
XL 2016 VBA transfere donnees si condition ok ,si condition remplie ne pas mettre de ligne blanche
2
Réponses
19
Affichages
2 K
Fabien35200
F
D
  • Résolu(e)
Microsoft 365 Problème formule IF OR and
Réponses
4
Affichages
1 K
Dim
D
V
  • Question Question
XL pour MAC Répartition des tâches sur un planning
Réponses
1
Affichages
2 K
Vincent C
V
A
  • Question Question
XL 2010 Formule pour simulation calcul emprunt
Réponses
3
Affichages
1 K
almapier
A
N
  • Question Question
XL 2016 Transposer des informations pour creer un planning
Réponses
4
Affichages
1 K
WTF
P
  • Question Question
XL 2019 Bloc if sans End If
Réponses
3
Affichages
1 K
Pounet95
P
H
  • Question Question
XL 2016 Récurrence UNIQUE selon plusieurs conditions sur plusieurs colonnes
Réponses
14
Affichages
2 K
hyourinmaruzcdc
H
R
  • Question Question
XL 2016 Extraction données provenant d'une autre feuille de calcul
Réponses
2
Affichages
1 K
ryan-571
R
A
  • Question Question
Microsoft 365 Soustraction cellule visible
Réponses
8
Affichages
2 K
adcom81
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…