Créer classeur (B) et copier Feuil1 classeur (A) dans celui-ci, en le renommant suiva

[IFFIC]

Bonsoir à tous qui passeront par là.
Et Merci à ceux qui m'ont tant aidé.

En fait, ce n'est pas vraiment pour moi, mais pour un stagiaire ingénieur machin-truc qui m'a posé une question à laquelle je ne voudrais pas, par le silence ou la lenteur de la réponse, passer pour un …

Le sujet est de copier une feuille "Commande" du classeur actif.

1) De créer un nouveau classeur dans une directory \\ serveur …
Prédestinée; genre "C:…\\"

2) De Copy la feuille "COMMANDE" sans liens (Qu'il m'a bidouillé, le bougre!!!)

3) De nommer le nouveau classeur de la valeur (Préfixe) & Worksheets("COMMANDE").Cells(10,5)
(Préfixe, ou date; issus d'une imput que je vais savoir gérer)

Capricieux boutonneux,: qui veut en plus sans filedialog, ni allllert!!!

J'lui dis quoi, moi…???

Je pense qu'en passant une poignée d'heures j'y trouverais réponse dans mes bidouilles.

Mais si une bonne âme pouvait m'aider à gagner du temps, Je suis preneur.

Le sale gosse capricieux se joint à moi pour vous dire d'avance Merci.

IFFIC

 

[Mytå]

Re : Créer classeur (B) et copier Feuil1 classeur (A) dans celui-ci, en le renommant suiva

Salut IFFIC et le Forum

Un début de solution

Sub Copier_Creer()
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="C:\Excel\testIFFIC.xls"
End Sub

Mytå

 

[IFFIC]

Re : Créer classeur (B) et copier Feuil1 classeur (A) dans celui-ci, en le renommant suiva

Salut IFFIC et le Forum

Un début de solution

Sub Copier_Creer()
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="C:\Excel\testIFFIC.xls"
End Sub

Mytå

Bonsoir Myta. Bonsoir à ceux qui passeront par là

Pour un "Début"; C'est un bon début !!!!!!!!!!!!! Super Efficace...

Je m'en vais fouiller dans mes archives pour voir si je trouve un truc pour mettre "testIFFIC" en variable genre TextBox1.value, ou cells(3,5).

Merci beaucoup à toi, et bonne soirée.

IFFIC

 

[Mytå]

Re : Créer classeur (B) et copier Feuil1 classeur (A) dans celui-ci, en le renommant suiva

Salut IFFIC et le Forum

Un bout de code avec Nom variable et pour rompre la première liaison
rencontrée.

Sub Copier_Creer()
 
Dim Chemin As String
Dim NomFichier As String
Dim astrLinks As Variant
 
Chemin = "C:\Excel\"
NomFichier = Cells(1, 1) & ".xls"
 
Sheets("Feuil1").Copy
 
'Pour rompre la première liaison
' Define variable as an Excel link type.
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
' Break the first link in the active workbook.
ActiveWorkbook.BreakLink _
Name:=astrLinks(1), _
Type:=xlLinkTypeExcelLinks
 
ActiveWorkbook.SaveAs Filename:=(Chemin & NomFichier)
 
End Sub

Pour rompre toutes les liaisons

Sub UseBreakLink()
Dim astrLinks As Variant
For Each astrLinks In ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    ActiveWorkbook.BreakLink Name:=astrLinks, Type:=xlLinkTypeExcelLinks
Next astrLinks
End Sub

Mytå

 

[IFFIC]

Re : Créer classeur (B) et copier Feuil1 classeur (A) dans celui-ci, en le renommant suiva

Bonsoir Myta, ainsi qu'à ceux qui passeront par là.

Pour info, j'ai du mal à être prompt à te remercier car
je suis sans cesse déconnecté.
En limite réception ADSL au

 

[IFFIC]

Re : Créer classeur (B) et copier Feuil1 classeur (A) dans celui-ci, en le renommant suiva

Et vlan!!! Encore....
Disais-je donc; au fond de ma campagne.
Je n'ai pas testé ton adaptation de la macro,
mais je ne doute que je vais y trouver réponse.

C'est vachement sympa de ta part de m'aider ainsi.
D'autant que:
L'p'tit jeune est un mec bien, et que j'ai niqué mon DD
où j'avais enregistré mes macros et bidouilles à moi.
Et Fils de ce site, of course...

Amicalement, avec Grand Merci

IFIC

Pouvu que cela passe, et qu'ils ne délestent pas comme trop souvent!!!