Discussion :

[diss10]

Bonjour a tous ,

J'ai un ficher excel qui crash quand j’exécute ma macro qui renomme le ficher a la date du jour et le place dans un dossier :

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
Public Sub RenameDoc()
Dim GoodName As String
Dim GoodfullName As String
Dim BadFullName As String
 
With Worksheets("REQUEST")
'Concatenate the name of the project
.Cells(17, 18).Value = .Cells(15, 2).Value + " " + .Cells(15, 5).Value + " " + .Cells(15, 7).Value + " " + .Cells(15, 11).Value + " " + .Cells(15, 15).Value + " " + .Cells(15, 20).Value
End With
 
'If Worksheets("REQUEST").Cells(4, 7).Value <> "" Then
 
    'New standard name
    GoodName = Format(Date, "yyyymmdd") & " DocReq " & Worksheets("REQUEST").Cells(17, 18).Value & " " & Worksheets("REQUEST").Cells(4, 7).Value & " " & Worksheets("REQUEST").Cells(6, 7).Value & ".xlsm"
    'New name with MSwindows path
    GoodfullName = Replace(ActiveWorkbook.FullName, ActiveWorkbook.name, GoodName)
 
    'Curent file name with path
    BadFullName = ActiveWorkbook.FullName
 
    'save curent file with new name
    ActiveWorkbook.SaveAs (GoodfullName)
 
    'Open file with new name
    Workbooks.Open Filename:=GoodfullName
 
    'Close file with old name, without saving it
    Workbooks(BadFullName).Close SaveChanges:=False
 
'End If
 
End Sub

Merci d'avance les amis

[Daniel.C]

Bonjour,

Ou j'ai raté quelque chose, mais pourquoi cherches-tu à ouvrir le fichier après le "saveas" puisqu'il n'est pas fermé ? Exécute le code ligne à ligne et dis-nous sur quelle ligne se produit l'erreur. Quel est le type du fichier avant d'être renommé ?

[diss10]

Bonjour,
Exécute le code ligne à ligne et dis-nous sur quelle ligne se produit l'erreur.

Ça crache au niveau de " ActiveWorkbook.SaveAs (GoodfullName) " Mais qd j'ai mis les 2 ligne suivante en commentaire ça marche .

Le but c d'avoir le ficher renommé directement sans a voir a aller le chercher dans le dossier spécifié .

[Daniel.C]

Quel est le type du fichier avant enregistrement ? .xlsx, .xlsm ?

[diss10]

c'est un .xlsm

[Daniel.C]

Est-ce que l'enregistrement sous le nouveau nom a eu lieu ?

[diss10]

Sous la même extension Xlsm .
Mais la , j'arrive a renommer mon ficher sans crash et sans le ré ouvrir .

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
'New standard name
    GoodName = Format(Date, "yyyymmdd") & " DocReq " & Worksheets("REQUEST").Cells(17, 18).Value & " " & Worksheets("REQUEST").Cells(4, 7).Value & " " & Worksheets("REQUEST").Cells(6, 7).Value & ".xlsm"
    'New name with MSwindows path
    GoodfullName = Replace(ActiveWorkbook.FullName, ActiveWorkbook.name, GoodName)
 
    'Curent file name with path
    BadFullName = ActiveWorkbook.FullName
 
    'save curent file with new name
    ActiveWorkbook.SaveAs (GoodfullName)
 
    'Open file with new name
    'Workbooks.Open Filename:=GoodfullName
 
    'Close file with old name, without saving it
    'Workbooks(BadFullName).Close SaveChanges:=False

J'ai enlever juste les 2 dernière ligne de la macro Bonne remarque que vous m'avez donner au debut Merci