Bonjour,
Je cherche à convertir un pdf dans un répertoire donné.
Il faut qu'on puisse sélectionner le répertoire en affichant l'explorateur windows et ensuite le pdf est généré dans ce répertoire qui a été selectionné.
J'arrive à faire afficher l'explorateur pour sélectionner le répertoire mais il m'est difficile de faire comprendre à excel que le pdf doit aller DANS ce répertoire...
'Ce qui suit fait afficher l'explorateur (ça fonctionne)
Dim objShell, objFolder, chemin, SecuriteSlash
Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choose a directorie to save the pdf", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = dossier 'j'attribue un nom de variable à mon répertoire (ça bloque peut-être à partir d'ici)
'ici j'exporte en pdf dans le dossier en appelant mon fichier "loads"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dossier & "\" & "Loads", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Voilà je pense que l'erreur n'est pas grosse mais je galèèèère !😡
si quelqu'un peut me débloquer de là ça serait super cool 🙂
Ben
Je cherche à convertir un pdf dans un répertoire donné.
Il faut qu'on puisse sélectionner le répertoire en affichant l'explorateur windows et ensuite le pdf est généré dans ce répertoire qui a été selectionné.
J'arrive à faire afficher l'explorateur pour sélectionner le répertoire mais il m'est difficile de faire comprendre à excel que le pdf doit aller DANS ce répertoire...
'Ce qui suit fait afficher l'explorateur (ça fonctionne)
Dim objShell, objFolder, chemin, SecuriteSlash
Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choose a directorie to save the pdf", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = dossier 'j'attribue un nom de variable à mon répertoire (ça bloque peut-être à partir d'ici)
'ici j'exporte en pdf dans le dossier en appelant mon fichier "loads"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dossier & "\" & "Loads", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Voilà je pense que l'erreur n'est pas grosse mais je galèèèère !😡
si quelqu'un peut me débloquer de là ça serait super cool 🙂
Ben