Copie sans macros et sans fonctions excel

K

kwakos

XLDnaute Occasionnel
Coucou le forum !!!!

Comment va ? Moi bcp mieux, j'ai dormi !!! :p

Bon et bien de retour dans le monde des gens réveillés, je me pose une ultime question...
Mon classeur jour qui contient 5 feuilles et des tonnes de macros :D, je voudrais en faire une sauvegarde journalière dans un nouveau classeur daté du jour qui ne contient plus que 2 feuilles mais sans les fonctions excel...
Je m'explique:
De mon classeur CAISSE, je veux sauvegarder dans SAFE (feuil1, feuil3), mais dans CAISSE certaines cellules de la feuil1 dependent de la feuil2("config")(que je ne veux pas sauvegarder). Je fais donc un copier/coller pour ne pas me retrouver avec une tonne de macro dans SAFE. Jusque là tout va bien, maintenant dans SAFE qd je regarde mes cellules de calculs, je me retrouve avec des formules types : ='[21 novembre 2008.xls]calcul'!AG7 (où 21 novembre 2008.xls est le fichier temporaire de CAISSE avant sauvegarde)...

En gros : je voudrais que mon classeur SAFE n'ai que le résultats des calculs et non les fonctions de calcul du classeur temporaire...

J'utilise pour l'instant...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim destination As Workbook
Workbooks.Open (ThisWorkbook.Path & "\CLIENTS.xls")
Set destination = ActiveWorkbook
ThisWorkbook.Sheets("Clients").Range("A5:G5000").Copy destination.Sheets("Clients").Range("A5")
destination.Close SaveChanges:=True
Dim destination2 As Workbook
Workbooks.Open (ThisWorkbook.Path & "\SAFE.xls")
Set destination2 = ActiveWorkbook
ThisWorkbook.Sheets("Journee").Range("A2:Q180").Copy destination2.Sheets("Journee").Range("A2")
ThisWorkbook.Sheets("Compte Rendu").Range("A7:Q50").Copy destination2.Sheets("Compte Rendu").Range("A7")
destination2.Close
End Sub

Merci a tous ceux qui auront eu le courage de ma lire et de m'éclairer... :eek:
 
Trier par date Trier par votes
tototiti2008

tototiti2008

XLDnaute Barbatruc
Re : Copie sans macros et sans fonctions excel

Bonjour kwakos,

à tester :

remplacer

Code: 
ThisWorkbook.Sheets("Compte Rendu").Range("A7:Q50").Copy destination2.Sheets("Compte Rendu").Range("A7")

par

Code: 
ThisWorkbook.Sheets("Compte Rendu").Range("A7:Q50").Copy
destination2.activate
destination2.Sheets("Compte Rendu").Range("A7").pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
destination2.Sheets("Compte Rendu").Range("A7").pastespecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
thisworkbook.activate
application.cutcopymode = false
 
Vote positif 0 Vote négatif
K

kwakos

XLDnaute Occasionnel
Re : Copie sans macros et sans fonctions excel

tototiti2008 à dit:
Bonjour kwakos,

à tester :

remplacer

Code: 
ThisWorkbook.Sheets("Compte Rendu").Range("A7:Q50").Copy destination2.Sheets("Compte Rendu").Range("A7")

par

Code: 
ThisWorkbook.Sheets("Compte Rendu").Range("A7:Q50").Copy
destination2.activate
[COLOR="Orange"]destination2.Sheets("Compte Rendu").Range("A7").pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False[/COLOR]
destination2.Sheets("Compte Rendu").Range("A7").pastespecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
thisworkbook.activate
application.cutcopymode = false
Cliquez pour agrandir...

Re forum,
Salut tototiti2008,

Merci de t'etre penché sur mon problème, malheureusement je t'ai surligné là où ça bug.... une idée ???

Encore merci

kwakos
 
Vote positif 0 Vote négatif
Gael

Gael

XLDnaute Barbatruc
Re : Copie sans macros et sans fonctions excel

Bonsoir Kwakos, bonsoir Tototiti2008,

Avec un peu la même idée, j'aurai fait un copier/coller valeurs de chaque feuille:

Code: 
ThisWorkbook.Sheets("Journee").Range("A2:Q180").Co py destination2.Sheets("Journee").Range("A2")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
ThisWorkbook.Sheets("Compte Rendu").Range("A7:Q50").Copy destination2.Sheets("Compte Rendu").Range("A7")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

@+

Gael
 
Vote positif 0 Vote négatif
tototiti2008

