macro enregistrer sous le nom d une cellule

MELANIE92

XLDnaute Junior

• 26 Septembre 2016

• #2

Sub Macro2()
'
' Macro2 Macro
'

'
Range("C2:J55").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\fd\Desktop\" & Range("I8") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 26 Septembre 2016

• #3

Bonjour à tous,

As-tu vérifié le chemin ?
As-tu une valeur en I8 ?

A+ à tous

 

Vote positif 0 Vote négatif

MELANIE92

XLDnaute Junior

• 27 Septembre 2016

• #4

Bonjour JCGL

d'abord merci pour votre réactivité et votre aide.

effectivement cela marche quand on nome la cellule

mais ne marche pas quand la cellule est une date (sept.-2016)

c'est très curieux

 

Vote positif 0 Vote négatif

MELANIE92

XLDnaute Junior

• 27 Septembre 2016

• #5

i8 => =DATE(ANNEE(A26);MOIS(A26)+1

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Septembre 2016

• #6

Bonjour,

Il serait utile de rajouter le jour dans la date et de poser :

Code:

"C:\Users\fd\Desktop\" & Format(Range("I8");"ddmmyy") & ".pdf"

A+ à tous

 

Vote positif 0 Vote négatif

MELANIE92

XLDnaute Junior

• 27 Septembre 2016

• #7

Bonjour,

la formule est pas reconnu par exel : erreur de syntaxe.

il surligne en rouge => ;

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Septembre 2016

• #8

Bonjour,
Si =DATE(ANNEE(A26);MOIS(A26)+1
est censé être

Code:

=DATE(ANNEE(A26);MOIS(A26)+1;)

Remplace par une virgule.

A+ à tous

 

Vote positif 0 Vote négatif

MELANIE92

XLDnaute Junior

• 27 Septembre 2016

• #9

la cellule i8 affiche bien le resultat sept 2016 mais la virgule ne change rien toujours une erreur

je me demande si le code sur windows 7 et xp sont les memes car les macros sur xp ne sont pas reconnu sous win7..

 

Vote positif 0 Vote négatif

MELANIE92

XLDnaute Junior

• 27 Septembre 2016

• #10

N y a t il pas d autre facon d enregistrer une feuille excel avec le resultat de ma cellule i8 ?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Septembre 2016

• #11

Bonjour à tous,

Merci de joindre ton fichier.

A+ à tous

 

Vote positif 0 Vote négatif

MELANIE92

XLDnaute Junior

• 29 Septembre 2016

• #12

bonjour

merci pour votre aide je n ai toujours pas trouver ou est le problème

 

Pièces jointes

• Classeur1.xlsm

  17.4 KB · Affichages: 51

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Septembre 2016

• #13

Bonjour à tous,

Ceci fonctionne chez moi :

VB:

Sub Création_PDF()
    Range("B2:G23").Select
    'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     "C:\Users\fd\Desktop\" & Range("B2") & " " & " du " & "" & Format(Range("C3"), "ddmmyy") & ".pdf", Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & Range("B2") & " " & " du " & "" & Format(Range("C3"), "ddmmyy") & ".pdf"
    Range("B3").Select
End Sub

A+ à tous

 

Pièces jointes

• Facture du 300916.pdf

  286.4 KB · Affichages: 39

Vote positif 0 Vote négatif

MELANIE92

XLDnaute Junior

• 30 Septembre 2016

• #14

merci bravo JCGL

la macro fonctionne parfaitement

TROP LA CLASSE

 

Vote positif 0 Vote négatif

MELANIE92

XLDnaute Junior

• 30 Septembre 2016

• #15

Résolu

 

Vote positif 0 Vote négatif