Copie fichier en cours du nom de la cellule

[noviceAG]

Bonjour le Forum,

Pouerriez-vous m'indiquer le code qui me permettrait de sauvegarder le fichier sur lequel je travail, pour qu'en cliquant sur un bouton une copie de ce fichier du nom de la cellule E12 soit créé dans le dossier EnCours, dont le chemin est :

ChDir "C:\Documents and Settings\Proprietaire\Bureau\Association\EnCours"

En vous remerciant par avance.

 

[Davidc57]

Re : Copie fichier en cours du nom de la cellule

Salut noviceAG,

sub sauvegarde()

Activeworkbook.save as "C:\Documents and Settings\Proprietaire\Bureau\Association\EnCours"
 & range("E12").text

End Sub

A+
David

 

[Sylvain]

Re : Copie fichier en cours du nom de la cellule

Bonsoir,

on peut aussi utiliser :
SaveCopyAs
ce qui permet de garder le classeur en cours au premier plan.

 

[noviceAG]

Re : Copie fichier en cours du nom de la cellule

Bonsoir David, Sylvain, le Forum,
Je vous remercie de m'avoir répondu et je regarde vos codes dès demain car ce soir je suis KO
Bonne soirée à vous tous
Question subsidiaire :
Comment écraser le fichier du même non sans avoir d'alerte préalable
En vous remerciant

 

[CHALET53]

Re : Copie fichier en cours du nom de la cellule

bonsoir

Normalement, si je ne me trompe :

Application.DisplayAlerts = False

 

[noviceAG]

Re : Copie fichier en cours du nom de la cellule

Bonjour David, Sylvain Chalet, le Forum,

Je reviens vers vous après avoir essayé vos codes, et je rencontre un prob.
En effet le classeur copié ne vient pas se mettre dans le dossier EnCours mais dans Association sous le nom : EnCours411 DUR alors qu'il devrait être dans le dossier EnCours sous la dénomination 411 DUR

En vous remerciant

 

[JCGL]

Re : Copie fichier en cours du nom de la cellule

Bonjour à tous,

Peux-tu essayer en rajoutant un \ :

Activeworkbook.save as "C:\Documents and Settings\Proprietaire\Bureau\Association\EnCours[COLOR="Red"]\[/COLOR]"
 & Range("E12").Text

A+

 

[noviceAG]

Re : Copie fichier en cours du nom de la cellule

Bonjour JCGL, le Forum,
Je viens de le faire et ca me donne une erreur d'exécution 1004
Merci de te pencher sur ma demande

 

[kjin]

Re : Copie fichier en cours du nom de la cellule

Bonjour,
Je pense qu'à première vue et sans savoir ce que contient la cellule E12, il manque l'antislash dans le chemin

Sub Sauvegarde()
Dim Fich As String
Fich = ActiveSheet.Range("E12")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Documents and Settings\Proprietaire\Bureau\Association\EnCours\" & Fich
Application.DisplayAlerts = True
End Sub

Edit: Bonjour JCGL, à la bourre moi
A+
kjin

 

[noviceAG]

Re : Copie fichier en cours du nom de la cellule

Re, Bonjour kjin, le Forum,
la cellule E12 contient cette formule

=RECHERCHEV($E$14;'base Clients'!B:L;11;0)& GAUCHE(E14;3)

qui renvoie 411DUR
Merci à toi

 

[JCGL]

Re : Copie fichier en cours du nom de la cellule

Bonjour à tous,

Désolé pour le code précédent

Essaye avec :

Activeworkbook.SaveAs Filename: = "C:\Documents and Settings\Proprietaire\Bureau\Association\EnCours\" & Range("E12"), FileFormat:=xlNormal

A+

 

[noviceAG]

Re : Copie fichier en cours du nom de la cellule

Tu n'as pas à être désolé JCGL out le monde peut faire des erreurs,
Pour ton nouveau code, ca me fait la même erreur
Je te remercie

 

[JCGL]

Re : Copie fichier en cours du nom de la cellule

Bonjour à tous,

Peux-tu essayer en cliquant sur le Go ?

A+

Edition : Bonjour KJIN

 

[kjin]

Re : Copie fichier en cours du nom de la cellule

Re à tous,
Testé chez moi aucun pb
Question idiote
Le chemin (et l'orthographe) spécifié existe t-il, notamment le dossier "EnCours", ou voulais tu dire le dossier du fichier en cours ?
A+
kjin

 

[JCGL]

Re : Copie fichier en cours du nom de la cellule

Re,

Si le code précédent ne fonctionne pas et comme le fait remarquer Kjin : es-tu sur du chemin ?

Essaye avec :

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & Range("E12"), FileFormat:=xlNormal

A+