Discussion :

[cocolabricot]

Bonjour à tous,

Je souhaite copier coller des informations d'un fichier excel à un autre. Aujourd'hui, j'utilise un code qui permet de chercher le fichier Excel par son chemin d'accès : C:perso/....
Est-il possible de ne pas passer par le chemin d'accès ? En effet, le dossier contenant les 2 fichiers excel, je souhaiterais le déplacer voir le transférer à d'autres personnes.
J'utilise aujourd'hui le code suivant :

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
Sub reporting1()
 
 
Set wb = Workbooks.Open("C:\Users\...\reportingagence.xlsx")
 
 
    Set ws = wb.Worksheets(1)
    Range("B10:F10").Select
    Selection.Copy
    Windows("reportingmaster.xlsm").Activate
    Range("b8:f8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    wb.Saved = True
    wb.Close
 
Range("a1").Select
 
 
End Sub

Merci d'avance pour votre aide,

[unparia]

Bonjour
C'est en effet toujours possible, mais s'il faut rechercher ce fichier partout, bonjour les lenteurs (sans compter les erreurs si plusieurs classeurs ont le même nom !)
Il est très nettement plus astucieux de le mettre dans un sous-dossier de celui du classeur en cours et d'utiliser alors Application.Path (qui est le chemin de ton classeur de départ). Rubrique Application.Path à lire dans ton aide VBA

[cocolabricot]

Bonjour
C'est en effet toujours possible, mais s'il faut rechercher ce fichier partout, bonjour les lenteurs (sans compter les erreurs si plusieurs classeurs ont le même nom !)
Il est très nettement plus astucieux de le mettre dans un sous-dossier de celui du classeur en cours et d'utiliser alors Application.Path (qui est le chemin de ton classeur de départ). Rubrique Application.Path à lire dans ton aide VBA

Oui, je place la macro dans un dossier et dans un sous dossier, je place le fichiers à aller rechercher.
Je ne trouve pas comment utiliser application.path...

[unparia]

C'est pourtant simple :
soit X:\toto le chemin du dossier dans lequel se trouve ton classeur principal
- tu mets ton fameux fichier dans le sous-dossier : X:\toto\titi
et tu te réfères au chemin de ce sous-dossier par

Code :

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

Application.path & "\titi\"

je ne vois pas ce qu'il y a de compliqué à comprendre à cela ...

[Invité]

bonjour,

Code un truc comme ça :

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

Environ$("USERPROFILE") & "\mes documents\"

[Menhir]

Je ne comprends pas ta question.
Pour ouvrir un fichier, il faut en connaitre le chemin.
A moins que ce chemin puisse se déduire d'autres informations : même répertoire que le fichier contenant la macro, composition à partir d'informations dans la feuille de calcul, etc.

Il faudrait que tu précises de quelle façon peut être déduit ce chemin.

Au passage, ton code peut être simplifié ainsi.

Code :

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

1
2
3
4
5
6
Sub reporting1()
    Workbooks.Open("C:\Users\...\reportingagence.xlsx")
    Worksheets(1).Range("B10:F10").Copy
    Workbooks("reportingmaster.xlsm").Worksheets(1).Range("B8:F8").PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.Close SaveChanges:=False
End Sub

[cocolabricot]

Je ne comprends pas ta question.
Pour ouvrir un fichier, il faut en connaitre le chemin.
A moins que ce chemin puisse se déduire d'autres informations : même répertoire que le fichier contenant la macro, composition à partir d'informations dans la feuille de calcul, etc.

Il faudrait que tu précises de quelle façon peut être déduit ce chemin.

Au passage, ton code peut être simplifié ainsi.

Code :

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

1
2
3
4
5
6
Sub reporting1()
    Workbooks.Open("C:\Users\...\reportingagence.xlsx")
    Worksheets(1).Range("B10:F10").Copy
    Workbooks("reportingmaster.xlsm").Worksheets(1).Range("B8:F8").PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.Close SaveChanges:=False
End Sub

Oui tu as raison, je souhaite placer les fichiers à aller chercher dans un répertoire ou il y a la macro.

[Menhir]

Oui tu as raison, je souhaite placer les fichiers à aller chercher dans un répertoire ou il y a la macro.

Dans ce cas :

Code :

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

    Workbooks.Open(ThisWorkbook.Path & "\reportingagence.xlsx")