Copier coller dans un autre classer sans formules ni liens

[Atiom]

Bonjour le forum

J’ai un classeur avec plusieurs Feuilles et dans chaque Feuille plusieurs formules et liens entre elles.

Je souhaiterais créer la macro suivante :

1)Copier la Feuil active, mais sans les formules.
2)Ouvrir un autre fichier
3)Coller la Feuil ( Que a été copier dans le point 1 )


Avec quelques recherches j’ai trouvé une partie du code ( ci-dessous ) mais j’ai de la peine à tout mettre ensemble.

Ets-ce que quelqu’un peut me donner un coup de main svp, merci


Cordialement
Atiom

Sub copiespecial()
'Supprimer les liens en faisant copie et collage spécial valeur
      With ActiveSheet.Cells
            .Copy
            .PasteSpecial Paste:=xlPasteValues
      End With
End Sub

 

[Staple1600]

Re : Copier coller dans un autre classer sans formules ni liens

Bonsoir


Je souhaiterais créer la macro suivante :

1)Copier la Feuil active, mais sans les formules.
2)Ouvrir un autre fichier
3)Coller la Feuil ( Que a été copier dans le point 1 )

Tu peux le faire

avec l'enregistreur de macro

ce qui te donnera par exemple

Sub Macro2()
Range("A1:A9").Select
    Selection.Copy
    Workbooks.Open Filename:="C:\test.xls"
    Sheets("Feuil2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\letest.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

 

[pierrejean]

Re : Copier coller dans un autre classer sans formules ni liens

bonjour Atiom

Salut Staple

une autre version:

Sub copie()
 ActiveSheet.Copy
 ActiveWorkbook.SaveAs ("Nouveau Dossier")
 Cells.Select
 Selection.Copy
 Selection.PasteSpecial Paste:=xlValues
 Application.CutCopyMode = False
End Sub

 

[Staple1600]

Re : Copier coller dans un autre classer sans formules ni liens

Re

Qui peut ensuite etre "nettoyée"

[LEFT]Sub Macro2()
Range("A1:A9").Copy ' adapter la plage de cellule
Workbooks.Open Filename:="C:\test.xls" ' à adapter
Sheets("Feuil2").PasteSpecial xlValues, xlNone,  _
False, False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs C:\letest.xls"
ActiveWorkbook.Close
End Sub

[/LEFT]

 

[Staple1600]

Re : Copier coller dans un autre classer sans formules ni liens

Re

Bonsoir pierrejean (et merci pour ton aide involontaire dans un autre post)

Dans ta macro tu n'ouvres pas de fichier non?

Sub copie()
ActiveSheet.Copy
ActiveWorkbook.SaveAs ("Nouveau Dossier")
'On peut faire ca non?
Cells.Copy 'pourquoi ici tu copie à nouveau?
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

 

[Atiom]

Re : Copier coller dans un autre classer sans formules ni liens

Re,

Merci, Staple1600 et pierrejean.
Les deux versions fonctionnent parfaitement.

Mais je pense que celle de pierrejean est plus adapté a ce que je souhaite faire.

Mais la macro de pierrejean enregistre directement le Nouveau Dossier dans :
C:\Documents and Settings\Admin\Mes documents\ Nouveau Dossier.xld

Pour une question pratique et vu que cette macro vas être utiliser par plusieurs utilisateurs je souhaiterai que on demande à l’utilisateur ou il désire l’enregistrer

Alors est-ce que quelqu’un peut me dire comment peut-on modifier la macro de pierrejean ?

Je crois que on doit ajouter :

Application.Dialogs(xlDialogSaveAs).Show

Mais j’obtiens toujours une erreur ¨

Merci de votre aide
Cordialement
Atiom

 

[Atiom]

Re : Copier coller dans un autre classer sans formules ni liens

Re,

J’ai fini pour trouver une partie de la solution.
Mais je n’y arrive pas à jouter le code pour éviter le message voulez-vous enregistrer les modifications apportées.
Je souhaiterais enregistrer et fermer le Classeur qui a été créer avant.

Merci pour votre aide

Cordialement
Atiom

Sub A_copier_feuil_active()
 ActiveSheet.Copy
 Application.Dialogs(xlDialogSaveAs).Show
 Cells.Select
 Selection.Copy
 Selection.PasteSpecial Paste:=xlValues
 Application.CutCopyMode = False
 ActiveWorkbook.Close
 ' ici comment éviter le message voulez-vous enregistrer les modifications apportées à ....'
End Sub

 

[Pierrot93]

Re : Copier coller dans un autre classer sans formules ni liens

Bonjour Atiom, PierrJean, Staple

essaye le code ci dessous :

Application.DisplayAlerts = False
ActiveWorkbook.Close True 'spécifier si les modifications doivent
'être sauvegardées, j'ai mis "True" tu peux remplacer par "False"
Application.DisplayAlerts = True

bonne journée
@+

 

[Atiom]

Re : Copier coller dans un autre classer sans formules ni liens

Bonjour, le forum

Impeccable, ça fonctionne parfaitement.🙂
Merci Pierrot93.
Bonne journée

Cordialement
Atiom