Discussion :

[MrCMTueurx]

Bonjour à tous

Je vous explique mon problème

Je travail dans une petite structure, on me demande de faire une macro pour ouvrir un fichier est copier tout ce qui a dessus et puis y coller sur un autre classeur excel

Dans la macro, J'ouvre le fichier A.xlsx je sélectionne toutes les cellules que je colle dans le fichier Fabricant.xlsx

La seul difficulté que je rencontre c'est le moment de choisir le fichier car ce fichier ( A.xlsx )peut changer de nom du jour au lendemain :

Voici le début de mon 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
Sub Macro1()
'
' Macro1 Macro
'
 
'
 
    Workbooks.Open Filename:="A Définir"
    Cells.Select
    Range("A1").Activate
    Selection.Copy
    Windows("Fabricant.xlsx").Activate
    Sheets("Reception des donnees").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Fabricant").Select
End Sub

Voila ou je suis coincer si vous avez une idée pour m'éclairer !

Merci par avance

Cordialement

[patricktoulon]

re
oui
getopenfilename

[MrCMTueurx]

Merci réponse parfaite,

J'ai encore un soucis, si le fichier est déjà ouvert cela ne fonctionne pas, car Excel ne ré ouvre pas 2 fois le même fichier,
Avez vous la solution ?

Merci encore pour le nom de l'application

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
Sheets("Reception des donnees").Select
    Range("A1").Select
   Workbooks.Open Filename:=Application.GetOpenFilename
 
 
 
     Application.Wait Now + TimeValue("0:00:05")
     Cells.Select
     Selection.Copy
    Windows("Fabricant.xlsx").Activate
     Sheets("Reception des donnees").Select
     Range("A1").Select
   ActiveSheet.Paste
    Sheets("Fabricant").Select
     Range("S8").Select

[Cachlab]

Bonjour,

Voici le principe :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim Wkb As Workbook
    Wouvert = False
    For Each Wkb In Workbooks
        If Wkb.Name = Nom_du_fichier Then
        Wouvert = True
    End If
 
    If Wouvert = False Then
    ' ouvrir le fichier
    End If

++