Bonjour,
j'ai un fichier avec un code vba qui fonctionne trés bien pour enregistrement auto, voici le code:
Sub EnregistrerSous()
Dim Chemin As String, Mois As String, Année As String, Fichier As String
If Not ActiveSheet.Name = "CR Facture" Then Exit Sub
Mois = Replace(Replace(Replace(Format(Range("C24").Value, "mmmm"), "é", "e"), "è", "e"), "û", "u")
Année = Year(Range("C24").Value)
'chemin
Chemin = "C:\Users\christophe\Google Drive\promedep drive\Nouvelle gestion\feuille d'inter avant 01042015\Facture "
Chemin = Chemin & Mois & " " & Année & "\Fac " & Mois & " " & Année & "\"
'fichier
Fichier = ActiveWorkbook.Name
Fichier = Range("B24").Value & "_" & Fichier
ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
J'ai donner ce fichier a un amis pour utilisation et j'ai voulu lui adapter l'enregistrement et j'ai donc changé juste le chemin d'accès mais cela ne fonctionne pas.... et voici ce que cela donne:
Sub EnregistrerSous()
Dim Chemin As String, Mois As String, Année As String, Fichier As String
If Not ActiveSheet.Name = "CR Facture" Then Exit Sub
Mois = Replace(Replace(Replace(Format(Range("C24").Value, "mmmm"), "é", "e"), "è", "e"), "û", "u")
Année = Year(Range("C24").Value)
'chemin
Chemin = "C:\Users\CHRISTOPHE\Desktop\seb "
Chemin = Chemin & Mois & " " & Année & "\Fac " & Mois & " " & Année & "\"
'fichier
Fichier = ActiveWorkbook.Name
Fichier = Range("B24").Value & "_" & Fichier
ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
pour info: pour l'instant tout est encore en test sur mon pc, je changerai le début du chemin une fois sur son pc.
Quelqu'un a t'il la solution?
Merci d'avance pour votre aide