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

enregistrement d'un fichier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Bricoltou
  • 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
B

Bricoltou

XLDnaute Occasionnel
Bonsoir le Fil

Je bloque sur un code pour enregistrer et renommer un fichier .

J'ai un fichier fermé sur mon disque dur qui me sert de matrice et je ne souhaite gardé le nom de ce fichier qui est inclus dans ma macro .
Je souhaite enregistré cette matrice avec un numero de semaine .
J'ai ajouté un code imputbox mais je bloque sur la fin et je souhaite enregistré le nouveau fichier au même endroit .
Voici le début de mon code :

Private Sub CommandButton2_Click()
Workbooks.Open Filename:= _
"C:\Documents and Settings\administrateur\Desktop\Camionnage\Matrice_Chauffeur .xls"
Dim no_sem As String
no_sem = InputBox("Saisissez le numéro de la semaine ", "No de semaine")

Ce serait 😎 si quelqu'un pouvait me conseiller .

Merci d'avance

Bricoltou
 
Trier par date Trier par votes
Re : enregistrement d'un fichier

Si j'ai bien compris tu veux enregistrer une copie de ta matrice.
Cette copie doit avoir pour nom de fichier :
le nom de fichier de ta matrice originale + le numéro de semaine
Si c'est ça c'est très simple :

Code: 
Private Sub CommandButton2_Click()

Workbooks.Open Filename:= "C:\Documents and Settings\administrateur\Desktop\Camionnage\Matrice _Chauffeur.xls"

ActiveWorkbook.SaveCopyAs = ActiveWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0) & InputBox("Saisissez le numéro de la semaine ", "No de semaine") & ".xls"

La fonction split est magique pour le traitement des chaines de caractères !
 
Vote positif 0 Vote négatif
Re : enregistrement d'un fichier

Bonjour le Fil

Merci Greutof pour ta réponse 😎,c'est bien ce que je voulais faire .
La macro bloque sur SaveCopyAs (erreur de compilation , fonction ou variable attendu )

Je ne comprend pas mais je suis un débutant en VBA


@+

Bricoltou
 
Vote positif 0 Vote négatif
Re : enregistrement d'un fichier

Bonjour le Fil , Greutof

Problème résolu partiellement 😱

Je cherche maintenant a fermé automatiquement le fichier excel que j'ai créer.
J'ai cherché sur les posts mais je n'ai pas trouver l'instruction qui fonctionne .

Private Sub CommandButton2_Click()
Workbooks.Open Filename:= _
"C:\Documents and Settings\btjoncke\Desktop\Camionnage\Matrice_Chauffeur .xls"
Dim no_sem As String
no_sem = InputBox("Saisissez le numéro de la semaine ", "No de semaine")
ChDir "C:\Documents and Settings\btjoncke\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\btjoncke\Desktop\Archives\" & "Planning" & no_sem & ".xls"

Avez vous une idée pour moi

Bravo pour ce forum

Bricoltou
 
Vote positif 0 Vote négatif
Re : enregistrement d'un fichier

Bonjour le Fil

probléme Résolu , 😛 j'ai cherché plus loin dans les posts .
Je met le code pour ceux que cela interresse .

Private Sub CommandButton2_Click()
Workbooks.Open Filename:= _
"C:\Documents and Settings\btjoncke\Desktop\Camionnage\Matrice_Chauffeur .xls"
Dim no_sem As String
no_sem = InputBox("Saisissez le numéro de la semaine ", "No de semaine")
ChDir "C:\Documents and Settings\btjoncke\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\btjoncke\Desktop\Archives\" & "Planning" & no_sem & ".xls"
ActiveWorkbook.Close

@+

Bricoltou
 
Vote positif 0 Vote négatif
Re : enregistrement d'un fichier

Bonsoir,
Prend l'habitude de mettre ton code entre balises # ce sera plus lisible
En fin de procédure
Code: 
ActiveWorkbook.Close
Juste une remarque, il n'y a aucun contrôle dans ta macro, ni sur l'existence du fichier à ouvrir, ni sur la valeur saisie dans l'InputBox
A+
kjin
 
Vote positif 0 Vote négatif
Re : enregistrement d'un fichier

