Discussion :

[TOTO32]

Bonjour a tous et a toutes, et heureuse année 2017 a tous le mondes !

ca faisait longtemps que j'avais pas poster, lol

M'y connaissant tres peu en VBA, j'aimerais avoir vos lumieres !!!

J'aimerais copier un classeur actif sous un nom different ?

Vous allez me dire, Ben c'est facile il suffit juste de saisir ActiveWorkbook.SaveCopyAs "C:\Users\User\Desktop\test a la con.xlsm"

Jusque la, je suis d'accord avec vous, sauf que moi je veut juste les valeur des cellule et non pas les macro qui vont avec !

Auriez vous une solution pour recuperer juste les valeur de la feuille et pas le reste avec please ???

[joe.levrai]

Bonjour,

remplace xlsm par xlsx, fini les macros

[TOTO32]

Merci pour ta reponse joe.levrai

Perso j'y croyais dur comme fer

Mais non

Mon bouton est copier et les macros aussi, car a l'ouverture de celui-ci il me genere une erreur me disant qu'il ne peut supporter "enfin tout le blabla habituelle"

Sinon merci pour ta reponse

[TOTO32]

Ben alors personne pour m'aider ????

[unparia]

Bonjour

Ben alors personne pour m'aider ????

Tu me parais bien impatient et exigeant (moins de deux heures après avoir ouvert cette discussion)
Tiens, je vais donc te répondre ainsi :
Lorsque l'on veut faire ce que tu dis vouloir faire et qu'on tient absolument à livrer un classeur (sans ses macros) et non des fichiers .csv, cela veut dire qu'on a déjà un bon niveau.
Ce bon niveau devrait donc te permettre de comprendre facilement la méthode suivante
Après avoir sauvegardé sous xlsx :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With ActiveWorkbook.VBProject
 'cette partie du code est de Laurent Longre
  For Each VBC In .VBComponents
   If VBC.Type = 100 Then
    With VBC.CodeModule
     .DeleteLines 1, .CountOfLines
     .CodePane.Window.Close
    End With
   Else: .VBComponents.Remove VBC
   End If
  Next VBC 'LL
 End With
 
 Application.Quit

Bonne nuit.

[TOTO32]

je vais etudier ton code sachant que je n'est pas un bon niveau, par contre je te donne des news a ce niveau !

Ca roule ????

[clementmarcotte]

Auriez vous une solution pour recuperer juste les valeur de la feuille et pas le reste avec please ???

xml, html, txt, collage spécial valeurs seulement, csv, plus un peu d'intelligence évidemment. Mais, de toute évidence, ta cocologie est défectueuse et c'est vraiment sûr que VB.net cela dépasse tes capacités.