Copier coller valeur

Bonjour le forum

Je suis debutante en VBA, mon probleme est le suivant:

J'ai un classeur qui contient 3 feuilles, dans chacune de feuille figure un tableau avec des formules. Mon but est une fois l'utilisateur a rouler le rapport, il peut faire :

1- enregistrer une copie du classeur dans son ensemble "en valeur" dans C/bureau

2- le nom du rapport figure a la feuille 1, cellule A1

3- Le classeur original (ou Master ) conserve toutes ses formules

j'ai essayée de developper le code suivant mais ca ne fonctionne pas

Option Explicit

Public Sub Enregistrement()

    Dim ChDir As String
    Dim NomFichier As String
    Dim NomCompletFichier As String
    Dim name As String

    ChDir = Application.ActiveWorkbook.Path
    ChDir = "C/JB"

    name = Range("a1").Value

    NomFichier = name

    NomCompletFichier = ChDir & "\" & NomFichier
    ActiveSheet.Copy

    With Sheets("Feuil1")
    .Range("a2:c9").Copy
    Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
   End With
 With Sheets("Feuil2")
    .Range("a2:c9").Copy
    Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
   End With
 With Sheets("Feuil3")
    .Range("a2:c9").Copy
    Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
   End With
    ActiveWorkbook.SaveAs Filename:=NomCompletFichier
    ActiveWorkbook.Close

    MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomCompletFichier

End Sub

ci-joint le fichier en question

Merci ci

Bonjour Vba1 le forum

tu es débutante en vba?? oui on s'en doute bien, en lisant ta macro

alors déjà tu veux obtenir quoi exactement??

car :

ChDir = Application.ActiveWorkbook.Path
        ChDir = "C/JB"

est-ce que tu sais ce que tu fais avec les deux lignes ci-dessus??

tu donnes à ta variable Chdir la valeur du path de ton fichier dans la ligne 1 et juste après tu lui dit que Chdir et égal à "C/JB"

alors déjà là il faut savoir ce que tu veux !!!!

je vais relire le début du post voir si j'arrive à comprendre ce que tu souhaites

a+

Papou

Bonjour,

Tu utilises comme nom de variable ChDir... qui est une instruction qui a pour effet de modifier le répertoire courant vers lequel pointe l'application...

Ça, ce n'est pas (mais vraiment pas !) du tout malin, !

Il faut éliminer sans tarder cette source de problèmes... et tu devrais préciser plus clairement les opérations successives que tu veux accomplir, cela premettra de faire le tri dans ton code...

Cordialement.