Discussion :

[Bensljul]

Bonjour,

J'aimerais faire une macro pour pouvoir enregistrer ma feuille active en pdf et dont le nom de ce dernier serait fonction du contenu de 2 cellules,
J'ai donc essayer en enregistrant une macro au moment ou je fais un enregistrement et qu'après j'adapterais le code mais au final je n'arrive pas à trouver les bonnes ligne de commande pour le faire :s

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub enreg()
'
' enreg Macro
'
 
 
    ChDir "Q:\GR22\BENSLIMAN Julien\BRANCHEMENT PERIGUEUX 2"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Q:\GR22\BENSLIMAN Julien\BRANCHEMENT PERIGUEUX 2\Formulaire_Barentin-4.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

Comment puis je me débrouiller pour faire ce que je veux à partir de l'enregistrement ?

Bien cordialement

[Menhir]

Le nom donné au paramètre Filename:= est une simple chaine de caractère.
A ce titre, il peut être trituré comme n'importe quel chaine, en utilisant des & et en prenant des données venant de variable ou de cellules.
Par exemple :

Code :

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

Filename:= "C:\MonRépertoire\Nom_" & VarStr1 & "-" & Cells(10,1) & ".PDF"

Le plus propre étant de faire ce montage dans une variable de type String et d'utiliser cette variable comme paramètre de Filename:=

[Bensljul]

D'accord,
par contre je ne fais habituellement pas de VBA du coup comment dois je faire pour définir la variable de type string,

ou sinon comment bien utiliser les & dans la formule enregistrée pour utiliser mes valeurs de cellules ?

[Menhir]

Avant de vouloir faire des looping, il faut apprendre le vol à l'horizontale.
Commence par apprendre les bases : http://bidou.developpez.com/article/VBA/

[kiki29]

Salut, de la lecture : Support de cours complet pour le VBA d'Excel

Adjoindre une fonction de vérif du nom de fichier comme ici

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
 
    If NomFichierValide(sFichier) Then
		.....
    Else
        MsgBox "Nom de fichier invalide", vbCritical + vbOKOnly
    End If
 
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function