bonsoir Kjin

#Private Sub CommandButton2_Click()
Workbooks.Open Filename:= _
"C:\Documents and Settings\btjoncke\Desktop\Camionnage\Matrice_Chauf feur .xls"
Dim no_sem As String
no_sem = InputBox("Saisissez le numéro de la semaine ", "No de semaine")
ChDir "C:\Documents and Settings\btjoncke\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\btjoncke\Desktop\Archives\" & "Planning" & no_sem & ".xls"
ActiveWorkbook.Close#
 
Vote positif 0 Vote négatif
Re : enregistrement d'un fichier

Bonsoir Kjin

je ne comprend ce que tu ve me dire avec les #

Private Sub CommandButton2_Click()
Workbooks.Open Filename:= _
"C:\Documents and Settings\btjoncke\Desktop\Camionnage\Matrice_Chauf feur .xls"
Dim no_sem As String
no_sem = InputBox("Saisissez le numéro de la semaine ", "No de semaine")
ChDir "C:\Documents and Settings\btjoncke\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\btjoncke\Desktop\Archives\" & "Planning" & no_sem & ".xls"
ActiveWorkbook.Close

Pour résumer mon code :
J'ai affecté le code ci dessus a un bouton pour proceder à un archivage
Le fichier Matrice chauffeur a été rempli par une macro au préalable .
J'ouvre donc ce fichier ,je le renomme planning + n° semaine saisie dans imput afin de l'enregistrer puis je ferme le classeur .
Voila sa marche

@+

Bricoltou
 
Vote positif 0 Vote négatif
Re : enregistrement d'un fichier

Merci Kjin pour ton conseil , pour la semaine 53 je dois encore travaillé dessus car si je saisie 53 dans l'imputBox il archive le fichier avec ce numéro 😱

@+

Bricoltou
 
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

M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
672
MarineU
M
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
700
ChTi160
R
  • Résolu(e)
Microsoft 365 Lien variable dans nom feuille classeur
Réponses
6
Affichages
844
randle008
R
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
E
  • Question Question
XL 2013 enregistrement d'un meme fichier excel sous des noms différents
Réponses
3
Affichages
665
Staple1600
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
900
lesoldat9
L
I
  • Question Question
Power BI [résolu] Multiples opérations via Power Query
Réponses
3
Affichages
1 K
ilyes4205
I
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
M
  • Résolu(e)
XL 2013 Mémoriser le dernier emplacement de sauvegarde
Réponses
9
Affichages
1 K
M.Ben
M
G
  • Résolu(e)
Microsoft 365 création d'onglet/ enregistrement fichier en CSV
Réponses
1
Affichages
2 K
AtTheOne
K
  • Question Question
XL 2016 Ouverture d'un fichier .txt (avec partie variable) puis enregistrement sous .csv avec nom défini
2
Réponses
15
Affichages
2 K
dysorthographie
T
  • Résolu(e)
XL pour MAC création d'un dossier et enregistrement d'un fichier en pdf
Réponses
8
Affichages
2 K
tdenis
T
M
  • Question Question
Microsoft 365 Import d'un fichier .xlsx et analyse des données en VBA
Réponses
3
Affichages
2 K
Massy1
M
  • Résolu(e)
Autres Est-il possible d'interdire ou de bloquer le déplacement d'un fichier Excel non fermé ?
2
Réponses
29
Affichages
3 K
Usine à gaz
  • 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
C
  • Résolu(e)
XL 2019 Insérer des datas d'un autre fichier dans une msgbox
Réponses
6
Affichages
1 K
Staple1600
  • Question Question
Microsoft 365 Gros problème de ralentissement au lancement d'un inputbox
3 4 5
Réponses
60
Affichages
6 K
soan
S
M
  • Question Question
XL 2016 VBA > Réactualisation d'un TCD à l'ouverture du fichier qui ne passe pas
Réponses
3
Affichages
2 K
Phil69970
F
  • Question Question
Microsoft 365 Recordset avec fichier TSV
2
Réponses
15
Affichages
4 K
Hasco
M
  • Question Question
XL 2010 Enregistrement fichier via inputbox
Réponses
3
Affichages
1 K
Robert
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…