Re: Archiver des feuilles par références
#11
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 29-12-2008 15h22
Re,

Tout d'abord, j'ai écrit :
ActiveWorkbook.SaveAs Filename:=F
(avec un "e")

Ensuite, ce que je veux dire c'est que si tu veux sauvegarder le fichier dans le sous-dossier PP116B, il faut que ce sous-dossier PP116B existe sur le disque dur, sinon, plantage de la macro assuré.
Ci-dessous, la macro évènementielle commentée :
Private Sub CommandButton1_Click()
Dim F As String
    'On détermine le chemin d'archivage (stocké dans une variable F)
    F = ThisWorkbook.Path & "\" & Range("F2") & "\" & Range("J2") & ".xls"
    MsgBox "Archive sous le chemin:" & vbLf & F
    'On "coupe" l'onglet actif et on crée un nouveau classeur avec
    ActiveSheet.Move
    'On sauve ce nouveau classeur sous le chemin déterminé plus haut
    ActiveWorkbook.SaveAs Filename:=F
    'On ferme le nouveau classeur
    ActiveWorkbook.Close
End Sub
Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Archiver des feuilles par références
#12
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 29-12-2008 18h33
re
j'avais rectifier mon erreur entre temps mais sa ne marche toujours pas pourtant j'ai rassembler tout dans un meme dossier.
merci


Pièce jointe:
zip Archive.zip   [ Taille: 45.03 Ko - Téléchargements: 488 ]
Hors Ligne
Rapport   Haut 

Re: Archiver des feuilles par références
#13
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 29-12-2008 18h56
Ok claude40, mais "ça ne marche pas" ça veut dire quoi exactement ? As-tu un message d'erreur ?

  • Je prends ton fichier Zip.
  • Je le décompresse sur le disque dur.
  • J'ouvre le fichier "Saisie.xls"
  • Je vais sur l'onglet "Accueil"
  • Je clique sur "Créer une nouvelle page"
  • Je saisie ensuite : Référence = "PP116B", Lot = "48" et Date = "29/12/2008" et je valide.
  • Je me rends ensuite sur l'onglet "48" nouvellement créé.
  • Je clique sur le bouton "Enregistrer"
  • L'onglet s'archive en tant que classeur "48.xls" dans le sous-répertoire "PP116B" et disparait du classeur "Saisie.xls" (comme tu le souhaitais).

Où est le problème ? La démarche n'est pas bonne ? Tu voulais autre chose ?
Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Archiver des feuilles par références
#14
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 29-12-2008 19h13
re Mdf et desoler de t'enbeter autant

la message et le suivant:

les fonctionnalitées ne peuvent pas etre enregistrées dans des classeur sans macros:

.projet vb

pour enregistrer avec ces fonctionnalitees,cliquez sur non puis selectionnez un type de fichier prenant en charge les macros dans la liste type de fichier.
pour continuer a enregistrer en tant que classeur sans macros cliquez sur oui.


ces ce message qui s'affiche si toi il ne s'affiche pas peut tu me dire pourquoi que je l'enléve.

sinon il faut que je clique sur oui et sa enregistre bien le fichier.

en te remerciant beaucoup pour ta patience.
Hors Ligne
Rapport   Haut 

Re: Archiver des feuilles par références
#15
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 29-12-2008 19h53
Re,

Ok, puisque tu travailles sous XL2007 (tout comme l'ami JCGL, je l'avais oublié aussi), il te faut modifier la ligne de code suivante comme indiqué :
ActiveWorkbook.SaveAs Filename:=F, FileFormat:=xlOpenXMLWorkbookMacroEnabled

Cela dit, moi je trouve qu'il y a une grande différence entre "ça marche pas" et l'explication finale que tu donnes : "une alerte s'affiche... et ça fonctionne si on clique sur 'Oui'" ! Si tu l'avais dit dès le départ, on aurait gagné du temps toi et moi... Cela est d'autant plus vrai que ce problème d'alerte, tu devais déjà le rencontrer avec le code qui t'a été proprosé sur XLD.

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Archiver des feuilles par références
#16
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 29-12-2008 20h09
merci beaucoup pour ton aide et bonjour a JCGL qui a démarrer le code avec moi.

excuse moi mais je n'est pas encore les reflexe qui nous permettrer de gagner du temps,j'espére que je prendrai vite l'habitude de vous donnée beaucoup de détail.

encore merci pour votre aide a toi et a JCGL

a bientot
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes