Discussion :

[dimitri70]

Bonjour

Voilà je suis en stage pour mes études et j'ai besoin de développer une macro. J'en ai jamais trop fait donc je galère un peu.

Je cherche a créer une macro qui me permette de mettre un jour un onglet de mon fichier excel à partir d'un nouveau fichier qui est crée toutes les semaines.
Du fait que c'est un nouveau fichié, je pense pas que je peux automatiser la mise à jours (exemple utiliser la fonction données externe) et donc l'opérateur qui utilisera par la suite mon outil devra toutes les semaines sélectionner le fichier qui correspond à la bonne semaine. Heureusement, ils sont tous enregistré sur le même dossier.

J'ai crée une macro en automatique, assez basique ( voir ci-dessous) et donc j'aurais besoin de rajouter le code pour faire apparaitre une fenetre qui permet à l'opérateur de sélectionner le bon fichier et de l'ouvrir.

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
Macro1 Macro
'
 
'
    Range("C20").Select
    Workbooks.Open Filename:= _
        "Y:\ORDOLORETTE\Planning-Ordo\HEBDO MINOS\HEBDO LO 2013\Hebdo Lorette S39 2013.xls" _
        , UpdateLinks:=0
    Application.WindowState = xlMinimized
    Sheets("SEMAINE").Select
    ActiveWindow.SmallScroll Down:=-21
    Cells.Select
    Selection.Copy
    Windows("Version finale.xlsx").Activate
    Cells.Select
    ActiveSheet.Paste
End Sub

Je ne sais pas si il y a d'autre moyen de faire, je reste ouvert à toutes vos remarques.

Je vous remercie par avance pour votre aide

J'ai oublié de vous demander: est ce qu'il existe un moyen qui permet juste de copier/coller les cellules de l'onglet sans même ouvrir le fichier?

Merci Merci

[Marc-L]

Bonjour,

voir l'aide de la méthode GetOpenFilename par exemple pour sélectionner un fichier …

Oui on peut accéder aux données d'un autre classeur mais pas évident pour un débutant,
mieux vaut simplement désactiver le rafraichissement de l'écran (voir ScreenUpdating) …

[dimitri70]

Ok j' ai testé ca fonctionne.

Par contre il y a des chance que mon fichier soit déjà ouvert lorsqu eje décide de l'ouvir.
Est ec qu'il existe une fonction qui me permet en autre de faire???

Si mon fichier est ouvert alors ouvrir en lecture seule

Merci

[Marc-L]

Nan, dans ce cas le mieux est d'uiliser le fichier vu qu'il est déjà ouvert !

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
Function IsOpen(Name$) As Boolean
         On Error Resume Next
         IsOpen = IsObject(Workbooks(Name))
End Function
 
 
Sub Macro1()
    Application.ScreenUpdating = False
    D$ = "Y:\ORDOLORETTE\Planning-Ordo\HEBDO MINOS\HEBDO LO 2013\"
    F$ = "Hebdo Lorette S39 2013.xls"
    If Not IsOpen(F) Then Workbooks.Open D & F, 0
    ActiveWorkbook.Worksheets("SEMAINE").Cells.Copy Workbooks("Version finale.xlsx").ActiveSheet.[A1]
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
End Sub

A toi de vérifier dans la ligne n°12 les classeurs & feuilles source & destination …

Et d'y inclure la sélection du fichier …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que l'on ne sait pourquoi …

[dimitri70]

Bonjour

J'ai un peu avancé sur ma macro

J'obtien quelque chose qui fonctionne

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
Sub Macro2_Mise_A_jour_LOR()
'
' Macro2_Mise_A_jour_LOR Macro
'
 
    Workbooks.Open Filename:=Application.GetOpenFilename("Excel Files (*.xls),*.xls"), UpdateLinks:=False, ReadOnly:=True
    Sheets("SEMAINE").Select
    Worksheets("SEMAINE").Cells.Select
    Selection.Copy
    Workbooks("Version finale.xlsm").Activate
    Sheets("Feuil1").Select
    Cells.Select
    ActiveSheet.Paste
 
 
 
End Sub

