Bonjour à tous,
J'ai 2 fichier Excel qui fonctionnent ensemble. Sur 1 des 2, il y a un bouton qui permet d'enregistrer automatiquement les 2 fichiers dans leur répertoire respectif sans boites de dialogues. J'ai programmé le code sur excel 2007 et tout fonctionne bien. Mais en mettant les fichiers sur Excel 2010, le 1er fichier s'enregistre bien mais pour le deuxième, j'ai une boite de dialogue qui apparaît et qui me met (copie de ****.xlsx). Normalement, je n'ai pas a avoir de boite de dialogue qui s'ouvre, le fichier doit d'enregistrer automatiquement.
Est-ce que ce problème est connu ???
Voici le code:
J'ai 2 fichier Excel qui fonctionnent ensemble. Sur 1 des 2, il y a un bouton qui permet d'enregistrer automatiquement les 2 fichiers dans leur répertoire respectif sans boites de dialogues. J'ai programmé le code sur excel 2007 et tout fonctionne bien. Mais en mettant les fichiers sur Excel 2010, le 1er fichier s'enregistre bien mais pour le deuxième, j'ai une boite de dialogue qui apparaît et qui me met (copie de ****.xlsx). Normalement, je n'ai pas a avoir de boite de dialogue qui s'ouvre, le fichier doit d'enregistrer automatiquement.
Est-ce que ce problème est connu ???
Voici le code:
Code:
Private Sub cmd_Enregistrement_OF_Click()
If Range("J5") <> "" Then
'a vous de mettre le chemin correct
chemin = "Z:\CONTROLE\MSP_SPC\pilotage tableaux excel V2\MESSIER\A35534\"
'sauvegarde en xlsm
ActiveWorkbook.SaveAs Filename:=chemin & Range("I5") & Range("J5") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox "fiche sauvegargée et archivée !"
Windows("CNOMO.xlsx").Activate
ActiveWorkbook.Close True
Else
MsgBox "Attention: il faut un numéro d'OF"
End If
End Sub