enregistrer la feuille dans un dossier sur le disque

Misange

XLDnaute Barbatruc

• 12 Février 2014

• #2

Re : enregistrer la feuille dans un dossier sur le disque

Bonjour
Parce que tu ne peux pas mettre n'importe quoi dans un nom de fichier et en particulier pas de / que tu as dans ta date 🙂
Par ailleurs il ne sert à rien de copier la feuille (tu ne la colles du reste nulle part 🙂

essaie cela

Code:

 Sub test2()
 Dim strDate As String
 strDate = Format(Sheets("Trame").Range("B4"), "dd-mm-yy")
 ThisWorkbook.SaveCopyAs Filename:="paie-" & strDate & ".xlsx"
 End Sub

cela t'enregistre dans le dossier du classeur actif

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 12 Février 2014

• #3

Re : enregistrer la feuille dans un dossier sur le disque

Bonjour Mimi, re bonjour Misange

Si je puis me permetre:
Le fait d'utiliser Sheets("Trame").Copy permet de créer un classeur avec pour unique feuille "Trame" alors que ThisWorkbook.SaveCopyAs va copier tout le classeur sous un autre nom.
Une foi ce classeur créer il s'agit bien du ActiveWorkBook.
Il me semble que lE seul problème du code de Mimi soit le format date qui comporte des"/" comme l'a bien dis Misange.

Cordialement

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 12 Février 2014

• #4

Re : enregistrer la feuille dans un dossier sur le disque

Re,
Tout d'abord merci de prendre un peu de votre temps pour m'aider, la formule marche en ayant modifier l'extension .xlsx en .xlsm, ça enregistre dams mes documents.
Est-il possible de donner le chemin pour enregistrer dans : C:\Nounou\
Merci

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 12 Février 2014

• #5

Re : enregistrer la feuille dans un dossier sur le disque

Re bonjour

En fait ça enregistre dans le dossier où est enregistré ton classeur matrice. Si tu mets celui-ci dans le dossier nounou les copies y seront.
Si tu veux modifier cela :

Code:

 Sub test2()
    Dim strDate As String
    Dim fichier As String
    fichier = "E:\www\paie-"
    strDate = Format(Sheets("Trame").Range("B4"), "dd-mm-yy")
    ThisWorkbook.SaveCopyAs Filename:=fichier & strDate & ".xlsx"
 End Sub

Vu que tu n'as pas besoin de garder la macro dans la copie du classeur, enregistre le plutot en xlsx

@ fred :
je suis d'accord mais vu qu'il n'y a qu'une seule feuille dans ce classeur 🙂

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 12 Février 2014

• #6

Re : enregistrer la feuille dans un dossier sur le disque

Re Bonjour,
Merci à tous sa me convient très bien
@ plus
Mimi

 

Vote positif 0 Vote négatif