Creation pdf

wil2168 -  
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   -
bonjour

j'ai créé une macro afin de d'enregistrer une feuille excel en PDF 
Sub claim_LO_RECOIT()
 
Dim ma_feuille_LO_recoit As Worksheet
Set ma_feuille_LO_recoit = Workbooks("Income_claim").Sheets("LO_RECOIT")
 
Dim i, j As Integer
Dim chemin_dossier As Variant
Dim compteur As Integer
 
 
chemin_dossier = ma_feuille_LO_recoit.Range("I6")
 
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=chemin_dossier & "Inc_claim " & compteur & "_" & Date & " " & ma_feuille_LO_recoit.Cells(18, 2)
 
 
End sub



sur mon PC la macro fonctionne très bien
Lorsque j'effectue la macro sur le PC de mes collègues j'ai le message d'erreur ci-dessous qui apparait:
"Erreur d'exécution 1004: Erreur définie par l'application ou par l'objet

au niveau de la ligne de code ci-dessous 
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=chemin_dossier & "Inc_claim " & compteur & "_" & Date & " " & ma_feuille_LO_recoit.Cells(18, 2)



Pouvez vous m'aider ?
Existe il un autre moyen de créer un PDF à partir d'une feuille excel ?


Merci
A voir également:

5 réponses

Réponse 1 / 5
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Où remplis tu la variable compteur ?
Est-ce que la variable chemin_dossier contient un chemin qui existe sur l'ordi de tes collegues ?
Ont-ils la même version d'excel que toi ? Laquelle ?


0
Réponse 2 / 5
wil2168
 
La variable compteur est sur une autre feuille du classeur
la variable chemin dossier est bien sur un chemin qui existe sur le PC de mes collègues
puisque le fichier VBA est déposer sur drive commun à l'équipe
lorsque je lance le code de mon PC sur le drive tout fonctionne mais lorsque que mes exécute la même macro qui est situé au même endroit avec les mêmes chemin ma code beug chez eux sur la ligne
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=chemin_dossier & "Inc_claim " & compteur & "_" & Date & " " & ma_feuille_LO_recoit.Cells(18, 2)


oui on utilise tous la même version d'excel

existe il un autre moyen pour générer le PDF autre que ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Le souci c'est que ta variable compteur.... tu ne la récupères nul part dans ton code
Pourrais tu exécuter ton code en mode pas à pas et vérifier (en survolant chaque variable une fois arrivé sur la ligne qui pose probème) quelles sont leurs valeurs ?
0
Réponse 3 / 5
wil2168
 
je vais essayer demain au travail de faire des msg box tout long du code pour voir la valeur du terme compte sur le PC de les collègues

mais alors pourquoi lorsque, je fais tourner la macro de mon PC tout fonctionne correctement
j'utilise le même fichier avec le même cde vba , les mêmes chemin ?
0
Réponse 4 / 5
wil2168
 
Bonjour

j'ai testé la variable compteur et il n'y a pas de problème dans sa valeur
pouvez vous m'indiquer comment créer un PDF sans passer par la méthode

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Ta variable compteur vaut toujours 0 .... à part ça tout va bien..
Et ta variable date ??

Peux tu tester ça et nous faire une capture écran de la msgbox qui va s'afficher ? 
Sub claim_LO_RECOIT()
 
Dim i, j As Integer
Dim chemin_dossier As String
Dim compteur As Integer
Dim strPath  As String
Dim ma_feuille_LO_recoit As Worksheet

Set ma_feuille_LO_recoit = Workbooks("Income_claim").Sheets("LO_RECOIT")
chemin_dossier = ma_feuille_LO_recoit.Range("I6")
 
strPath = chemin_dossier & "Inc_claim " & compteur & "_" & Date & " " & ma_feuille_LO_recoit.Cells(18, 2).value
MsgBox strPath

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strPath 
 
 
End Sub


0