Bonsoir le Forum,
Je n'arrive pas à resoudre cette erreur:
" il s'est produit l'erreur '5' en temps d'execcution
argument ou appel de procedure non valide"
- Ma macro en question pour l'enregistrement sous PDF de ma feuille.
Sub Rectánguloredondeado_Haga_clic_en()
'Sub SauverFichier()
'Date du jour à figer par copier collage spécial
Range("I2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Sauvegarde du fichier sous le numéro
Dim Fichier As String
'Dim A As Long, togo As Boolean
Dat = Format(Date, "dd-mm-yyyy")
Chemin = "H:\TEST Fonta\FACTURAS - F2008\"
NomFichier = Range("I3") & " - " & Range("I2") & " - " & Range("D10") & " - " & Range("H10") & " - "
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=" & Chemin & NomFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True"
End Sub
Merci pour votre aide a tous.
Je n'arrive pas à resoudre cette erreur:
" il s'est produit l'erreur '5' en temps d'execcution
argument ou appel de procedure non valide"
- Ma macro en question pour l'enregistrement sous PDF de ma feuille.
Sub Rectánguloredondeado_Haga_clic_en()
'Sub SauverFichier()
'Date du jour à figer par copier collage spécial
Range("I2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Sauvegarde du fichier sous le numéro
Dim Fichier As String
'Dim A As Long, togo As Boolean
Dat = Format(Date, "dd-mm-yyyy")
Chemin = "H:\TEST Fonta\FACTURAS - F2008\"
NomFichier = Range("I3") & " - " & Range("I2") & " - " & Range("D10") & " - " & Range("H10") & " - "
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=" & Chemin & NomFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True"
End Sub
Merci pour votre aide a tous.