Bonjour à tous,
voici un code qui fonctionne super bien pour aller chercher des données d'un excel fermé sans l'ouvrir vers l'excel de travail en choississant au choix l'excel.
Je voudrais mnt que le code prennent les informations que dans un seul fichier.
Voici l'adresse du fichier excel fermé : C:\Users\Dethier Jonathan\Desktop\Prix Logiciel
Pouvez-vous m'aider?
Voici le code :
Un gand merci d'avance pour votre aide.
voici un code qui fonctionne super bien pour aller chercher des données d'un excel fermé sans l'ouvrir vers l'excel de travail en choississant au choix l'excel.
Je voudrais mnt que le code prennent les informations que dans un seul fichier.
Voici l'adresse du fichier excel fermé : C:\Users\Dethier Jonathan\Desktop\Prix Logiciel
Pouvez-vous m'aider?
Voici le code :
VB:
Dim QuelFichier As Variant: QuelFichier = Application.GetOpenFilename("Excel, *.xls")
If QuelFichier <> False _
Then Copie (QuelFichier) _
Else MsgBox "Vous n'avez pas sélectionné de fichier"
End Sub
Sub Copie(QuelFichier)
Dim Plage As Variant
Dim Target As Worksheet: Set Target = ThisWorkbook.Worksheets("S")
Application.ScreenUpdating = False
Application.EnableEvents = False
With Workbooks.Open(QuelFichier)
For Each Plage In Array("A14:F21", "G14:G21")
.Worksheets("PV").Range(Plage).Copy
Target.Range(Plage).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next
.Close False
End With
Application.EnableEvents = True
Application.ScreenUpdating = TrueUn gand merci d'avance pour votre aide.