Discussion :

[peifup]

Bonjour,

J'ai consulté plusieurs posts semblables à mon problème et malgré ça, je n'arrive pas à apporter une correction viable à ma macro. J'en appel à votre savoir à tous pour m'aiguiller.

J'utilise un fichier contenant 6 feuilles. La première reste active, les suivantes sont masquées.
Avec une macro, je souhaite enregistrer une de ces feuilles (la 3ème) au format PDF en utilisant certaines données incluses dans des cellules spécifiques de la feuille (la 2ème).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Enregistrer_en_PDF_Relance()
Dim sh As Worksheet, i&
For i = 2 To Sheets.Count
  With Sheets(i).PageSetup
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0)
    .BottomMargin = Application.InchesToPoints(0)
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
Next
  Application.DisplayAlerts = 0
  Sheets("Courrier_Relance").Activate
  Set sh = ActiveSheet
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\" & Sheets(2).[B27].Value & " " & Sheets(2).[C2].Value & " " & Sheets(2).[C15].Value & ".pdf"
  ActiveWorkbook.FollowHyperlink Address:="C:\" & Sheets(2).[B27].Value & " " & Sheets(2).[C2].Value & " " & Sheets(2).[C15].Value & ".pdf"
  sh.Select
End Sub

Une question supplémentaire: Lorsqu'une feuille est masquée, garde-t-elle sa place ?
Si vous avez des conseils je suis preneur.

Merci d'avance

[Pierre Fauconnier]

Salut.

Une feuille masquée garde sa place et donc son index, mais ne peut être ni sélectionnée ni activée, forcément.

Dès lors, elle ne pourra jamais correspondre à ActiveSheet.

Quel est ton problème et pourquoi as-tu mis une ligne de code en rouge?

[peifup]

Si je rajoute au début

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Courrier_Échéancier").Visible = True

puis en fin un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Courrier_Échéancier").Visible = False

ça peut résoudre mon problème?

En rouge c'est la ligne qui pose problème lors de l'exécution, avec ce message d'erreur: "erreur d'exécution '9', l'indice n'appartient pas à la sélection"

[kiki29]

Salut, voir Excel 2007 Fusion Feuilles de Classeurs en PDFs et adapter à ton contexte

[Pierre Fauconnier]

Non, Visible n'est pas une propriété booléenne.

Tu dois utiliser xlSheetVisible, xlSheetHidden ou xhSheetVeryHidden. La différence entre la deuxième et la troisième est qu'avec la troisième constante, tu ne pourras pas rendre la feuille visible depuis Excel.

Mais tu peux adresser une feuille masquée sans soucis. Le problème n'est donc pas là. De plus, la ligne que tu as mise en rouge est syntaxiquement correcte. Quel message d'erreur as-tu à l'exécution sur cette ligne?

PS: il est dangereux d'utiliser les index de feuilles en VBA. L'insertion d'une feuille risque de mettre ton code par terre.

[peifup]

Le message d'erreur est le suivant: "erreur d'exécution '9', l'indice n'appartient pas à la sélection"

PS: il est dangereux d'utiliser les index de feuilles en VBA. L'insertion d'une feuille risque de mettre ton code par terre.

Tu me conseilles de faire comment?
Je vais rajouter des feuilles mais pas en intercaler.

Kiki29: merci je vais regarder ça

[peifup]

Kiki29: Je n'arrive pas à trouver ce qui me concerne avec ton lien. J'ai téléchargé le classeur mais impossible à ouvrir (excel ne se lance même pas).

Sinon concernant mon soucis, j'ai changé ce qui n'allait pas avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\" & "Relance " & Sheets(4).[H2].Value & " " & Sheets(4).[C8].Value & " " & Sheets(4).[C11].Value & ".pdf"

Mais j'ai une autre erreur cette fois:

"Erreur d'exécution 1004'
Document non enregistré. Le document est peut-être ouvert ou une erreur s'est produite lors de l'enregistrement


Cette erreur, je ne l'ai pas chez moi, uniquement à mon bureau !

[kiki29]

Salut, et comme ici tout fonctionne ... Vérifie le contenu de ta chaîne ( pas de caractères interdits ).