MuscatMimi
XLDnaute Accro
Bonsoir a tous le forum
Je joins un code qui fonctionne normalement,mais je viens de l'inclure dans un autre fichier crée
et dans ce fichier il y a deux cellule qui comporte des caractères spéciaux
Exemple : N° 15,,,dans une cellule
et N° Série dans une autre,et Excel, n'aime pas a l'enregistrement
Si quelqu'un a une idée,elle sera bien venue
Bonne soirée et très bonne fêtes
Je joins un code qui fonctionne normalement,mais je viens de l'inclure dans un autre fichier crée
et dans ce fichier il y a deux cellule qui comporte des caractères spéciaux
Exemple : N° 15,,,dans une cellule
et N° Série dans une autre,et Excel, n'aime pas a l'enregistrement
Si quelqu'un a une idée,elle sera bien venue
Bonne soirée et très bonne fêtes
VB:
'Enregistrement Zone 1
Sub Enregistrer1()
Dim Nom As String, Numero As String, Fact As String, Client As String, fichier As String, Dest As String, Fa As String, Chantier As String
Dim obj As OLEObject
Dim wk As Workbook
Dest = Sheets("MailDepannage").Range("I23") 'chemin du fichier
Fa = Range("C23") 'N°du dossier
Client = Range("F4") 'objet
Numero = Range("C21") 'nom du fichier a enregistrer
Dim Utilisateur As Variant
Utilisateur = Environ("UserName")
If Dir(Dest, vbDirectory) = "" Then MkDir Dest
fichier = Dest & "\" & Fa & "\" & " " & Client & " " & Numero & ".xls"
If Dir(fichier) <> "" Then
If MsgBox("le fichier existe déjà !" & vbCrLf & "Le remplacer ?", vbYesNo) = vbNo Then 'rep =
Exit Sub '(1)
Else: GoTo Enregistrer '(1)
End If '(1)
Else: GoTo Enregistrer '(1)
End If
Enregistrer:
Sheets("MailDepannage").Copy
Application.DisplayAlerts = False
Application.ActiveWorkbook.SaveAs fichier ' Enregistre ce Classeur
Application.ActiveWorkbook.Close 'Ferme le classeur sauvegarder et laise l'original ouvert
Application.DisplayAlerts = True
End Sub