je souhaiterai une macro qui fasse un "enregistrement sous", le nom du
fichier doit être la composante de la valeur de 2 cellules, [par exemple la
cellule A1(le département) et la cellule A2 (la commune); ce qui fait un nom
de fichier du type : RHONE LYON.XLS]
le répertoire quant à lui le chemin restera constant.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Jack 43,
tu peux lier cette procédure à un bouton de commande de la barre d'outils formulaire :
'-------------------------------- Sub BontonDeCommande()
Dim Nom As String Dim Chemin As String
Chemin = "C:Excel" ' à déterminer
With Worksheets("Feuil1") Nom = .Range("A1") & " " & .Range("B1") & ".xls" End With
If Dir(Chemin & Nom) = "" Then ThisWorkbook.SaveAs Chemin & Nom Else If MsgBox("Attention, ce fichier exites déjà." & vbCrLf & _ "Désirez-vous l'écraser?", vbCritical + vbYesNo, "Attention") = vbYes Then Application.DisplayAlerts = False ThisWorkbook.SaveAs Chemin & Nom Application.DisplayAlerts = True End If End If
End Sub '--------------------------------
Salutations!
"JACK 43" a écrit dans le message de news:
Bonsoir,
je souhaiterai une macro qui fasse un "enregistrement sous", le nom du fichier doit être la composante de la valeur de 2 cellules, [par exemple la cellule A1(le département) et la cellule A2 (la commune); ce qui fait un nom de fichier du type : RHONE LYON.XLS]
le répertoire quant à lui le chemin restera constant.
MERCI ET BONNE SOIREE !!!!
Bonjour Jack 43,
tu peux lier cette procédure à un bouton de commande de la barre d'outils formulaire :
'--------------------------------
Sub BontonDeCommande()
Dim Nom As String
Dim Chemin As String
Chemin = "C:Excel" ' à déterminer
With Worksheets("Feuil1")
Nom = .Range("A1") & " " & .Range("B1") & ".xls"
End With
If Dir(Chemin & Nom) = "" Then
ThisWorkbook.SaveAs Chemin & Nom
Else
If MsgBox("Attention, ce fichier exites déjà." & vbCrLf & _
"Désirez-vous l'écraser?", vbCritical + vbYesNo, "Attention") = vbYes Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Chemin & Nom
Application.DisplayAlerts = True
End If
End If
End Sub
'--------------------------------
Salutations!
"JACK 43" <JACK43@discussions.microsoft.com> a écrit dans le message de news:
F181F4BB-3AE5-4EE7-9F5B-D196E938C833@microsoft.com...
Bonsoir,
je souhaiterai une macro qui fasse un "enregistrement sous", le nom du
fichier doit être la composante de la valeur de 2 cellules, [par exemple la
cellule A1(le département) et la cellule A2 (la commune); ce qui fait un nom
de fichier du type : RHONE LYON.XLS]
le répertoire quant à lui le chemin restera constant.
tu peux lier cette procédure à un bouton de commande de la barre d'outils formulaire :
'-------------------------------- Sub BontonDeCommande()
Dim Nom As String Dim Chemin As String
Chemin = "C:Excel" ' à déterminer
With Worksheets("Feuil1") Nom = .Range("A1") & " " & .Range("B1") & ".xls" End With
If Dir(Chemin & Nom) = "" Then ThisWorkbook.SaveAs Chemin & Nom Else If MsgBox("Attention, ce fichier exites déjà." & vbCrLf & _ "Désirez-vous l'écraser?", vbCritical + vbYesNo, "Attention") = vbYes Then Application.DisplayAlerts = False ThisWorkbook.SaveAs Chemin & Nom Application.DisplayAlerts = True End If End If
End Sub '--------------------------------
Salutations!
"JACK 43" a écrit dans le message de news:
Bonsoir,
je souhaiterai une macro qui fasse un "enregistrement sous", le nom du fichier doit être la composante de la valeur de 2 cellules, [par exemple la cellule A1(le département) et la cellule A2 (la commune); ce qui fait un nom de fichier du type : RHONE LYON.XLS]
le répertoire quant à lui le chemin restera constant.
