Re : aide macro déplacer hyperlien si
bonjour
je reviens vers vous pour une petite aide en urgence
Suite ordi HS, j' ai besoin suivant ordi de faire une macro qui me permet de faire un pdf sur le bureau suivant l' ordi que j' utilise, sans à chaque fois changer l' adresse
Sub pdf()
Dim Fichier As String
Dim X As String
Dim Y As String
Dim Z As String
X = Range("E45").Value
Y = Range("E11").Value
Z = Range("H17").Value
Fichier = Z & " - " & Y & " - " & X & " € "
'sur ordi tour hs''ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\AK FROID\Desktop\COMPTA2013\LISTE FACTURES\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
OpenAfterPublish:=False'
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\HP AK FROID\Desktop\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
OpenAfterPublish:=False'
'ORDI SAMSUNG'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\AK\Desktop\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
OpenAfterPublish:=False '
End Sub
MERCI ENCORE BEAUCOUP