tototiti2008

XLDnaute Barbatruc
Re : Copie sans macros et sans fonctions excel

Bonjour Gael,
Re,

dans

destination2.Sheets("Compte Rendu").Range("A7").pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
il faut absolument un espace après SkipBlanks _
 
Vote positif 0 Vote négatif
K

kwakos

XLDnaute Occasionnel
Re : Copie sans macros et sans fonctions excel

Le forum,

Tototiti2008, oui j'ai bien mis l'espace....
Gael, ton code me copie toujours les fonctions de calcul et non le texte affiché...

Oops, je vous embête hein ? :(

En tout cas merci pour vos pistes, je rentre chez moi et me remet à étudier ça...

a plus
 
Vote positif 0 Vote négatif
K

kwakos

XLDnaute Occasionnel
Re : Copie sans macros et sans fonctions excel

Le forum,
Tototiti2008,
Gael,
Alex67800,

Ooooouh, de plus en plus de XLDnautes se penchent sur mon problème...
Malheureusement, Alex67800 cela ne marche pas plus... J'ai toujours les cellules avec fonctions de calcul plutot que les chiffres...

Merci à tous de votre aide

a tout de suite ;)

kwakos
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Copie sans macros et sans fonctions excel

Bonsoir


A essayer (et adapter à tes souhaits)

Code: 
Sub SaveWithoutCodeONLY_VALUES()
'source:turtle44 | 180108
Dim WS As Worksheet
Dim i As Integer
Dim j As Long
Dim sarrWS() As String
ReDim sarrWS(1 To ThisWorkbook.Worksheets.Count)
i = 0
    For Each WS In ThisWorkbook.Worksheets
        i = i + 1
        sarrWS(i) = WS.Name
    Next WS
    For j = 1 To UBound(sarrWS)
    'modifs valeurs seules
        With Worksheets(sarrWS(j))
            With .UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
            .Value = .Value
            End With
        End With
    Next
ThisWorkbook.Worksheets(sarrWS()).Copy
End Sub
 
Vote positif 0 Vote négatif
K

kwakos

XLDnaute Occasionnel
Re : Copie sans macros et sans fonctions excel

Staple1600 à dit:
Bonsoir


A essayer (et adapter à tes souhaits)

Code: 
Sub SaveWithoutCodeONLY_VALUES()
'source:turtle44 | 180108
Dim WS As Worksheet
Dim i As Integer
Dim j As Long
Dim sarrWS() As String
ReDim sarrWS(1 To ThisWorkbook.Worksheets.Count)
i = 0
    For Each WS In ThisWorkbook.Worksheets
        i = i + 1
        sarrWS(i) = WS.Name
    Next WS
    For j = 1 To UBound(sarrWS)
    'modifs valeurs seules
        With Worksheets(sarrWS(j))
            With .UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
            .Value = .Value
            End With
        End With
    Next
ThisWorkbook.Worksheets(sarrWS()).Copy
End Sub
Cliquez pour agrandir...

....

:eek::eek::eek::eek::eek:

:D

Bon alors là je dois admettre que j'ai rien compris à cette formule, mais ayant une confiance sans faille en Staple1600, je vais copier bêtement tout ça :p

Je vous tiens au courant

a+
 
Vote positif 0 Vote négatif
K

kwakos

XLDnaute Occasionnel
Re : Copie sans macros et sans fonctions excel

Tototiti, Gael, Alex, Staple, le forum....

Une nouvelle journée commence et je me relance à corps perdu dans mes classeurs excel...
J'ai testé sur ma feuille ton code Staple, mais ça coince chez moi...

Sub SaveWithoutCodeONLY_VALUES()
'source:turtle44 | 180108
Dim WS As Worksheet
Dim i As Integer
Dim j As Long
Dim sarrWS() As String
ReDim sarrWS(1 To ThisWorkbook.Worksheets.Count)
i = 0
For Each WS In ThisWorkbook.Worksheets
i = i + 1
sarrWS(i) = WS.Name
Next WS
For j = 1 To UBound(sarrWS)
'modifs valeurs seules
With Worksheets(sarrWS(j))
With .UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
.Value = .Value
End With
End With
Next
ThisWorkbook.Worksheets(sarrWS()).Copy
End Sub


Qu'est-ce qui s'passe-t-il donc que c'est qui va pas bien ou quoi ?

Hihi bon je me penche sur la question

a+

kwakos
 
Vote positif 0 Vote négatif
K

kwakos

