Discussion :

[M. De la Guigne]

Bonjour à toutes et à tous,

Dans le cadre du boulot, j'ai proposé de créer une macro qui enregistre des onglets spécifiques en PDF.

J'ai donc mixé diverses sources vu sur le net et cela fonctionne... jusqu'à que je change la cellule comportant un nom (qui impact le nom du fichier)


La macro actuelle est :

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
21
22
23
24
25
26
27
28
29
30
31
32
Sub Generate_Report_Click()
 
Dim EventsName As String
Dim Rep As String
 
Application.ScreenUpdating = False
'On Error Resume Next
 
 
 
 
 
EventsName = Worksheets("Feuil1").Range("M5")
Rep = "C:\Users\pc\Desktop\Projet\Création\Test\" & Worksheets("Feuil1").Range("M5") & "\"
 
Sheets("PV AGO").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep & Sheets("PV AGO").Name & " " & Worksheets("Feuil1").Range("M5") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
 
 
Sheets("RCS").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep & Sheets("RCS").Name & " " & Worksheets("Feuil1").Range("M5") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
 
Application.DisplayAlerts = True
   If MsgBox("Impression en PDF dans le dossier " & Rep & "." & Chr(10) & "Voulez vous fermer le fichier ?" _
     , vbYesNo + vbInformation, "Sauvegarde réussie") = vbYes Then ThisWorkbook.Close
 
     Sheets("Feuil1").Activate
End Sub

J'ai donc une maudite erreur 1004 alors que j'ai effectué des tests concluants avant.

Je débute en vba et j'ai du mal à comprendre ce qui ne fonctionne pas.

Bon weekend à tous!

[joe.levrai]

Bonjour,

que contient cette cellule que tu as modifié ? N'y aurait-il pas des caractères "interdits" ou une trop grande longueur ?


en mode pas à pas, à quelle ligne de code exactement se produit l'erreur ?

[Invité]

Bonsoir,

je change la cellule comportant un nom (qui impact le nom du fichier)

Tu as changé la valeur de la cellule ou tu as changé de cellule (M5) devient (L5)?

[M. De la Guigne]

Actuellement la cellule (donc M5) contient "test".

J'ai modifié en mettant "VTC" par exemple et donc erreur. En remettant "test" cela ne fonctionne pas à nouveau.

J'ai bien pensé à un problème de caractère car un de premiers changements comportait un espace mais en revenant sur un mot sans espace ou caractère cela pose problème.

L'erreur intervient au moment du premier export (mais aussi au second au final).

Le reste du fichier n'a pas changé, pas les noms des onglets ou autres.

[Invité]

Bonjour,

Ce qui est bien avec les balise c'est que les lignes de code sont numéroté!

Il y a quelques bizarreries, du genre appeler quelqu'un par son nom pour lui demander comment il s'appel, alors données le numéro de la ligne ne serait pas du luxe!

Code :

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

Sheets("PV AGO").Name

[M. De la Guigne]

Ligne numéro 16 (pardon je découvre les usages ici).