Enregistrer pdf avec chix du dossier

Bonjour,

Je suis débutant en VBA, mon code VBA fonctionne très bien sur mon ancien pc mais pas sur un nouveau pc.

concernant le Bouton commande enregistrer en PDF avec choix du dossier.

Merci d'avance.

Bonjour,

mon code VBA fonctionne très bien sur mon ancien pc mais pas sur un nouveau pc

sur quel version d'Excel la macro ne fonctionne pas ?

est ce qu'il y a un message d'erreur ?

si oui, sur quel ligne de la macro le message d'erreur se produit ?

bonjour,

je vous remercie de la rapidité de votre réponse,

la version Excel est de 2007.

le message est en pièce jointe

re,

je vois bien sur quel ligne l'erreur se produit mais pas le message d'erreur,

essai avec la propriété IncludeDocProperties:=False

Bonjour,

j'ai fait le test mais ca ne marche pas, c'est la même erreur,

J'ai tester le fichier sur deux autres pc avec la même version de Excel et ca marche parfaitement.

J'ai réinstaller Excel sur mon pc, ca n'a pas donner de résultat.

re,

montre moi le message d'erreur.

re,

re,

ça, ce n'est pas le message d'erreur, c'est la ligne ou se produit le message d'erreur

ce que je voudrais voir c'est le message qui apparaît lorsque l'erreur se produit.

Désolé, je n'est pas bien compris.

re,

essai en remplacant avec cette ligne

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nom, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Même message d'erre

ur.

re,

à tester,

affiche la fenêtre "Exécution" et dit-moi ce que Debug.Print nom aura donné

Sub Bouton1_Clic()
Dim nom As String
Dim dossier As String

'emplacement a derterminée
If MsgBox("Êtes-vous certain de vouloir générer ce PDF ?", vbYesNo, _
                              "Demande de confirmation") <> vbYes Then Exit Sub

Sheets("FACT1").Select

dossier = ChoixDossier
If dossier = "" Then Exit Sub
nom = dossier & "\" & Range("B18").Value & "-" & Range("A23").Value & "-" & Range("A24").Value & "-" & Range("H11").Value
Debug.Print nom      
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nom, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

pas de changement

tu ne lis pas tout,

affiche la fenêtre "Exécution" et dit-moi ce que Debug.Print nom aura donné

j'ai fait exécution

exécuter sub/userform F5

ca donne ça

ca ne fait rien a Debug.Print nom

comme ça,

Bonjour

le pdf sur excel 2007 est pas instaler d'origine

ses une instal a faire apres l'instal excel 2007

A+

Maurice

Bonjour archer,

le pdf sur excel 2007 est pas instaler d'origine

@ocsi

à tester,

Sub Bouton1_Clic()
Dim nom As String
Dim dossier As String

'emplacement a derterminée
If MsgBox("Êtes-vous certain de vouloir générer ce PDF ?", vbYesNo, _
                              "Demande de confirmation") <> vbYes Then Exit Sub

Sheets("FACT1").Select

dossier = ChoixDossier
If dossier = "" Then Exit Sub
nom = dossier & "\" & Range("B18").Value & "-" & Range("A23").Value & "-" & Range("A24").Value & "-" & Range("H11").Value & ".pdf"
Debug.Print nom
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nom, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub