pascal21
XLDnaute Barbatruc
bonjour le forum
j'ai une application qui me permet de creer un pdf avec le contenu d'une feuille excel sur mon pc de bureau
j'ai installer cette appli sur un pc portable (configuration identique a priori!)cette macro refuse de fonctionner sur mon pc portable
j'ai installer PDF créator mais je ne comprends pas d'où vient le problème, c'est à mon avis un problème de chemin mais je ne trouve pas je vous mets la partie du code qui est signaler en jaune
d'abord le code complet
le code qui est surligné
avec ce peu d'éléments, est ce que quelque chose vous saute aux yeux
ce code crée un pdf en le nommant avec le contenu de certaines cellules et le range dans un dossier fonctionne sans problème sur le pc de bureau
merci de votre aide
j'ai une application qui me permet de creer un pdf avec le contenu d'une feuille excel sur mon pc de bureau
j'ai installer cette appli sur un pc portable (configuration identique a priori!)cette macro refuse de fonctionner sur mon pc portable
j'ai installer PDF créator mais je ne comprends pas d'où vient le problème, c'est à mon avis un problème de chemin mais je ne trouve pas je vous mets la partie du code qui est signaler en jaune
d'abord le code complet
Code:
Sub copiePDF() 'code copie en PDF et classement
Dim sNomDossier As String
Dim sNomFichierPDF As String
sNomDossier = ThisWorkbook.Path
sNomFichierPDF = Format(Feuil1.Range("l5"), "dddd dd mmmm yyyy") & " n° " & Range("z58") 'nom du fichier + N° de document
sNomDossier = ThisWorkbook.Path & "\année 2014\" & Format(Feuil1.Range("l5 "), "mmmm yyyy") & "\"
If Len(sNomFichierPDF) > 0 Then
If NomFichierValide(sNomFichierPDF) Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sNomDossier & "/" & _
sNomFichierPDF & ".pdf" _
, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Else
Feuil1.Range("l5").Select
MsgBox "Ce nom de fichier est invalide", vbOKOnly + vbInformation, "Nom de Fichier"
End If
End If
MsgBox ("Le fichier PDF nommé " & sNomFichierPDF & " à bien été crée dans le répertoire " & sNomDossier)
End Sub
Code:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sNomDossier & "/" & _
sNomFichierPDF & ".pdf" _
, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ce code crée un pdf en le nommant avec le contenu de certaines cellules et le range dans un dossier fonctionne sans problème sur le pc de bureau
merci de votre aide
Dernière édition: