enregistrement d'un fichier

[Bricoltou]

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

 

[Greutof]

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 :

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 !

 

[Bricoltou]

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

 

[Bricoltou]

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

 

[Bricoltou]

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

 

[kjin]

Re : enregistrement d'un fichier

Bonsoir,
Prend l'habitude de mettre ton code entre balises # ce sera plus lisible
En fin de procédure

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

 

[Bricoltou]

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#

 

[Bricoltou]

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

 

[kjin]

Re : enregistrement d'un fichier

Re,

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

Lorsque tu écris des lignes de code dans ton message, encadre les par des balises CODE (# dans le menu)
Si on tapes 53 dans l'InputBox, il se passe quoi ?
A+
kjin

 

[Bricoltou]

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