Je cherche maintenant à fermer le fichier ouvert avec getOpenfilename sans enregistrer.
J'ai essayé avec Kill floder mais ca ne marche pas.

Code :

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

1
2
Kill ("Workbooks")
   Application.DisplayAlerts = True

Quelqu'un aurait il une idée?

[EngueEngue]

Tout simplement

Code :

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

1
2
3
Application.DisplayAlerts = False
activeworkbook.close
Application.DisplayAlerts = True

[dimitri70]

Je suis désolé ca marche pas ta solution ENGUE ENGUE

Comment je peux codé le fait de resélectionner le fichier ouvert avec GetopenFile?

[Marc-L]

Dimitri, soit dit en passant vite fait, il y a tout dans mon code …

Notamment les lignes 12 & 13 et sans ces affreux ralentisseurs Activate & Select souvent source d'ennui !

[dimitri70]

Okay, c'est juste du fait de mon ignorance je comprend pas toutes les lignes donc je cherchais à le refaire par moi même pour essayer.... mais comme tu vois je galère....

MARC-L merci pour ton aide, c'est vrai que ton fichier marche bien!

par contre j'ai le même problème, comment je peux faire pour fermer le fichier ouvert avec getopenfile et ne garder que mon ficher "version final" ouvert?

[Marc-L]

Concernant les lignes 12 & 13 de mon code, j'applique juste les méthodes Copy et Close comme conseillé
dans l'aide VBA intégrée que tout apprenti programmeur se doit de consulter afin de progresser.

Je n'ai pas la science infuse VBA, le net ne m'a pas appris les bases (faut dire qu'à l'époque, y avait pas trop le choix !) …

L'Enregistreur de macros peut être aussi un ami pour débuter, l'aide VBA venant ensuite peaufiner les découvertes.

Suis OFF jusqu'en fin d'après-midi …

Mea Culpa Dimitri !

Il manque l'activation par exemple (entre autres) du classeur s'il est déjà ouvert, étonné que personne s'en soit aperçu …

Montre-nous ton code (en utilisant l'icône # dédiée au code) afin de l'adapter …

[dimitri70]

Ahhhh!!! Peut être je suis sauvé alors???

Voici le code:

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
Sub bilan_navette()
'
' bilan_navette Macro
'
 
'
 
    Workbooks.Open Filename:= _
        "X:\Tableaux de bord\Litiges\Navettes\Tbord Navettes 2013.xlsm", Notify:= _
        False, ReadOnly:=True
 
    Sheets("Indicateur_Dimitri").Select
    Range("B8").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("SEM"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("SEM"). _
        CurrentPage = "S39"
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    Windows("Version finale.xlsm").Activate
 
End Sub

Comment faire alors pour venir lire la valeur de la cellule C2 (qui comprendra le numéro de la semaine Sxx) au lieu d'avoir "S39" dans le code?

Merci merci Marc-L

[Marc-L]

Cette cellule C2, où se trouve-t-elle ? La feuille, le classeur …

Qui plus est tu n'y a pas intégré IsOpen …

[dimitri70]

Ma cellule C2 elle se trouve sur un onglet appellé "Suivi activité" dans mon fichier excel "version final".

Le Isopen je ne sais pas comment l'utiliser. En fait dans ma macro, j'ouvre un fichier excel ou se trouve le tcd et ou je filtre par rapport à ma cellule C2 de mon fichier sur lequelle je travail.

[Marc-L]

Pourtant c'est en clair dans mon code ! …

Autre point : le code se trouve dans quel classeur et dans un module normal ou de classe ?

[Philippe Tulliez]

Bonjour,
C'est de moins en moins clair pour moi.
Que cherches-tu à copier finalement sur un autre classeur ?
Est-ce une feuille contenant un tableau croisé dynamique, est-ce des données d'une certaine semaine se trouvant sur une feuille ?
Ces données doivent elles se trouver à la suite l'une de l'autre sur une même feuille de cet autre classeur ou bien sur une nouvelle feuille ?

[Marc-L]

Autre chose à vérifier Dimitri vu ta ligne n°10 : les pivots sont-ils modifiables sur un classeur ouvert en lecture seule ?