Manque un bout de code

[tactic6]

Bonsoir le forum

Quelqu'un peut il me donner le bout de code manquant la la ligne Windows("la feuille sélectionnée").Activate pour que la feuille sélectionnée devienne la feuille active
(par quoi remplacer "la feuille sélectionnée" )

Sub Recuperation()

Application.DisplayAlerts = False
      Dim OuvrirFich
      OuvrirFich = Application.Dialogs(xlDialogOpen).Show
      [COLOR="Blue"]Windows("la feuille selectionnée").Activate[/COLOR]
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy Before:=Workbooks("Classeur.xlsm").Sheets(1)
End sub

Merci pour votre aide

 

[Catrice]

Re : Manque un bout de code

Bonsoir,

Je n'ai pas tres bien compris ce que tu voulais faire, mais le code suivant y ressemble peut etre ...

Sub Recuperation()
OuvrirFich = Application.Dialogs(xlDialogOpen).Show
If OuvrirFich Then Sheets("Feuil1").Copy Before:=ThisWorkbook.Sheets(1)
End Sub

Ca copie la Feuil1 du fichier qu'on a choisit dans le classeur où est la macro avant la premiere feuille.

 

[tactic6]

Re : Manque un bout de code

Bonsoir
et merci
en fait ton code ainsi que le mien ouvre la feuille a copier et j'essaie de copier sans que la feuille copiée reste ouverte ou que juste après la copie elle se referme
quand j'essaie avec l'enregistreur de macro j'ai cette ligne
Windows("la feuille sélectionnée").Activate
je pensais qu'avec la précision de "la feuille sélectionnée" j'aurais pu donner l'ordre de refermer l'onglet
Bonne soirée

 

[Catrice]

Re : Manque un bout de code

Re,

Tu veux que le classeur soit refermé juste apres la copie ?
Peux tu détailler les étapes ?...

 

[tactic6]

Re : Manque un bout de code

Re
je cherche le fichier .xls ou xlsx
je le selectionne
il se copie sur mon classeur
le fichier precedement choisit se referme

j'ai essayé actiwindow.Visible = False
ou .Close False
mais ça ne marche pas

 

[Catrice]

Re : Manque un bout de code

Re,

Peut etre plutot faire comme ceci :

Sub Recuperation()
OuvrirFich = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
If OuvrirFich <> False Then
Set MonClass = Workbooks.Open(Filename:=OuvrirFich)
MonClass.Sheets("Feuil1").Copy Before:=ThisWorkbook.Sheets(1)
MonClass.Close False
End If
End Sub

 

[tactic6]

Re : Manque un bout de code

Re
Tout simplement nickel
adapté à ma sauce c'est le résultat escompté
merci encore pour ta précieuse aide
Bon WE a tous et à toutes

 

[tactic6]

Re : Manque un bout de code

Heu ....
ça ne me prend pas les fichiers en .xlsx
y'a une modif à faire ?

 

[Catrice]

Re : Manque un bout de code

Bonjour,

Je n'ai pas Excel 2007 mais essaie ceci:

OuvrirFich = Application.GetOpenFilename("Tous les Fichiers Microsoft Excel (*.xl*), *.xl*")

 

[Pierrot93]

Re : Manque un bout de code

bonjour à tous

https://www.excel-downloads.com/threads/ouvrirfich-et-bouton-annuler.116328/

 

[tactic6]

Re : Manque un bout de code

Merci à tous les deux
le code de pierrot répond a mes deux questions en effet
ouvre les fichiers en .xls et en .xlsx et en même temps permet d'arrêter la macro quand clic sur annuler

 

[Pierrot93]

Re : Manque un bout de code

Aarf.. étonné puisque pas même question... lol
@+

 

[Catrice]

Re : Manque un bout de code

@tactic6,

Le dernier code que j'ai proposé s'arrete aussi si on clique sur annuler 😀