macro - rendre dynamique la zone de destination d'un fichier

[gvives]

Bonjour,

J’ai un petit souci concernant une macro que j’essaie de réaliser.

Cette macro me permet de convertir une page excel en fichier pdf (la zone à éditer est définie par l’utilisateur).

Cette macro fonctionne lorsque la destination du fichier pdf est fixe (cf version OK ci-dessous)

Sub editpdf()
'
' pdf Macro
'

'
ActiveWindow.DisplayZeros = True
LigFin = [A:A].Find("fin", SearchOrder:=xlByRows, SearchDirection:=xlNext, LookAt:=xlWhole, LookIn:=xlValues).Row
ColFin = [2:2].Find("0", SearchOrder:=xlByColumns, SearchDirection:=xlNext, LookAt:=xlWhole, LookIn:=xlValues).Column
If Err = 0 Then
ActiveSheet.PageSetup.PrintArea = Range("B2", Cells(LigFin - 1, ColFin - 1)).Address
Else
ActiveSheet.PageSetup.PrintArea = [A1].CurrentRegion.Address
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
" C:\Documents\stagiaire\stagiaire1\2011\aptitude\compterendu.pdf ", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

En revanche lorsque j’essaie de rendre variable la destination du fichier grâce à des valeurs saisies sur des onglets elle ne marche pas (cf version avec beug ci-dessous)

Sub editpdf()
'
' pdf Macro
'

'
ActiveWindow.DisplayZeros = True
LigFin = [A:A].Find("fin", SearchOrder:=xlByRows, SearchDirection:=xlNext, LookAt:=xlWhole, LookIn:=xlValues).Row
ColFin = [2:2].Find("0", SearchOrder:=xlByColumns, SearchDirection:=xlNext, LookAt:=xlWhole, LookIn:=xlValues).Column
If Err = 0 Then
ActiveSheet.PageSetup.PrintArea = Range("B2", Cells(LigFin - 1, ColFin - 1)).Address
Else
ActiveSheet.PageSetup.PrintArea = [A1].CurrentRegion.Address
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents\stagiaire\"&onglet1!$A$1&"\2011\"&onglet2!$F$7&"\compterendu.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Pourriez-vous m’aiguiller sur la solution.

Merci à tous.

 

[Efgé]

Re : macro - rendre dynamique la zone de destination d'un fichier

Bonjour gvive,Remplace

"&onglet1!$A$1&"

Par

& sheets("Onglet1").Range("$A$1").Value &

même chose pour

"&onglet2!$F$7&

avec

& sheets("Onglet2").Range("$F$7").Value &

Cordialement

 

[gvives]

Re : macro - rendre dynamique la zone de destination d'un fichier

Bonjour Efgé,

Merci pour ta réponse mais je saisie donc comme tu me l'a indiqué mais ça m'affiche "Erreur compilation : Attendu fin instruction" en me surlignant "onglet 2".

Sub test()
'
' test Macro
'

'
ActiveWindow.DisplayZeros = True
LigFin = [A:A].Find("fin", SearchOrder:=xlByRows, SearchDirection:=xlNext, LookAt:=xlWhole, LookIn:=xlValues).Row
ColFin = [2:2].Find("0", SearchOrder:=xlByColumns, SearchDirection:=xlNext, LookAt:=xlWhole, LookIn:=xlValues).Column
If Err = 0 Then
ActiveSheet.PageSetup.PrintArea = Range("B2", Cells(LigFin - 1, ColFin - 1)).Address
Else
ActiveSheet.PageSetup.PrintArea = [A1].CurrentRegion.Address
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents\stagiaire\&sheets("Onglet2").range("$A$1").Value&\2011\sheets("onglet2").range("$F$7").value&"\compterendu.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Merci encore pour ton aide.

 

[Efgé]

Re : macro - rendre dynamique la zone de destination d'un fichier

RE, Problme de " double quotes...

Filename:= "C:\Documents\stagiaire\" & sheets("Onglet2").range("$A$1").Value & "\2011\" & sheets("onglet2").range("$F$7").value & "\compterendu.pdf",

Cordialement

 

[gvives]

Re : macro - rendre dynamique la zone de destination d'un fichier

Je suis vraiment désolé de t'embêter Efgé mais maintenant g une ligne jaune qui apparaît dans la boite de saisie.

Je te communique mon fichier simplifié si ça peux t'aider...

Merci merci...

 

[Efgé]

Re : macro - rendre dynamique la zone de destination d'un fichier

Re, Désolé mais je suis sous 2003 à l'heure actuelle. Je ne peux donc pas tester l'erreur (pas de ExportAsFixedFormat). D'autres pourront regarder à ma place... Cordialement

 

[gvives]

Re : macro - rendre dynamique la zone de destination d'un fichier

J'ai solutionné le problème Efgé ton aide m'a été précieuse tout de même 😉

Filename:= _
"C:\Documents\...

au lieu de :

Filename:= "C:\

J'ai tenté par hasard et ça a marché 😕

Si tu peux m'expliquer la différence ce serait sympa ...

Bonne journée...