Discussion :

[mulanzia2003]

Bonjour à tous,

cela faisait un petit moment que je n'étais pas venu. ( je ne faisais plus de programation.)

Bon voilà j'explique mon problème.

J'ai une 100ène de fichier excel sous le répertoire C:\référentiel avec des noms tous différents.
Tous ces fichiers excel ont la même structure : 1 seul onglet appelé masque.

Maintenant que notre système qualité évolue, j'ai créé un nouveau fichier Excel intitulé Exemplaire avec 2 onglets (1 "historique" , 1 "fiche").

Je souhaiterai : ouvrir 1 à 1 mes fichiers excel du répertoire C:\référentiel et copier le contenu de l'onglet masque dans l'onglet "fiche" de mon fichier Exemplaire puis l'enregistrer sous le même nom que le fichier initial dans le répertoire C:\nouveau.

Je ne sais pas comment m'y prendre, pouvez vous m'aider ???
- soit par des exemples
- soit par des infos sur comment procéder

Merci encore de votre aide !!! (j'ai confiance en vous)

[alsimbad]

salut
on peut faire quelque chose, mais ça dépend du point ou tu en es.
1 tes onglets fiche et historique sont vides?
dans ce cas, je te conseille plutot d'ouvrir tes fichiers, ajouter une feuille
puis baptiser histo et rebaptiser la feuille masque en fiche. il te suffit ensuite d'enregistrer le fichier a l'identique. éventuellement ensuite si le veux, tu déplace tes fichiers vers le nouveau répertoire, pas besoin de faire un code pour une opération que tu ne feras qu'une fois
2 la feuille fiche, est la même que la feuille masque mais histo a un format particulier. ( a mon sens, cas le plus probable)
tu rebaptise masque en fiche, tu copie la feuille histo a partir du fichier source, là aussi tu peux enregistrer normalement les fichiers
3 plus délicat, il y a un traitement des données de masque pour les adapter a fiche, éventuellement vers histo également, mais ça m'étonnerai)
là tu a tout interet a enregistrer sous, parce il y a risque de perte en cas de fausse manip.
c'est quoi ton cas?

[mulanzia2003]

Désolé mais mon cas correspond plus au n°3.
J'explique :
Je dispose de plusieurs fichiers excel avec 1 seul onglet ("masque")mise en page particulière.
Cependant, mon entreprise vient d'etre certifié ISO9000 (Qualité) et donc mes fiches doivent avoir un masque particulier.
J'ai donc créé un fichier intitullé nlle fiche.xls composé de 2 onglets (1 Historique et autre Fiche).
Le mode opératoire que je souhaite utilisé est le suivant :
1) j'ouvre ma feuille nlle fiche.xls
2)j'active les macros
3) je lance mon programme
3-1) il ouvre ma première fiche excel appelé 1.xls situé sous c:\référentiel
3-2) il copie l'ensemble des données de l'onglet "masque" de 1.xls dans la l'onglet "Fiche" de nlle fiche.xls
3-3) il enregistre et renomme nlle fiche.xls dans c:\Nlle fiche\ 1.xls
3-4) il passe ensuite au fichier excel suivant du répertoire référentiel intitulé "contrôle A-B.xls"
3-5) il refait les étapes 3-1 -> 3-4 pour tous les fichiers excel de c:\référentiel

Au secours, je n'y arrive pas !!!!

[AlainTech]

Au secours, je n'y arrive pas !!!!

Et qu'as-tu déjà fait?

[alsimbad]

bon, cela n'a pas l'air trop dificile mais cette partie là

3-2) il copie l'ensemble des données de l'onglet "masque" de 1.xls dans la l'onglet "Fiche" de nlle fiche.xls

est très personalisée. pas moyen de faire quelque chose sans voir les deux fichiers, mais cela ne devrais pas poser de problemes particuliers.
donc il faudrait que tu mette un exemplaire des fichiers.

[mulanzia2003]

