Ouverture d'un fichier avec une macro

Bonjour à tous,

Je viens tout juste de m'enregistrer sur ce forum, j'en profite pour saluer tout le monde.

Voilà mon problème:

Je veux ouvris un fichier à l'aide d'une macro, puis coller des informations dans certaines cellules.

Voici le code que j'utilise et qui ne marche pas:

Selection.Copy

Workbooks.Open Filename:= _

"\\foselev-cg\public\04_PREPARATION\2_BASE_PDR\DEMANDE_PDR_VIERGE.xls"

Range("H7").Select

ActiveSheet.Paste

Range("U1:U6").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("U1").Select

End Sub

Ma macro plante au moment d'ouvrir le fichier.

Pouvez vous m'aider?

Merci

Bonjour,

Le chemin du classeur doit être complet (de préférence)

A+

Bonjour lermite,

Le chemin est complet. J'ai même essayé de mettre le fichier sur le bureau pour testé et ça ne marche pas non plus !??

As-tu d'autres idées ?

Merci d'avance

Mais nom, ton chemin n'est pas complet, il doit commencer par l'unité du DD ->

C:\foselev-cg\public\04_PREPARATION\2_BASE_PDR\DEMANDE_PDR_VIERGE.xls

Bien entendu si c'est sur le C

A+

EDIT :

Et évite les select inutile..

    Selection.Copy
    Workbooks.Open Filename:= _
    "C:\foselev-cg\public\04_PREPARATION\2_BASE_PDR\DEMANDE_PDR_VIERGE.xls"
    Range("H7").Paste
    Range("U1:U6").ClearContents
    Range("U1").Select

Re

Ok merci Lermine. Mon fichier est sur mon serveur. Le nom de mon serveur étant "foselev-cg"

l'adresse est donc: : \\foselev-cg\public\04_PREPARATION\2_BASE_PDR\DEMANDE_PDR_VIERGE.xls

Que faut il que je rajoute ?

Merci d'avance

M'en doutais bien, alors ton exemple est bon mais c'est qui'il y a une erreur dans le libellé du chemin.

Essaye de faire un copier/coller du chemin avec

Function ChoisirRepertoir() As String
Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    On Error Resume Next
    Set oFolderItem = objFolder.Items.Item
Debug.print  oFolderItem.Path
    ChoisirRepertoir = oFolderItem.Path
    On Error GoTo 0
End Function

Tu colle le code ci-dessus dans un module

Mettre le curseur dans le code et taper F5

Sélectionner le répertoire -> OK

Dans la fenêtre <Exécution> copier le chemin.

Le coller dans ta macro.

A+

Re,

Tu vas me trouver un peut lourd mais j'ai pas de fenêtre "execution" !? comment copier mon chemin ?

Merci

Quand tu est dans l'éditeur VBA tu tape Ctrl+G

Bonjour

Ce que tu peux faire aussi pour donner le lien :

• Ouvre le fichier DEMANDE_PDR_VIERGE.xls
• Ouvre une nouvelle feuille Vierge de données
• Fais ALT + F11 sur ton clavier
• Dans le menu choisis INSERTION / MODULE
• Dans la fenêtre de droite, colle le code ci-dessous

Sub test()
Range("A1")=ThisWorkbook.Path
End Sub

• Clique dans le code puis appuies sur F5
• Retourne sur ta feuille Excel et vois le lien du fichier en cellule A1
• une fois le lien copié, ferme ton fichier DEMANDE_PDR_VIERGE.xls sans sauvegarder

Amicalement

MERCI BEAUCOUP !!!!