Discussion :

[Master_x_99]

j'ai un problème avec le SaveAs. J'ai un message d'erreur qui me parvient lorsque j'exécute la macro.

J,ai pris quelques parties de code sur le forum. La macro fonctionne très bien à part cette partie.

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Sub generer_fichier()
'
' generer_pages Macro
' Génère les 45 pages du classeur.
'
 
Const Accents As String = "àâäåçéèêëîïôöùûüÈÉÊËÀÁÂÃÄÅÙÚÛÜ- ,"
Const Normaux As String = "aaaaceeeeiioouuuEEEEAAAAAAUUUU___"
 
 
Dim c As Range, Derligne As Integer, i As Byte
    Sheets("Menu").Select
    Derligne = Range("A65536").End(xlUp).Row
    For Each c In Range("A2:A" & Derligne)
        For i = 1 To Len(Accents)
            c.Value = Replace(c.Value, Mid(Accents, i, 1), Mid(Normaux, i, 1))
        Next i
    Next c
 
'
    Sheets("Menu").Select
    ' Déterminer combien d'agent sur la feuille Menu
    FinalAgent = Range("A65000").End(xlUp).Row
 
    ' Loop pour chaque agent
    For x = 2 To FinalAgent
 
        Sheets("Menu").Select
        ThisAgent = Range("A" & x).Value
 
 
 
 
    Dim wbk As Workbook
 
 
        Application.ScreenUpdating = False
        ThisWorkbook.Sheets(Array("Janvier", "Admin_Janvier", "Fevrier", "Admin_Fevrier", "Mars", "Admin_Mars", "Avril", "Admin_Avril", "Mai", "Admin_Mai", "Juin", "Admin_Juin", "Juillet", "Admin_Juillet", "Aout", "Admin_Aout", "Septembre", "Admin_Septembre", "Octobre", "Admin_Octobre", "Novembre", "Admin_Novembre", "Decembre", "Admin_Decembre", "AGT", "SGT")).Copy     
        Set wbk = ActiveWorkbook
 
 
 
Application.DisplayAlerts = False
wbk.SaveAs DossierSauvegarde & "\" & ThisAgent & ".xlsx"
 
Application.DisplayAlerts = True
wbk.Close
Set wbk = Nothing
 
    Next x
    Sheets("Menu").Select
    MsgBox ("Opération terminée.")
End Sub

Merci de votre aide

[SfJ5Rpw8]

Bonjour,

ben dans ce cas la , lorsque un message d'erreur s'affiche il faut commencer par le lire ... après on voit...

[Master_x_99]

P-e pourrais tu m'aider alors.. la chose que je veux faire c'est de pouvoir enregistrer mon fichier dans le même dossier que mon fichier maitre

[SfJ5Rpw8]

Non je ne peu pas t'aider il n'y as que toi devant ton écran ... pour lire le message d'erreur !

[Marc-L]

Bonjour, bonjour !

Voir donc la propriété Path du dossier maître !

Sinon lire les règles du forum devrait aider …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Master_x_99]

Désolé!

Voici le message d'erreur:

Erreur d'exécution 1004

Microsoft Excel ne peut accéder au fichier....

[SfJ5Rpw8]

vérifie ton nom de fichier et son chemin d'accès en plaçant par exemple un message box...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox DossierSauvegarde & "\" & ThisAgent & ".xlsx"

[Master_x_99]

Je viens de faire le test avec le MSG

Il me donne \test.xlsx

Il semble avoir un problème a trouver le début du chemin....

[SfJ5Rpw8]

Une chose que tu ne semble pas avoir fait mais qui devrait être obligatoire surtout pour les débutant ... La première ligne de toutes tes pages de codes doit-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

Tu peu récupérer le répertoire courant du fichier excel contenant ton code grâce à la propriété Path de ThisWorkBook

[Master_x_99]

Vous m'avez fait réfléchir et travailler!!

J'ai finalement trouvé la solution qui n'était pas sorcier

Voici mon résultat final:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
wbk.SaveAs ThisWorkbook.Path & "\" & ThisAgent & ".xlsx"

Merci De votre aide. C'est très apprécié