XLDnaute Occasionnel
Re : Copie sans macros et sans fonctions excel

Re tout le monde

En fait le problème semble venir du fait que j'ai une cellule sélectionnée dans la feuille. En effet Staple1600, sur ta feuille Test, si tu sélectionne une cellule avant de cliquer sur le bouton2, cela bug au même endroit que pour moi...

On approche, on approche.... :)

kwakos
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Copie sans macros et sans fonctions excel

Re


Quand je parlais du petit hic, c'est que la recopie de la feuille, il y a les boutons qui lancent les macros.

Donc il faut rajouter le code pour les supprimer.

Autre possibilité de bug: s'il y a un graphique, il n'est pas recopié

EDITION: Il faut cocher (dans VBE) , dans le menu Outils/Références
Microsoft Visual Basic for Applications Extensibility 5.3

Code: 
Sub SaveWithoutCodeONLY_VALUES()
'source:turtle44 | 180108
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim WS As Worksheet, obj As OLEObject, i%, j&
Dim sarrWS() As String
ReDim sarrWS(1 To ThisWorkbook.Worksheets.Count)
i = 0
    For Each WS In ThisWorkbook.Worksheets
        i = i + 1
        sarrWS(i) = WS.Name
    Next WS
    For j = 1 To UBound(sarrWS)
    'modifs valeurs seules
        With Worksheets(sarrWS(j))
            With .UsedRange
            .Value = .Value
            End With
        End With
    Next
ThisWorkbook.Worksheets(sarrWS()).Copy
'suppression commandbutton
ActiveSheet.OLEObjects.Delete
On Error GoTo 0
'suppression du code VBA
Set VBProj = ActiveWorkbook.VBProject
For Each VBComp In VBProj.VBComponents
If VBComp.Type = vbext_ct_Document Then
Set CodeMod = VBComp.CodeModule
    With CodeMod
        .DeleteLines 1, .CountOfLines
    End With
        Else
    VBProj.VBComponents.Remove VBComp
        End If
Next VBComp
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
A

alex67800

XLDnaute Impliqué
Re : Copie sans macros et sans fonctions excel

Bonjour le forum,
En effectuant des recherches un peu partout j'ai trouvé ceci:

Avec enregister sous:
Ou faire un copier/coller par dessus:

Sub copyShAsWbk()
Dim i As Integer
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs "c:\test.xls"
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Cells.Copy
Sheets(i).[A1].PasteSpecial xlValues
Next i
ActiveWorkbook.Save
End Sub
Cliquez pour agrandir...

Je ne l'ai pas testé. Lol j'ai juste élargit le champ des recherche.

A tester donc.

P.S:
Encore un autre début de piste:

' Sélectionne les feuilles et les copie dans un nouveau classeur
Sheets(Arr).Copy
' Déprotéger toutes les feuilles du nouveau classeur
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Select
ActiveSheet.Unprotect
Next i
Sheets(1).Activate
Range("A1").Select
Application.ScreenUpdating = True
' Elimine les formules et ne conserve que les valeurs
With ActiveWorkbook
For i = 1 To .Sheets.Count
.Sheets(i).UsedRange.Value = .Sheets(i).UsedRange.Value
Next i
End With
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif

Discussions similaires

chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Réinitialiser le fichier initial
Réponses
10
Affichages
533
chaelie2015
chaelie2015
F
  • Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
523
Zon
Z
J
  • Résolu(e)
Microsoft 365 erreur codename et pas nom onglet VBA
Réponses
4
Affichages
350
jamespatagueul
J
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
275
Quentin2106
Q
O
  • Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
406
Oneida
Oneida
CGU2022.
  • Résolu(e)
XL 2013 VBA copie feuille et colle sans Objet (Shape-Image)
Réponses
5
Affichages
728
CGU2022.
CGU2022.
F
  • Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
446
job75
job75
T
  • Résolu(e)
XL 2019 Changement de chemin
Réponses
10
Affichages
934
ChTi160
ChTi160
S
  • Résolu(e)
Microsoft 365 Importer des données d'un fichier excel à un autre avec adresse connue
Réponses
13
Affichages
1 K
sanae_J
S
A
  • Question
XL 2019 Besoin d'aide pour copier les lignes d'un classeur et les coller dans un autre classeur par le bié d'un bouton (VBA)
Réponses
7
Affichages
805
aka100k
A

Membres actuellement en ligne

16 membres et 136 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 570
Messages
2 089 768
Membres
104 271
dernier inscrit
acuponctus