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...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.