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

modifier code de 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é
bonsoir a tous ,

j ai un code qui fonctionne du tonerre( merci a son createur) pour executer une sauvegarde de document en creant un nouveau classeur et le nomant avec le nom d une cellule
j aimerai effectuer exactement la meme operation , mais que ce ne soit pas un nouveau classeur qui soit crée mais que soit utiliser une copie d'un classeur existant et ensuite renomér ce classeur avec le nom de la cellule

dans le code que je vous transmet une seule feuille est copiée collée
je voudrais modifier cette fonction pour que soit copié et collé deux feuilles apres la creation du classeur




nb j avais posé ce fil mais n ayant pas eu de reponse je le reedite
merci de votre comprehention

ci joint le fichier avec les codes que j utilise

merci de votre aide amicalement

ghislain
 

Pièces jointes

Trier par date Trier par votes
Re : modifier code de sauvegarde

Bonjour GHISKAIN,

Pas très clair tout ceci, d'autant que je ne peux tester la bonne marche sans les bons répertoires sur mon poste de travail.

Je te propose quand-même de modifier ton code comme suit (pour le principe de la démarche) :

Code: 
Sub copieclasseur()

'copie du classeur nomé "ModeleSauvegardeProd.xls" et renomé en "copieclasseur.xls"
' la copie et la creation s'effectue sans ouvrir les classeurs
Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
If Not filesys.FileExists("C:\Sauvegarde feuille Prod\ModeleSauvegardeProd.xls") Then
  MsgBox "Fichier non trouvé !"
  Exit Sub
  Else
  Workbooks.Open Filename:="C:\Sauvegarde feuille Prod\ModeleSauvegardeProd.xls"
  Windows("CC:\AlbaProduction\Sauvegarde feuille Prod\copieclasseur.xls").Activate
  Sheets(Array("jour30", "code30")).Copy Before:=Workbooks("C:\Sauvegarde feuille Prod\ModeleSauvegardeProd.xls").Sheets(1)
  With Workbooks("C:\Sauvegarde feuille Prod\ModeleSauvegardeProd.xls")
    Application.DisplayAlerts = False
    For Each sh In .Sheets
      If Not sh.Name = "jour30" And Not sh.Name = "code30" Then sh.Delete
    Next
    .SaveAs (ThisWorkbook.Path & "\" & .Range("A1") & ".xls")
    Application.DisplayAlerts = True
  End With
End If
End Sub

Il te reste à corriger éventuellement les noms de fichiers ainsi que la référence de la cellule qui contient le nom du nouveau fichier, Range("A1") dans mon exemple.

Espérant avoir répondu.

Cordialement.
 
Vote positif 0 Vote négatif
Re : modifier code de sauvegarde

bonjour papou-net,

merci de te pencher sur mon fil


je viens de tester et tenter de manipuler le code mais je ny parviens pas

je vais tenter de redonner les explications de ce que je souhaite :


1- classeur actif d'ou se deroule le code il est appelé "BonV19.xls"
2- de ce classeur actif je souhaite exporter deux feuilles nomées "jour30" et "code30"
3- j ai en ("C:\Sauvegarde feuille Prod\") un modele de classeur existant appelé " ModeleSauvegardeProd.xls" (je souhaite copier ce classeur pour utiliser les modules si trouvant)

4 - une fois la copie du classeur effectuée je voudrais coller les deux feuilles de mon classeur actif nomées "jour30" et "code30"

5 - et enfin enregistrer ce classeur sous le nom de la cellule f7

merci encore de ton aide precieuse

amicalement ghislain
 
Vote positif 0 Vote négatif
Re : modifier code de sauvegarde


Avec ces explications, je pense avoir mieux compris le problème.

Voici donc ta macro modifiée (j'ai ajouté des commentaires afin de vérifier ma bonne compréhension de ta demande) :

Code: 
Sub copieclasseur()

'copie du classeur nomé "ModeleSauvegardeProd.xls" et renomé en "copieclasseur.xls"
' la copie et la creation s'effectue sans ouvrir les classeurs

Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")

' Vérification de l'existence du fichier modèle
If Not filesys.FileExists("C:\Sauvegarde feuille Prod\ModeleSauvegardeProd.xls") Then
  MsgBox "Fichier non trouvé !"
  Exit Sub
End If
' Ouverture du fichier modèle
Workbooks.Open Filename:="C:\Sauvegarde feuille Prod\ModeleSauvegardeProd.xls"
' Copie des feuilles du fichier actuel dans le fichier modèle
ThisWorkbook.Sheets(Array("jour30", "code30")).Copy after:=ActiveWorkbook.Sheets(Sheets.Count)
' Sauvegarde du fichier modèle modifié sous le nom contenu en cellule F7
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("jour30").Range("F7") & ".xls")

End Sub

Espérant avoir répondu, et restant à ton écoute.

Cordialement.
 
Vote positif 0 Vote négatif
Re : modifier code de sauvegarde

bonjour bonjour papou-net,


je viens de tester le code que tu ma confectionnée il fonctionne a merveille .

les deux feuilles sont copiées et collées

le seul hic c est que les formules sont copiées egalement
il y a t il la possibilité de ne coller que les valeurs?? des cellules??


merci de ton aide

amicalement ghislain
 
Vote positif 0 Vote négatif
Re : modifier code de sauvegarde

GHISLAIN à dit:
les deux feuilles sont copiées et collées

le seul hic c est que les formules sont copiées egalement
il y a t il la possibilité de ne coller que les valeurs?? des cellules??
Cliquez pour agrandir...

Bonsoir GHISLAIN,

Peut-être comme ceci :

Code: 
Sub copieclasseur()

'copie du classeur nomé "ModeleSauvegardeProd.xls" et renomé en "copieclasseur.xls"
' la copie et la creation s'effectue sans ouvrir les classeurs

Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")

' Vérification de l'existence du fichier modèle
If Not filesys.FileExists("C:\Sauvegarde feuille Prod\ModeleSauvegardeProd.xls") Then
  MsgBox "Fichier non trouvé !"
  Exit Sub
End If
Workbooks.Open Filename:="C:\Sauvegarde feuille Prod\ModeleSauvegardeProd.xls"
ThisWorkbook.Sheets(Array("jour30", "code30")).Copy after:=ActiveWorkbook.Sheets(Sheets.Count)
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("jour30").Range("F7") & ".xls")
ThisWorkbook.Sheets("jour30").Cells.Copy
With ActiveWorkbook.Sheets("jour30").Range("A1")
  .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  SkipBlanks:=False, Transpose:=False
End With
ThisWorkbook.Sheets("code30").Cells.Copy
With ActiveWorkbook.Sheets("code30").Range("A1")
  .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  SkipBlanks:=False, Transpose:=False
End With
End Sub

Espérant avoir résolu.

Cordialement.
 
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

R
  • Question Question
XL 2016 sauvegarde de données
2
Réponses
17
Affichages
812
TooFatBoy
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
496
desto
D
J
  • Question Question
XL 2021 fusion impossible
Réponses
1
Affichages
380
Oneida
C
  • Question Question
XL 2013 Copie de formules
Réponses
4
Affichages
487
Cattitude
C
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
562
jeff1494
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
  • Question Question
XL 2013 Modifier un code de sauvegarde
2
Réponses
16
Affichages
1 K
chaelie2015
  • Résolu(e)
XL 2021 Aide adaptation code vba pour complément
Réponses
7
Affichages
382
Nicolas JACQUIN
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
238
sylvanu
S
  • Résolu(e)
Microsoft 365 Choisircols et ajout de colonne
Réponses
14
Affichages
260
AtTheOne
J
  • Question Question
Microsoft 365 Excel exporter en Image JPG
Réponses
4
Affichages
709
patricktoulon
  • Question Question
XL 2016 Sauvegarde dès l'ouverture fichier modèle (xltm) en fichier (xlsm ) avec modification code Workbook_Open
Réponses
10
Affichages
423
piga25
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
606
GClaire
G
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
T
  • Question Question
Microsoft 365 Bouton qui change de taille...
Réponses
3
Affichages
612
ThierryP
T
  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
847
crocrocro
C
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
957
dysorthographie
  • Question Question
Microsoft 365 Curiosité : enregistrement impossible à cause de la liste des erreurs (#NUL!, #DIV/0!, #REF!, etc.)
Réponses
1
Affichages
450
Simply
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
182
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…