Export de feuille excel en pdf via les macro ou vb
tamera55
Messages postés
2
Date d'inscription
jeudi 25 mars 2004
Statut
Membre
Dernière intervention
11 mai 2005
-
10 mai 2005 à 10:23
tamera55 Messages postés 2 Date d'inscription jeudi 25 mars 2004 Statut Membre Dernière intervention 11 mai 2005 - 11 mai 2005 à 08:44
tamera55 Messages postés 2 Date d'inscription jeudi 25 mars 2004 Statut Membre Dernière intervention 11 mai 2005 - 11 mai 2005 à 08:44
A voir également:
- Tous les codes vba excel pdf
- [Vba excel] aide aux débutants, quelques morceaux de codes - Conseils pratiques -Visual Basic / VB.NET
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- C# pdf - Forum C# / .NET
- Afficher userform vba a l'ouverture d'excel ✓ - Forum Visual Basic
- Excel vba modulo - Forum Visual Basic 6
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
10 mai 2005 à 13:10
10 mai 2005 à 13:10
Pour écrire un fichier PDf, il faut un programme conçu pour cela. Je vais te donner un code qui exporte une plage de cellules dans un fichier (ici j'ai mis pdf au lieu de txt pour essayer), tu verras qu'après l'enregistrement Adobe Reader te mets un message qu'il ne peut ouvrir le fichier.
Sub ExportRange()
Dim FileName As String
Dim NumRows As Long, NumCols As Integer
Dim r As Long, c As Integer
Dim ExpRng As Range, data
Set ExpRng = Selection
NumCols = ExpRng.Columns.Count
NumRows = ExpRng.Rows.Count
FileName = "C:\TonFichier.pdf"
Open FileName For Output As #1
For r = 1 To NumRows
For c = 1 To NumCols
data = ExpRng.Cells(r, c).Value
If IsNumeric(data) Then data = Val(data)
If IsEmpty(ExpRng.Cells(r, c)) Then data = ""
If c <> NumCols Then
Write #1, data
Else
Write #1, data
End If
Next c
Next r
Close #1
End Sub
jpleroisse
Sub ExportRange()
Dim FileName As String
Dim NumRows As Long, NumCols As Integer
Dim r As Long, c As Integer
Dim ExpRng As Range, data
Set ExpRng = Selection
NumCols = ExpRng.Columns.Count
NumRows = ExpRng.Rows.Count
FileName = "C:\TonFichier.pdf"
Open FileName For Output As #1
For r = 1 To NumRows
For c = 1 To NumCols
data = ExpRng.Cells(r, c).Value
If IsNumeric(data) Then data = Val(data)
If IsEmpty(ExpRng.Cells(r, c)) Then data = ""
If c <> NumCols Then
Write #1, data
Else
Write #1, data
End If
Next c
Next r
Close #1
End Sub
jpleroisse
tamera55
Messages postés
2
Date d'inscription
jeudi 25 mars 2004
Statut
Membre
Dernière intervention
11 mai 2005
11 mai 2005 à 08:44
11 mai 2005 à 08:44
Merci pour la réponse, mais l'utilisation de open crée un fichier txt, il est normal qu'acrobate ne puisse pas le lire.
Je voulais du code qui soit similaire à l'action des boutoni de création Pdf sous excel.
Tam
Je voulais du code qui soit similaire à l'action des boutoni de création Pdf sous excel.
Tam