copier-coller d'un dossier appelé via msgbox

Question

Bonjour, 

Débutante en vba, je dois, pour un stage, créer un bouton avec une macro permettant de copier-coller une feuille d'un fichier (à appeler) vers un autre fichier.
Je voulais savoir comment, après avoir utiliser une boite de dialogue pour chercher un fichier, ouvrir ce fichier ensuite (sachant que son nom devrait changer tous les jours) et copier sa première feuille pour la coller dans un fichier d'arrivée à une page précise.

J'ai essayé de faire ça:

Sub OuvreFichier1()
  Dim QuelFichier
  QuelFichier = Application.GetOpenFilename()
  MsgBox QuelFichier
End Sub


Sub essaicopie_colle()
Call OuvreFichier1
QuelFichier.Activate
Range("A1:G35").Select
Selection.Copy
Workbooks("essai1.xls").Activate
Sheet("calque").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub


Mais je n'arrive pas à ouvrir ce fichier qui n'a pas de nom. 
Pouvez-vous m'aider?

Merci beaucoup,

Elima
Configuration: Windows 7 / Internet Explorer 8.0

melanie1324 · Answer

Bonjour, 

essaie ca :

Sub OuvreFichier1(Quelfichier)
Dim QuelFichier
QuelFichier = Application.GetOpenFilename() 
MsgBox QuelFichier
End Sub


Sub essaicopie_colle()
Call OuvreFichier1 (Quelfichier)
QuelFichier.Activate
Range("A1:G35").Select
Selection.Copy
Workbooks("essai1.xls").Activate
Sheet("calque").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub 

sinon autre solution

public quelfichier as variant

Sub OuvreFichier1()
Dim QuelFichier
QuelFichier = Application.GetOpenFilename()
MsgBox QuelFichier
End Sub


Sub essaicopie_colle()
Call OuvreFichier1
QuelFichier.Activate
Range("A1:G35").Select
Selection.Copy
Workbooks("essai1.xls").Activate
Sheet("calque").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub

elima · Answer

Merci Mélanie,

J'ai essayé la première solution, mais il s'est affiché: nombre d'argments  incorrect ou affectation de propriété incorrecte.
En essayant la deuxième solution, il s'est affiché: Sub ou function non définie.
J'ai essayé comme ça:

Public quelfichier As Variant
Sub copie_colle()
Call OuvreFichier1
quelfichier.Activate
Range("A1:G35").Select
Selection.Copy
Workbooks("essai1.xls").Activate
Sheet("calque").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub


Sub OuvreFichier1()
  Dim quelfichier
  quelfichier = Application.GetOpenFilename()
  MsgBox quelfichier
End Sub


Pouvez-vous encore m'aider?

Merci encore.

melanie1324 · Answer

Pour la première, voici ce qu'il faut mettre:

Sub OuvreFichier1(QuelFichier)

QuelFichier = Application.GetOpenFilename()
MsgBox QuelFichier
End Sub


Sub essaicopie_colle()
Call OuvreFichier1(QuelFichier)
QuelFichier.Activate
Range("A1:G35").Select
Selection.Copy
Workbooks("essai1.xls").Activate
Sheets("calque").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub

melanie1324 · Answer

pour la seconde :


Public quelfichier
Sub copie_colle()
Call OuvreFichier1

Range("A1:G35").Select
Selection.Copy
Workbooks("essai1.xls").Activate
Sheets("calque").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub


Sub OuvreFichier1()

quelfichier = Application.GetOpenFilename()
MsgBox quelfichier
End Sub

elima · Answer

En fait j'ai loupé une étape et je ne sais pas comment faire. Le programme va bien m'aider à aller chercher un fichier, mais il n'ouvre pas ce fichier. Comment faire pour ouvrir le fichier selectionner dans la msgbox?
Merci encore.

elima · Answer

Merci merci merci!!!!
ça fonctionne parfaitement!

Désolée d'avoir un peu bâclé la base du programme posté au départ.
Je fonctionne grâce à tout ce que je trouve sur ce site quand on me demande une macro un peu exotique et donc je l'ai mal construit car je n'ai pas assez réfléchi.

Maintenant je sais comment ouvrir un fichier.

Merci beaucoup Mélanie pour ton aide rapide et ta patience.
Ce site est extra.
Bonne journée!

Copier-coller d'un dossier appelé via msgbox

6 réponses

Votre réponse

Discussions similaires

Newsletters