Bonjour,
Je reviens vers vous au sujet de ma problématique.
Après avoir essayé pas mal de chose (à mon niveau) j’ai obtenu ceci :
Sub EnregistrerPDF()
On Error Resume Next
chemin = Sheets("Adresse+Chemin pour OM").Columns("A:A").Find(What:=Range("Q22"), After:=Sheets("Adresse+Chemin pour OM").Range("A1"), LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2).Value
If chemin = "" Then
MsgBox ("le code " & Range("Q22") & " est inexistant onglet Adresse+Chemin pour OM colonne A !!!")
Exit Sub
End If
sousdossier = Sheets("Contact prestataires").Columns("A:A").Find(What:=Range("Q22"), After:=Sheets("Contact prestataires").Range("A1"), LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2).Value
If sousdossier = "" Then
MsgBox ("le code " & Range("Q22") & " est inexistant onglet Contact prestataires colonne A !!!")
Exit Sub
End If
If Dir(chemin & "\" & sousdossier, vbDirectory) = "" Then
MkDir chemin & "\" & sousdossier
End If
If Range("BB21") = 1 Then
typeordre = "D"
Else
typeordre = "T"
End If
jour = Replace(Format(Date, "YYYYMMDD"), "/", "")
nomfichier = "Ordre de mission " & Range("Q13") & " " & jour & "_" & typeordre & Range("Q22")
ActiveSheet.Columns("A:AR").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "\" & sousdossier & "\" & nomfichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Malgré vos dernières précisions, je ne parviens pas à rattacher le nom du sous dossier de destination au nom de la « catégorie 1 » de l’entreprise. A ce stade cette catégorie découle du code site (ce qui n’est pas ce que je cherche à faire).
Pour ce qui est du nom du fichier je me suis dépatouillé et ça me convient ainsi ! Seul bémol :
Lorsque j’enregistre un fichier avec un nom déjà utilisé, je voudrais qu’excel me propose le choix entre supprimer l’ancien document ou ajouter un « (1) » , « (2) » , « (3) » etc si le nom du ficher est déjà pris.
En théorie je serai plus souvent amené à écraser l’ancien fichier et ne devrait pas rencontrer ce cas de figure souvent mais j’aimerais intégrer cette fonctionnalité.
Concernant le fait que mon pdf comportait 2 page, je n’ai pas ce soucis avec mon version final. Tout est donc ok à ce niveau.
Un dernier point me vient… en therme de confort visuel, j’aimerais que la feuille « ordre de mission » soit centrée sur mon écran pour éviter de regarder à gauche en permanence… Je ne vois pas comment faire…
Je vous remercie une fois de plus pour votre aide !
Dans l’attente de votre retour.
