Fonction Enregister en pdf excel différent sur Dropbox

Ordonalor

XLDnaute Nouveau
Bonjour je cherche à imprimer une feuille excel sous un nom variable dans un dossier dropbox.
Je recherche à enregistrer ceci au format PDF.

Voici la macro que j'ai faite mais elle ne fonctionne pas :p

J'utilise plusieurs ordinateur dont un mac...

Code:
Chemin = "\\Dropbox\Applications\@SPORTS CONSEILS\Compta"
    Texte = ""
    Application.DisplayAlerts = False
 
    ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
    Filename:=Chemin & Texte, _
    Quality:=x1QualityMinimum, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Ensuite je cherche à enregistrer la même feuille au format pdf (ce qui devrait etre plus simple quand j'aurais réussi à imprimer ma feuille en PDF)

Grand merci à vous pour tout les renseignements que vous allez me fournir.

Benoit
 

JOELJBJ

XLDnaute Nouveau
Bonjour à tous et à ceux qui cherchent désespérément à enregistrer sur Dropbox leurs feuilles Excel en PDF et qu'elles soient exploitables quelques soit l'ordinateur. C'est une histoire de chemin et d'username... Un petit code testé sur Excel 2019-W10 mais qui ne semble pas fonctionner sur Excel 2007-W7. Si quelqu'un à une solution pour cette configuration merci de me le faire savoir !

Sub EnregistrerPDF()
'déclaration des variables
Dim Chemin As String
Dim Utilisateur As String

'accélération du code
----------------------------
With Application
.Application.ScreenUpdating = False
.Application.Calculation = xlCalculationManual
.EnableEvents = False
End With

On Error GoTo 1
NomUtilisateur = Environ("username") 'nom utilisateur de l'ordinateur
Chemin = "C:\Users\" & NomUtilisateur & "\Dropbox\TonDossier\TonSousDossier\etc\" 'chemin

'enregistrement format PDF.
'Range("I5").Value de la feuille active = le nom que tu veux donner à ton fichier
'dans la cellule I5 par exemple
'-----------------------------------------------------------------

ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
Chemin & Range("I5").Value & ".pdf", Quality:= _
x1QualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True'pour voir le PDF False pour enregistrer sans voir

1

'fin acceleration du code
With Application
.EnableEvents = True
.Application.Calculation = xlCalculationAutomatic
.Application.ScreenUpdating = True
End With

End Sub
---------------------------------------------------------
'Ici pour connaître le nom de ton ordinateur
Public Function NomUtilisateur()
NomUtilisateur = Environ("username")
MsgBox NomUtilisateur
End Function
--------------------------------------------------------
Bisous à tous ceux qui galère
 

Discussions similaires

Réponses
3
Affichages
646

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh