Modification mise à jour de classeurs en VBA

Bonjour

Vous avez des erreurs où dans le code ?

Bonsoir,

Il me pointe cette ligne : Set WK = Workbooks.Open("R:\DPACQ\Equipes\Équipe Éval\BD\Fiche synthèse\INV Fiche synthèse SMDPSG.xlsx")

re

Plusieurs possibilités
- le répertoire n'est pas correct (vérifiez les accents et espaces)
- le nom du fichier n'est pas correct (vérifiez les espaces et les accents)
- le fichier n'existe pas
- l'extension du fichier n'est pas XLSX

Bonsoir Dan,

Je tente le tout + vérification ce week-end. Merci de m'avoir ouvert les yeux.

a+

Bonsoir Dan,

Que signifie cette erreur ? C'est bien étrange car en SM (Sub MaJ_SM()) le tout fonctionne mais pas avec la Sub MAJ_ Jeunesse ()

Code pour la Sub MAJ_Jeunesse :

Sub MAJ_Jeunesse()
'Dim WK_Resultat As Workbook
Dim Links As Variant

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False

    dossier = "R:\DPACQ\Equipes\Équipe Éval\BD\Fiche synthèse\"

    Call Renommer

    Set WK_Resultat = Workbooks.Open("R:\DPACQ\Equipes\Équipe Éval\BD\Fiche synthèse\INV Fiche synthèse Jeunesse.xlsx")

    Call Trente_Jours

    Call Copier_Coller_Jeunesse

    'renommer le fichier
     NouvNom = InputBox("Inscrire le nouveau nom du fichier" & vbNewLine & "Jeunesse")

    'mettre à jour les liaisons
    Call ouvrir_Fichier

    'WK_Resultat.SaveAs dossier & NouvNom, XlFileFormat.xlOpenXMLWorkbook

    'retirer totes les liaisons

    Call supprimer_liens

    Call FERMER_Fichier
    WK_Resultat.Save

 Application.DisplayAlerts = True
 Application.AskToUpdateLinks = True
 Application.ScreenUpdating = True

 MsgBox ("Ne pas oublier d'actualiser les requête!!")

 End Sub

Bonjour

Que signifie cette erreur ? C'est bien étrange car en SM (Sub MaJ_SM()) le tout fonctionne mais pas avec la Sub MAJ_ Jeunesse ()

C'est que vous avez deux fois la sub supprimer_liens dans le projet
Vérifiez dans tous les modules

Nickel

Grand merci et bonne fin de journée !