Excel enr avec nom contenu cellule
domi6226
Messages postés
82
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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.
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.
6 réponses
-
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 -
Merci, malheureusement, résultat identique.
Désolé pour le mauvais forum. -
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 -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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. -
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
