macro enregistrer sous le nom d une cellule

[MELANIE92]

bonjour, ma macro ne marche pas sur windows 7 exel 2007

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
Range("C88").Select
End Sub

svp ou est le pb ??????

 

[MELANIE92]

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

 

[JCGL]

Bonjour à tous,

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

A+ à tous

 

[MELANIE92]

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

 

[MELANIE92]

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

 

[JCGL]

Bonjour,

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

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

A+ à tous

 

[MELANIE92]

Bonjour,

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

il surligne en rouge => ;

 

[JCGL]

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

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

Remplace par une virgule.

A+ à tous

 

[MELANIE92]

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..

 

[MELANIE92]

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

 

[JCGL]

Bonjour à tous,

Merci de joindre ton fichier.

A+ à tous

 

[MELANIE92]

bonjour

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

 

[JCGL]

Bonjour à tous,

Ceci fonctionne chez moi :

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

 

[MELANIE92]

merci bravo JCGL

la macro fonctionne parfaitement

TROP LA CLASSE

 

[MELANIE92]

Résolu