XL 2016 erreur 1004, macro, lors de la génération d'un pdf

Membre supprimé 205584 · 15 Septembre 2016

Bonjour,

Tout d'abord merci beaucoup aux contributeurs de forums. C'est la première fois que je poste une question mais tout mon apprentissage se fait grâce aux différentes réponses trouvées sur des forums, et nous sommes nombreux dans ce cas là.

Je cherche une réponse à mon problème depuis plusieurs mois sans succès, peut être pourrez-vous m'aider

L'erreur n'arrive que de manière aléatoire, 2 fois sur 3 la macro fonctionne ..

J'ai mis, une partie un peu plus large du code mais seule la ligne en gras pose problème ..

Sub Confirmer_Commande_Envoi()

' On cache les colonnes H et I
If (Columns("H:I").EntireColumn.Hidden = False) Then _
Columns("H:I").EntireColumn.Hidden = True

' On cache toutes les références que l'on ne commande pas
For Each ligne In Rows("4:300")
r = ligne.Row
If (Cells(r, 10) = "" Or Cells(r, 5) <> "Mediq") Then _
Cells(r, 10).EntireRow.Hidden = True
Next

' On exporte le fichier dans le dossier actif au format pdf et avec pour nom "date commande de matériel chez excel download "
Sheets("commande (envoi)").Range("C3:J300").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Format(Date, "yyyymmdd") & " commande de matériel médical chez Mediq.pdf"

End If
End Sub

Merci beaucoup pour votre temps et votre aide,

louis

Staple1600 · 17 Septembre 2016

Bonjour à tous

Tu peux tester la macro ci-dessous pour voir si le résultat est OK.

VB:

Sub Confirmer_Commande_Envoi()
Dim NFic$, strPath As String
strPath = ThisWorkbook.Path & "\"
NFic = Format(Date, "yyyymmdd") & " BBcommande de matériel médical chez Mediq.pdf"
With Sheets("commande (envoi)")
    .Range("$A$4:$K$300").AutoFilter Field:=5, Criteria1:="<>Mediq"
    .Range("$A$4:$K$300").AutoFilter Field:=10, Criteria1:="<>"
    .Columns("H:I").EntireColumn.Hidden = True
    .AutoFilter.Range.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=srPath & NFic, Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    .ShowAllData
    .Columns("H:I").EntireColumn.Hidden = False
    .AutoFilterMode = False
End With
End Sub

Membre supprimé 205584 · 19 Septembre 2016

merci beaucoup pour ta réponse!

comme prévu je n'arrive pas à reproduire le bug qui est aléatoire, je ferais le changement de code la prochaine fois que la macro plante et je te ferais un retour à ce moment là

belle journée,

louis

Membre supprimé 205584 · 7 Octobre 2016

Bonjour,

j'ai pu faire le test après un bug du fichier.

J'ai une erreur 424 Objet Requis au niveau du premier .Range. J'ai essayé de bidouiller et de chercher sur internet sans succès ...

Au moins ton code m'a permis de m'instruire sur autofilter et criteria1 même si je n'ai pas trouvé de lecture exaustive je sais maintenant que ca existe.

Merci pour ton aide

louis

Staple1600 · 7 Octobre 2016

Bonsoir à tous

Et maintenant est-ce que c'est mieux ?

VB:

Sub Confirmer_Commande_Envoi()
Dim NFic$, strPath As String
strPath = ThisWorkbook.Path & "\"
NFic = Format(Date, "yyyymmdd") & " BBcommande de matériel médical chez Mediq.pdf"
With Sheets("commande (envoi)")
'ici changement de l'adresse des cellules
'il faut que ce soit la bonne adresse du tableau à filtrer
    .Range("$B$4:$j$300").AutoFilter Field:=4, Criteria1:="<>Mediq"
    .Range("$B$4:$j$300").AutoFilter Field:=9, Criteria1:="<>"
    .Columns("H:I").EntireColumn.Hidden = True
    .AutoFilter.Range.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=srPath & NFic, Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    .ShowAllData
    .Columns("H:I").EntireColumn.Hidden = False
    .AutoFilterMode = False
End With
End Sub

PS: Comme ton classeur "plantouillait" chez moi, j'avais testé en copiant la seule feuille commande (envoi) dans un classeur vierge
Sauf que j'avais l'avais collée en colonne A, d'où le bug chez toi.
Désolé

Membre supprimé 205584 · 7 Octobre 2016

damned ! toujours pas, et aucune idée de pourquoi encore, ta solution était parfaite sur le papier ..

c'est très cool de m'aider et de répondre aussi vite, je reprend espoir

XL 2016 erreur 1004, macro, lors de la génération d'un pdf

Membre supprimé 205584

Guest

Staple1600

XLDnaute Barbatruc

Membre supprimé 205584

Guest

Membre supprimé 205584

Guest

Staple1600

XLDnaute Barbatruc

Membre supprimé 205584

Guest

Discussions similaires