RE: enregistrement automatique d'un fichier

bonsoir!!

j'ai bidouillé un bout de code pour enregistrer auto un fichier par bouton de commande cela fonction jusqu'au sous dossier " nom de commune" mais mon fichier ne s'enregistre pas dedans.

Quelqu'un peu m'aider a finir ce petit code, merci par avance

Bonjour

Des espaces en fin dans la cellule B5

Ton nom de fichier pointe vers la mauvaise cellule (B2 à la place de B4)

Dans le nom du fichier tu rajoutes déjà .xls et tu le rajoutes encore lors de la sauvegarde

Macro

Sub enregistrementfichier()
Dim Chemin$, commune$, adresse$

  Chemin = "C:\Users\Slijack\Documents\Etude dégradation\"
  commune = Range("B5")
  adresse = Range("B4") & ".xls"
  If Dir(Chemin & commune, 16) = "" Then MkDir Chemin & commune
  ActiveWorkbook.SaveAs Chemin & commune & "\" & adresse      '& ".xls"
End Sub

bonsoir Banzai64

tout abord merci pour ton aide, j'ai apporté les modifs que tu m'as conseillés, mais seul le sous dossier est créé puis une erreur bug le code et le fichier ne s'enregistre pas.

J'ai oublié de préciser que j'aimerai que le fichier de base ne change pas de nom dans l'exemple "Classeur 2 "

Bonjour

Dans la case D5 tu as toujours des espaces à la fin

Pour sauvegarder une copie

Sub enregistrementfichier()
Dim Chemin$, commune$, adresse$

  Chemin = "C:\Users\Slijack\Documents\Etude dégradation\"
  commune = Trim(Range("B5"))
  adresse = Trim(Range("B4")) & ".xls"
  If Dir(Chemin & commune, 16) = "" Then MkDir Chemin & commune
  'Pour enregister une copie seulement
  ActiveWorkbook.SaveCopyAs Chemin & commune & "\" & adresse      '& ".xls"
End Sub

Re bonsoir Banzai64 !!!

un grand cela fonctionne parfaitement, je vais pouvoir intégré ce code dans mon tableur.

en te remerciant encore je te souhaite une bonne nuit