bonjour, voici un petit bout du code comment je souhaiterai fonctionner.
Ce code est lancé à partir d'un bouton dans un fichier intitulé :
liste des masque.xls.
Il comprend 5 onglets :
Onglet n°1 récapitulatif (uniquement des calculs) -> c'est ici que j'ai mis mon bouton
Onglet n°2 : liste des fiche de unité FUS100
Onglet n°3 : liste des fiche de unité FUS200
Onglet n°4 : liste des fiche de unité FUS300
Onglet n°5 : liste des fiche de unité FUS400

Les données dans les onglets 2 -> 4 sont identiques dans la forme. La colonne Y regroupe l'ensemble des noms de fichiers dans lesquels je souhaite modifier le masque.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
For i = 3 To 302
    NomFichier = Worksheets("FUS100").Cells(i, 25).Value
    ChDir "O:\PLANS_MAINTENANCE\Plan de maintenance"
    Workbooks.Open Filename:= _
        "O:\PLANS_MAINTENANCE\Plan de maintenance\masque fiche de maintenance.xls"
    ChDir "J:\Fus_gene\Préventif\Référentiel\U100\"
    Workbooks.Open Filename:= _
        "J:\Fus_gene\Préventif\Référentiel\U100\" & NomFichier & ".xls"
    Sheets(1).Activate
    Columns("A:H").Select      '"ici cela Bloque je sais pas pourquoi ?"'
    Selection.Copy
    Windows("masque fiche de maintenance.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste

J'ai besoin d'aide !!!!

[mulanzia2003]

voici le code que j'ai réalisé :
il fonctionne pour la première boucle mais bug lors du 2ème passage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub CommandButton3_Click()
For i = 3 To 302
    NomFichier = Worksheets("FUS100").Cells(i, 25).Value
 
    ChDir "O:\PLANS_MAINTENANCE\Plan de maintenance"
    Workbooks.Open Filename:= _
        "O:\PLANS_MAINTENANCE\Plan de maintenance\masque fiche de maintenance.xls"
    ChDir "J:\Fus_gene\Préventif\Référentiel\U100\"
    Workbooks.Open Filename:= _
        "J:\Fus_gene\Préventif\Référentiel\U100\" & NomFichier & ".xls"
    Sheets(1).Activate
    Worksheets(1).Columns("A:H").Select
    Selection.Copy
    Windows("masque fiche de maintenance.xls").Activate
    Worksheets(2).Range("A1").Select
    ActiveSheet.Paste
    ChDir "D:\Documents and Settings\F700239\Desktop\Maintenance\U100"
'    Windows("masque fiche de maintenance.xls").Activate
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\F700239\Desktop\Maintenance\U100\" & NomFichier & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    'Stop
    Windows("Planning préventif FUS100 2007.xls").Activate
    Worksheets("FUS100").Select
Next
End Sub

L'erreur est sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\F700239\Desktop\Maintenance\U100\" & NomFichier & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

le renvoie est le suivant : voir fichier joint

[ouskel'n'or]

Déjà, simplifie ton code, on y verra plus clair

Workbooks.Open Filename:= _
"J:\Fus_gene\Préventif\Référentiel\U100\" & NomFichier & ".xls"
Sheets(1).Activate
Worksheets(1).Columns("A:H").Select
Selection.Copy
Windows("masque fiche de maintenance.xls").Activate
Worksheets(2).Range("A1").Select
ActiveSheet.Paste

peut s'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Workbooks.Open Filename:= _
        "J:\Fus_gene\Préventif\Référentiel\U100\" & NomFichier & ".xls"
    DoEvents 'pour laisser le tps à ton fichier de s'ouvrir
    Worksheets(1).Columns("A:H").Copy _
    destination:=Worksheets("masque fiche de maintenance.xls").Range("A1")
    DoEvents ' laisse le temps à la copie de se faire

Tu dis si t'es content, sinon... tu dis aussi

[mulanzia2003]

ok je te remercie, je teste et je te dis
merci quand même.