Bonjour à tous,

Voici mon code. Il enregistre des données contenues dans mon classeur dans des répertoires qu'il a dans un premier temps supprimer si ils existent, puis recréée (ceci dans le but de s'assurer que les répertoires ont vides). Excel me crée bien les nouveaux répertoires mais est incapable de réaliser la sauvegarde des données :

Le message suivant s'affiche à l'écran :

"Impossible d'accéder à 'Nom du fichier.txt'. Le fichier peut être en lecture seule, ou vous essayer peut être d'accéderà un emplacement en lecture seule. Il est également possible que le serveur sur lequel est enregistré le document ne réponde pas." => Réessayer / Annuler

Si réessayer => message d'erreur redondant
Si annuler => mode débogage : "La méthode 'SaveAs' de l'objet 'Workbook' a échoué et la ligne suivante est surligné en bleue :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Données brutes\txt\Données brutes " & ws1.Cells(1, Col + 1) & ".txt", xlTextWindows 'enregistrement au format txt
Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 'Enregistrement données brutes
        For Col = PremC1 To DerC1 - 1 'boucle sur colonne
            Workbooks.Add 1 'ajout d'un classeur avec 1 feuille
            ws1.Range(ws1.Cells(2, 1), ws1.Cells(DerL1, 1)).Copy [A1] 'copie des colonnes qui vont bien dans le nouveau classeur
            ws1.Range(ws1.Cells(2, Col + 1), ws1.Cells(DerL1, Col + 1)).Copy [B1] 'copie des colonnes qui vont bien dans le nouveau classeur
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Données brutes\txt\Données brutes " & ws1.Cells(1, Col + 1) & ".txt", xlTextWindows 'enregistrement au format txt
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Données brutes\csv\Données brutes " & ws1.Cells(1, Col + 1) & ".csv", xlCSV, Local:=True 'enregistrement au format csv
            ActiveWorkbook.Close False 'fermeture du classeur texte
        Next Col
Merci pour votre aide,