Sauvegarder dans le bon dossier

[scorplo77]

Bonjour à tous, j’ai quelques notion sous Excel, mais très peu en VBA, et je dois réaliser pour mon frère qui se lance en auto-entrepreneur dans le terrassement, une feuille de calcul pour ses devis et factures.

Problème n°1, J’ai créé un bouton pour la sauvegarde sous le nom de 3 cellules à la suite, le problème c’est que le fichier s’enregistre dans mes documents et non pas dans le dossier de la société. Voici ma macro

Sub enregister()
Dim NOM As String
NOM = Range("N3")
ThisWorkbook.SaveAs (NOM)
End Sub


N3 est la combinaison de 3 cellules
Merci !!!

 

[Excel-lent]

Re : Sauvegarder dans le bon dossier

Bonjour et bienvenu sur le forum Scorplo77,

Dans ta macro, tu n'indique pas où enregistrer la macro.

Alors forcément Excel fait comme il peut 😉

ThisWorkbook.SaveAs "c\Société Tartanpion\Devis et facture 2010\Fichier 01 2011.xls"

Bref, comme tu peux le remarquer il faut indiquer le chemin exacte.

Bonne journée

Cordialement

 

[scorplo77]

Re : Sauvegarder dans le bon dossier

Merci beaucoup excel-lent, tu n'es pas si lent d'ailleurs.

Par contre je voudrais enregistrer que la feuille sous le nom de la cellule N3 et ce dans mes documents/ste toto (nom)

et quand je lui renseigne le chemin il me le met en rouge donc pas bon...

 

[Pierrot93]

Re : Sauvegarder dans le bon dossier

Bonjour,

essaye comme suit :

ThisWorkbook.SaveAs "C:\MesDocuments\NomSociete\" & Range("N3").value" &  ".xls"

enregistre le classeur dans lequel se trouve la macro...

bon après midi
@+

Edition : tu peux peut être enlever l'extension xls... A voir sous 2010...

 

[Pierrot93]

Re : Sauvegarder dans le bon dossier

Re,

pour enregistrer juste une feuille, j'avais proposé ceci tout à l'heure :
https://www.excel-downloads.com/threads/enregistrer-la-feuille-visible-et-non-le-classeur.157325/

 

[scorplo77]

Re : Sauvegarder dans le bon dossier

Merci Pierrot93 tout fonctionne,

Par contre je voudrais enregistrer que la feuille en cours, pour pouvoir mettre un compteur sur la 2eme feuille de ma matrice qui ne sera pas enregistrer dans mes devis et factures.

mon module VBA est

Sub enregister()
Dim NOM As String
NOM = Range("N3")
ThisWorkbook.SaveAs "C:\MesDocuments\NomSociete\" & Range("N3").value"
End Sub

que dois -je changer?
Merci a vous tous !

 

[Pierrot93]

Re : Sauvegarder dans le bon dossier

Re,

pour l'enregistrement de la feuille en cours, tu as vu le lien dans mon post de 14h10 ?? devrait faire l'affaire...

 

[scorplo77]

Re : Sauvegarder dans le bon dossier

Donc dans ma macro je dois remplacer
ThisWorkbook.SaveAs PAR ActiveWorkbook.SaveAs ? ou je dois mettre ActiveSheet.Copy avant ?

 

[Pierrot93]

Re : Sauvegarder dans le bon dossier

Re,
"ActiveSheet.Copy"
puis :
"ActiveWorkbook.SaveAs"

@+

 

[scorplo77]

Re : Sauvegarder dans le bon dossier

OK ça marche mais ma logique n'est pas bonne, car ceci ne prend pas les macros

mon but étant de pouvoir compter les devis lors de leur edition, pour cela j'ai mis sur la matrice un compteur et une sauvegarde auto après comptage.
Mais après qu'il soit enregistrer je voudrais pouvoir les modifier sans que le compteur ne continue.
Mon raisonnement était de mettre un compteur sur la feuille 2,
un rappel de contenu sur feuille 1
et d'enregistrer que celle ci.
mais les macro ne sont pas enregistrer.

 

[Pierrot93]

Re : Sauvegarder dans le bon dossier

Re,

voir l'argument "fileformat" de la méthode "saveas", pas 2007 je ne peux te donner la bonne valeur... F1 dans l'éditeur vba quand curseur positionné sur "saveas" te donnera les valeurs possibles...

 

[scorplo77]

Re : Sauvegarder dans le bon dossier

oki merci,
je verrai ça ce soir à tête reposer.

un GRAND MERCI !!!!