Ouverture d'un doc + enrgistrerment

Bonjour,

j'utilise le code suivant :

Sub hypertexte()
doccible = "Q:\MODELE AFE\MODELE-007A_CR.docx"
ActiveWorkbook.FollowHyperlink Address:=doccible, NewWindow:=True
doccible.SaveAs ("L:\Affaires\En Cours\123456-Client-VILLE\3-Travaux\01-ACT\01-CR\01-CVC\123456-001A_CR.docx)

End Sub

le doccible peut être n'importe quel type de doc ça marche bien pour l'ouverture par contre je n'arrive pas à enregistrer comme je veux !

quelqu'un peu m'aider ?

bonjour,

essaie comme ceci.

Sub hypertexte()
doccible = "Q:\MODELE AFE\MODELE-007A_CR.docx"
ActiveWorkbook.FollowHyperlink Address:=doccible, NewWindow:=True
filecopy doccible,"L:\Affaires\En Cours\123456-Client-VILLE\3-Travaux\01-ACT\01-CR\01-CVC\123456-001A_CR.docx

End Sub

Bonjour,

au final il s'agit d'un copier coller !

je viens d'arrivé au même point...

je viens de mettre ce code en place et je suis entrain de le modifier pour l'adapter !

    ' déclaration des variable pour copie/collage du fichier
        Dim fso As Object, Src$, Dest$, Fich$

    ' partie inconnue
        Set fso = CreateObject("Scripting.FileSystemObject")

        Src = "Q:\MODELE AFE\"
        Dest = chemin_enregistrement & "\"
        Fich$ = "rapport.docx"
        fso.CopyFile Src & Fich, Dest & "123456-001A_CR.docx"

j'ai juste une question, le copier coller va écraser sans rien demander mon fichier, du coup comme je doit contrôler s'il existe avant je me suis dit pourquoi ne pas essayer de l'ouvrir avant, comme ça le même code me permet de l'ouvrir s'il existe et de le créer s'il n'existe pas !

mais je ne sais pas comment traiter l'erreur engendrer par un lien non trouvé (erreur 432) !

dans tous les cas merci pour la réponse.

rebonjour,

Sub hypertexte()
doccible = "Q:\MODELE AFE\MODELE-007A_CR.docx"
s=dir(doccible)
if s<>"" then
filecopy doccible,"L:\Affaires\En Cours\123456-Client-VILLE\3-Travaux\01-ACT\01-CR\01-CVC\123456-001A_CR.docx
else
msgbox "fichier " & doccible & " inexistant"
end if
End Sub