Ouverture d'un fichier avec macro

popey -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un bout de code vba qui me permet d'ouvrir un fichier :

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open("F:\Résolution de probléme Qualité\Suivi plan d'amélioration.xls")
Set ws = wb.Worksheets(1)
End Sub

Le tit soucie que j'ai sais que si je change de PC mais clée USB change de numéro et dc le lien ne fonctionne plus.

Y'a t'il un moyen de palier à cela ?

Merci
A voir également:

8 réponses

Réponse 1 / 8
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
Je suppose que tu utilise ton fichier sur la clé

donc au démarrage

récupère le chemin avec
Mon chemin = thisworkbook.path

de cette manière tu peux l'utiliser partout.
0
Réponse 2 / 8
popey
 
Te suis pas trop je met sa ou dans le code ? dsl je suis débutant
0
Réponse 3 / 8
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
J'ai un bout de code vba qui me permet d'ouvrir un fichier :


Public monChemin as string


Private Sub CommandButton1_Click()
monchemin = thisworkbook.path

Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open(monChemin & "\" &"Résolution de probléme Qualité\Suivi plan d'amélioration.xls")
Set ws = wb.Worksheets(1)
End Sub
0
Réponse 4 / 8
popey
 
Re merci de ton aide j'ai remplacer le code mais il m'affiche "erreur d'exécution 1004" m'indiquant que le fichier est introuvable ?

J'aurais oublié un truck ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   1 466
 
Bonjour,
Pouvez-vous préciser si le fichier est stocker au même endroit sur chaque PC ?
Exemple disque [F:] , répertoire [Résolution de probléme Qualité] et fichier [Suivi plan d'amélioration.xls]

Salutations.
Jean-Pierre
0
Réponse 6 / 8
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
mais oui mais c'est évident!!!

ton fichier doit se trouver dans F:\Résolution de probléme Qualité\
j'avais supposé à tort qu'il se trouvait sur la racine.

Public monChemin as string


Private Sub CommandButton1_Click()
monchemin = thisworkbook.path

Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open(monChemin & "\" &Suivi plan d'amélioration.xls")
Set ws = wb.Worksheets(1)
End Sub
0
Réponse 7 / 8
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour ou Re

Fonction pour trouver la lettre de la (et la seule) clé USB connectée 

Function lettre_usb()
'a partir d'un vbscript -WMH trouvé sur site US
ordi = "."
Set objet_WMI = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & ordi & "\root\cimv2")
Set liste_pilotes = objet_WMI.ExecQuery _
    ("Select * from Win32_LogicalDisk")
For Each pilote In liste_pilotes
    If pilote.DriveType = 2 Then
        lettre_usb = pilote.DeviceID
        Exit Function
    End If
Next
lettre_usb = "aucune clé connectée"
End Function
------
Sub test()
pilote = lettre_usb

End Sub
0
Réponse 8 / 8
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour,
Et donc je termine 

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open(lettre_usb & "\Résolution de probléme Qualité\Suivi plan d'amélioration.xls")
Set ws = wb.Worksheets(1)
End Sub



en dessous tu copies colles la fonction du post précédent
tu ouvres ainsi ton fichier amélioration quelquesoit l'endroit où se trouve le classeur de ta macro

on aurait pu aussi extraire les 2 premières lettres de thisworkbook.path 

Set wb = Workbooks.Open( left(thisworkbook.path,2) & "\Résolution de probléme Qualité\Suivi plan d'amélioration.xls")
0