Bonjour à toutes et à tous, et mes meilleurs vœux pour cette nouvelle année.
Je reviens vers vous après des heures de recherche sur ce forum, et sur bien d'autres.
A partir d'une feuille Excel, j'enregistre, via un bouton de commande, un fichier PDF dans un répertoire.
Une Message Box confirme la création du dit-fichier et informe l’utilisateur du chemin du répertoire.
Elle lui donne également la possibilité d'ouvrir le dossier de destination.
Je vous joins une partie du code sur lequel je planche :
Voici mes problématiques:
- le code utilisé pour l'ouverture du dossier de destination est-il le plus pertinent ?
- comment, si ce dossier est déjà ouvert, l'activer sans l'ouvrir en double ?
J'espère vous avoir exposé mon problème de manière claire.
Bien cordialement
Je reviens vers vous après des heures de recherche sur ce forum, et sur bien d'autres.
A partir d'une feuille Excel, j'enregistre, via un bouton de commande, un fichier PDF dans un répertoire.
Une Message Box confirme la création du dit-fichier et informe l’utilisateur du chemin du répertoire.
Elle lui donne également la possibilité d'ouvrir le dossier de destination.
Je vous joins une partie du code sur lequel je planche :
Code:
Private Sub CommandButton2_Click()
Dim cheminfichier As String
cheminfichier = ThisWorkbook.Path & "\" & "mondossierdedestination" & "\"
' Exporter au format PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=cheminfichier & nomfichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
If MsgBox("Le fichier pdf a été édité avec succès dans le dossier suivant : " & ThisWorkbook.Path & "\" & "Contrôles de sécurité au transbordement" & Chr(10) & "Voulez-vous accéder à ce dossier ?", vbYesNo) = vbNo Then
Exit Sub
Else
ActiveWorkbook.FollowHyperlink cheminfichier, NewWindow:=True
End If
End Sub
Voici mes problématiques:
- le code utilisé pour l'ouverture du dossier de destination est-il le plus pertinent ?
- comment, si ce dossier est déjà ouvert, l'activer sans l'ouvrir en double ?
J'espère vous avoir exposé mon problème de manière claire.
Bien cordialement
Dernière édition: