Macro pour ouvrir fichier sur une cle quelque soit la lettre du port usb

Efgé à dit:

Re, Dernière tentative pour ma part, @ mcj1997 : Mets ta clé sur ton pc, ouvre le classeur contenant la macro, copi le chemin complet de ce classeur, ouvre le classeur "VOITURES.xls", copi le chemin complet du classeur "VOITURES.xls" . Donne nous les deux chemins copiés..... Cordialement

Cliquez pour agrandir...

Dranreb à dit:

Essayez peut être ça :

VB:

Sub OUVERTURE_VOITURES()
Dim Z As String
On Error Resume Next
Workbooks("VOITURES.xls").Activate
If Err Then
   Z = Left$(ThisWorkbook.Path, 3) & "A\PEUGEOT\NEUF\VOITURES"
   Err.Clear: ChDrive Z: ChDir Z
   If Err Then MsgBox "Il n'existe pas de chemin """ & Z & """.", vbCritical, "OUVERTURE_VOITURES": Exit Sub
   Workbooks.Open Filename:="VOITURES.xls"
   If Err Then MsgBox "Il n'existe pas de fichier ""VOITURES.xls"" sur :" & vbLf & """" & CurDir & """.", vbCritical, "OUVERTURE_VOITURES"
   End If
End Sub

À +

Cliquez pour agrandir...

Efgé à dit:

Re, je ne pense pas que

VB:

G:\A\NEUVES\2012\[VOITURES.xls]Feuil1

soit une adresse de fichier.... mais bon... ... pourquoi pas ... Nous partons de

VB:

G:\A\NEUF\2012\VOITURES.xls

pour arriver à

VB:

G:\A\NEUVES\2012\VOITURES.xls

Ok.... pourquoi pas Je ne vois pas pourquois ceci ne fonctionne pas :

VB:

Dim X As String

VB:

X = Left(Split(ThisWorkbook.Path, "\")(0), 1)

VB:

Workbooks.Open Filename:=X & ":\A\NEUVES\2012\VOITURES.xls", UpdateLinks:=3

(Désolé pour le look du post mais sans retour à la ligne, dicfficile de faire mieux ) Cordialement

Cliquez pour agrandir...