Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Lorsque l'on travaille avec des fichiers, le chemin d'accès doit être en absolu.
L'instruction "Workbooks.Open Filename:=Classeur_Source" déclenchera une erreur si le fichier est absent. Il suffit de tester l'erreur, d'afficher un message et sortir de la procédure.
Exemple
If...
Bonjour,
En effet il y une petite erreur dans le code
Voici la correction : (une ligne à rajouter)
Sub traqueur_de_données()
'
' traqueur_de_données Macro
'
Classeur_Actuel = ActiveWorkbook.Name ' Sauve le nom de l'actuel classeur
Dim i As Integer
For i = 7 To 13 ' boucle de test...
Je suppose qu'il y a un classeur par agent ?
Dans ce cas il faut renseigner plusieurs cellules avec les noms des classeurs et faire une boucle For/next sur cette liste.
Comme ceci : (les noms de classeurs sont dans les cellules A1 à Annn)
une cellule vide détermine la...
Bonjour,
Voici ma méthode :
Classeur_Actuel=ActiveWorkbook.Name ' Sauve le nom de l'actuel classeur
Classeur_Source=cells(...) ' cellule où se trouve le nom du classeur (avec chemin)
Workbooks.Open Filename:=Classeur_Source ' Ouvre le classeur source (erreur si absent) et l'active...