Excel enr avec nom contenu cellule

Question

Bonjour, 

Je voudrais créé une macro pour effectuer un enregistrement automatique avec la valeur d'une cellule (date format mmmaa).

Je suis sous Excel 2002.

le code de ma macro :

Sub sauv()
'
' sauv Macro
' Macro enregistrée le 15/09/2012 par toto
'

'
    ChDir "C:\bowlingfranceimport"
    ActiveWorkbook.SaveAs Filename:="C:\bowlingfranceimport\" & [c2] & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

J'ai une erreur 1004 avec indiqué avec 
* vérifier que le dossier existe  oui il existe
* vérifier que le dossier n'est pas en lecture seul non pas en lecture seul
* vérifier que le nom du fichier ne comporte pas les caractères <>... non pas de caractère de ce type puisque format "mmmaa"

J'ai regardé les diverses réponses du forum et je ne vois pas ou est le problème.

Merci de votre aide.

michel_m · Answer

Bonjour, 

essaies peut-^tre en précisant la feuille de C2 

Transféré en forum bureautique  : rien à voir avec forum "base de données"
  
 Michel

domi6226 · Answer

Merci, malheureusement, résultat identique.

Désolé pour le mauvais forum.

f894009 · Answer

Bonjour a vous tous
  'changez le nom de la feuille
  MaDate = Format(Worksheets("Feuil1").[c2], "mmmyyyy")
  ChDir "C:\bowlingfranceimport"
  ActiveWorkbook.SaveAs Filename:="C:\bowlingfranceimport\" & MaDate & ".xls", _
  FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
  ReadOnlyRecommended:=False, CreateBackup:=False

Bonne suite

domi6226 · Answer

Merci cela fonctionne nickel

bon week.

domi6226 · Answer

Bonjour,

Je reviens sur ce post, en partant de la macro du lien #3, est-il possible de faire une impression avec pdf creator en automatique  pour sauvegarder un fichier pdf et pas un fichier xls en partant sur le même principe ?

C'est à dire que le nom du fichier doit avoir le nom de la cellule mais avec une extension ".PDF".

Merci.

f894009 · Answer

Bonjour, 

Oui, 

Sub Export_PDF() 
  'sauvegarde en PDF 
  'nom de feuille a changer 
  MaDate = Format(Worksheets("Feuil1").[c2], "mmmyyyy") 
  'Chemin a adapter 
  strCheminComplet = "Disque\Repertoire\Sous-Repertoire\" & MaDate 
  Worksheets(ActiveSheet.Name).Activate 
   'Onglet actif
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _ 
  , Quality:=xlQualityStandard, includeDocProperties:=True, _ 
  IgnorePrintAreas:=False, OpenAfterPublish:=True 

   'ou Classeur complet
  ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strCheminComplet _ 
  , Quality:=xlQualityStandard, includeDocProperties:=True, _ 
  IgnorePrintAreas:=False, OpenAfterPublish:=True 

End Sub 


Bonne suite

Excel enr avec nom contenu cellule

6 réponses

Votre réponse

Discussions similaires

Newsletters