Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

sythaxe emplacement sauvegarde

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Darnel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Darnel

XLDnaute Impliqué
Bonjour

J'essaye par macro de créer une copie sans liaison d'un onglet uniquement (que les valeurs et le format), et je veux définir l'emplacement de cette copie comme suit :

voilà ce que j'ai fait comme macro, mais en rouge ce que je n'arrive pas à ecrire :
Code: 
Sub Macro1()
    Dim Nouveaufichier As String
    Dim Nomuser As String
    Nouveaufichier = Range("B5").Value
    Nomuser = Application.UserName
    Sheets("Fichesynthèse").Select
    Sheets("Fichesynthèse").Copy
    ActiveSheet.Shapes("Button 6").Delete
    ActiveSheet.Shapes("Button 8").Delete
    ActiveSheet.Shapes("Button 4").Select
    ActiveSheet.Shapes("Button 4").Delete
    ActiveSheet.Shapes("Button 2").Delete
    ActiveSheet.Shapes("Button 5").Delete
    ActiveSheet.Shapes("Button 9").Delete
    ActiveSheet.Shapes("Button 1").Delete
    ActiveSheet.Shapes("Button 3").Delete
    Range("A1:H55").Select
    Selection.Copy
    Range("A1:H1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    ChDir "D:\Documents and Settings\[COLOR=red]Nomuser[/COLOR]\Desktop\[COLOR=red]Nouveaufichier[/COLOR].xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
    Nouveaufichier.Workbook.Close
    Windows("Fiche de synthèse V3.0.xls").Activate
    Range("B2").Select
End Sub

si vous pouviez 'aider sur la manière dont je doit proceder pour qu'il me l'enregistre automatiquement comme indiqué dans macro ( qui ne fonctionne pas lol ) ce serait sympa
Merci à vous.
 
Trier par date Trier par votes
Re : sythaxe emplacement sauvegarde

Re

euh, petit correctif de ma macro, car j'y ai mis des bouts de codes qui ne valent rien ...
😛

voilà ou j'en suis après petite corrections
J'arrive a enregistrer le fichier sous le nom voulu, mais pas à l'emplacement voulu.
Donc un ptit coup de main serai pas de refu
Code: 
Sub Macro1()
    Dim Nouveaufichier As String
    Dim utilisateur As String
    Nouveaufichier = Range("B5").Value
    utilisateur = Application.UserName
    ActiveSheet.Unprotect
    Sheets("Fichesynthèse").Select
    Sheets("Fichesynthèse").Copy
    ActiveSheet.Shapes("Button 6").Delete
    ActiveSheet.Shapes("Button 8").Delete
    ActiveSheet.Shapes("Button 4").Select
    ActiveSheet.Shapes("Button 4").Delete
    ActiveSheet.Shapes("Button 2").Delete
    ActiveSheet.Shapes("Button 5").Delete
    ActiveSheet.Shapes("Button 9").Delete
    ActiveSheet.Shapes("Button 1").Delete
    ActiveSheet.Shapes("Button 3").Delete
    ActiveSheet.Shapes("Button 10").Delete
    Range("A1:H55").Select
    Selection.Copy
    Range("A1:H1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ChDir "D:\Documents and Settings\[COLOR=red]utilisateur[/COLOR]\Desktop"
    ActiveWorkbook.SaveAs Nouveaufichier
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
    ActiveWorkbook.Close
    Windows("Fiche de synthèse V3.1.xls").Activate
    Range("B2").Select
End Sub

EDITION : J'ai retravailler la macro pour qu'elle soit plus sucseptible de fonctionner.
Mon probleme reste celui du chemin dans lequel je veux enregistrer le fichier.
Le fichier de base est sur un serveur, et je veux que l'enregistrement se fasse sur le bureau de l'utilisateur .
Merci de votre aide
 
Dernière édition:
Vote positif 0 Vote négatif
Re : sythaxe emplacement sauvegarde

Bonjour à tous

bon à ce que je vois, mon probleme ne semble pas passionner les foules...
Mais c'est pas grave,
poour les quelques uns qui ont lus le fil et veulent une reponse, j'ai fini par trouver la solution à mon problème, et pour une fois c'est une vrai solution et pas un truc à l'arrache


voilà mon code final :

Code: 
Sub Macro1()
    Dim Nouveaufichier As String
    Dim utilisateur As String
    Nouveaufichier = Range("B5").Value
    utilisateur = Application.UserName
    ActiveSheet.Unprotect
    Sheets("Fichesynthèse").Select
    Sheets("Fichesynthèse").Copy
    ActiveSheet.Shapes("Button 6").Delete
    ActiveSheet.Shapes("Button 8").Delete
    ActiveSheet.Shapes("Button 4").Select
    ActiveSheet.Shapes("Button 4").Delete
    ActiveSheet.Shapes("Button 2").Delete
    ActiveSheet.Shapes("Button 5").Delete
    ActiveSheet.Shapes("Button 9").Delete
    ActiveSheet.Shapes("Button 1").Delete
    ActiveSheet.Shapes("Button 3").Delete
    ActiveSheet.Shapes("Button 10").Delete
    Range("A1:H55").Select
    Selection.Copy
    Range("A1:H1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    ChDir "D:\Documents and Settings\[COLOR=red]" & utilisateur & "[/COLOR]\Desktop"
    ActiveWorkbook.SaveAs Nouveaufichier
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
    ActiveWorkbook.Close
    Windows("Fiche de synthèse V3.1.xls").Activate
    Range("B2").Select
    ActiveSheet.Protect
    MsgBox "la fiche " & Nouveaufichier & " est enregistrée sur votre bureau"
End Sub

Donc voila, en traduction, le fichier est créer et enregistrer sur le bureau de l'utilisateur, quelque soit le nom d'utilisateur.

merci à ceux qui ont essayer, mais aussi au forum en générale, y a quelque mois, j'aurai jamais reussi à trouver ca tout seul et maintenant j'y arrive.
tout n'est pas parfait, mais je fais de plus en plus de trucs tout seul.
bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

I
  • Question Question
XL 2019 Comment optimiser ce code ?
Réponses
4
Affichages
990
Staple1600
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
  • Question Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
  • Question Question
XL pour MAC Vba - Macro enregistrer sous...
Réponses
7
Affichages
6 K
ArnaudSi
F
  • Question Question
Attribuer une macro à plusieurs boutons identiques
Réponses
5
Affichages
3 K
fleet21
F
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
7 K
Roland_M
T
  • Question Question
Copier des onglets dans un nouveau fichier
Réponses
0
Affichages
1 K
tamatave33
T
  • Question Question
XL 2013 trop de caractère de continuité de ligne
Réponses
4
Affichages
4 K
tactic6
C
  • Question Question
XL 2013 Absence de prompt enregistrement après macro
Réponses
3
Affichages
1 K
Lone-wolf
W
  • Question Question
Snapshot une feuille et envoie vers un fichier extérieur
Réponses
3
Affichages
2 K
wolfloner
W
E
  • Question Question
VBA - Enregistrer un fichier avec un nombre de cellule limité
Réponses
4
Affichages
1 K
eldoctor62
E
E
  • Question Question
VBA - Générer des classeurs personnalisés à partir d'une base
Réponses
0
Affichages
1 K
eeyglunent
E
  • Question Question
SUPER RESOLU - Macro qui fonctionne trop bien
2
Réponses
21
Affichages
2 K
Usine à gaz
M
  • Question Question
XL 2013 Optimisation de code pour une présentation
Réponses
5
Affichages
1 K
Merlin258413
M
A
  • Question Question
Utiliser les données depuis un classeur csv.
Réponses
8
Affichages
1 K
AntoineM
A
M
  • Question Question
Macro pour envoyer mail à partir de outlook
Réponses
12
Affichages
2 K
matthieu2701
M
K
  • Question Question
Probléme pour inserer plusieurs Photo définitivement d'un coup dans un fichier Excel.
Réponses
10
Affichages
2 K
Karim
K
A
  • Question Question
compatiblité excel 2007 avec excel 2010
Réponses
6
Affichages
860
abrou
A
J
  • Question Question
Optimisation code vba
Réponses
1
Affichages
1 K
mapomme
A
  • Question Question
[Résolu]Copier plage de cellule vers une autre feuille à l'aide d'un bouton
Réponses
8
Affichages
1 K
abrou
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…