Bonsoir à tous,  
 
Comme le titre l'indique, j'ai un petit problème à propos d'un code utilisant des chemins absolus.
 
J'ai un classeur dans lequel il y a la macro. Cette macro remplit un tableau à l'aide de chiffres contenus dans un autre classeur ouvert mais qui n'est pas dans le même dossier.
 
Pour pouvoir aller chercher ces données, j'ai voulu faire passer le chemin de ce classeur dans une variable de type string. Le nom du fichier est entré par l'utilisateur dans un UserForm qui appelle ensuite ma Sub. J'ai donc une variable string Report_FileName contenant le nom du classeur externe.  
 
Pour le chemin, je fais :  
 

 
Ensuite, c'est là que rien ne vas plus... J'essaye de boucler sur le classeur externe en utilisant cette variable  
 

 
Auriez-vous une idée du problème?

Si tu veux aller verifier des infos dans un fichier il faut d'abord l'ouvrir.
Tu fais ton truc.
Tu le fermes.
 
Et comme tu es "obligé" de l'ouvrir (faudrait rechercher dans mes messages j'avais donné une methode pour ne pas etre obligé) bah tu n'as plus besoin du fullpath pour verifier ce qu'il y a en "Tab 1"

 
J'ai précisé justement que celui-ci était bien ouvert au moment de l'exécution.

donc il faut pas utiliser le fullpath mais le nom du classeur.

 
Oui justement j'ai bien essayé mais ça ne fonctionne pas. De plus, il me semblait qu'il faut que les 2 classeurs soient dans le même dossier pour faire cela.  
 
J'essaye d'utiliser le chemin complet (avec le nom du fichier inclus) parce qu'ils ne sont pas au même endroit. Après, je m'embête avec ça parce que le nom du classeur externe (source de données qui sera mise à jour) changera au cours du temps et devra être entrer par l'utilisateur à ce moment.

Quand ton fichier est ouvert dans Excel seul son nom compte.
Donc si tu veux l'ouvrir tu utilises le chemin, logique. Et si tu veux l'atteindre c'est avec son nom court.
Pour l'ouvrir : C:\test.xls
Pour l'atteindre dans Excel : WorkBooks("test.xls" )
 
Sinon donne le code entier

Ok donc je laisse tomber l'idée du chemin.  
 
Reste que, je voudrais passer le nom du fichier dans une variable donc en l'occurence avoir un  
 

 
au lieu de  
 

 
Ca marche bien quand les 2 fichiers sont au même endroit mais pas si ils ne sont pas dans le même dossier (en gros, sans chemin, Excel considère que c'est dans le même dossier et donc ne le trouve pas)

Exemple, j'ai deux fichiers :
FichierSurC.xls qui est sur C:\
FichierSurD.xls qui est sur D:\
 
(oui je sais j'ai beaucoup d'imagination)
 
Avec une macro sur FichierSurC je vais ouvrir FichierSurD puis l'atteindre pour mettre à jour la cellule A1 :
 
En dur ca donne :

Workbooks.Open "D:\FichierSurD.xls"
Workbooks("FichierSurD.xls" ).Sheets("Feuil1" ).Cells(1, 1).Value = "Alex_94"

 
Deux solutions :
 
1) Tu passes en parametres dans deux variables le chemin et le nom du fichier.

Sub Alex_94()
    'Nos deux variables
    Dim CheminFichier As String, NomFichier As String
    
    'On les alimente
    CheminFichier = "D:\"
    NomFichier = "FichierSurD.xls"
    
    'On ouvre le fichier avec le chemin et le document
    Workbooks.Open CheminFichier & NomFichier
    
    'On va sur le fichier et on change la valeur de A1
    Workbooks(NomFichier).Sheets("Feuil1" ).Cells(1, 1).Value = "Alex_94"
 
End Sub

 
2) Tu ne passes une seule variable, et a l'aide d'une petite routine on recupere le nom du fichier à l'interieur du fullpath

Sub Alex_94()
    'Une seule variable qui contient chemin et fichier
    Dim CheminFichier As String
    
    'On les alimente
    CheminFichier = "D:\FichierSurD.xls"
    
    
    'On ouvre le fichier avec le chemin
    Workbooks.Open CheminFichier
    
'ici on va inverser l'ordre des caracteres de chaine pour trouver le premier "\" qui _
nous indique le début du nom du fichier
    'Declaration des variables
    Dim InverseCheminFichier, EmplacementAntiSlash, NomFichier
    
    'on retourne l'ordre des caracteres
    InverseCheminFichier = StrReverse(CheminFichier)
    
    'on cherche le premier \
    EmplacementAntiSlash = InStr(1, InverseCheminFichier, "\", vbTextCompare)
    
    'S'il trouve un \
    If EmplacementAntiSlash <> 0 Then
        'on recupere le nom du fichier à l'interieur du fullpath
        NomFichier = Right(CheminFichier, Len(CheminFichier) - i - 3)
    End If
    
    'On va sur le fichier et on change la valeur de A1
    Workbooks(NomFichier).Sheets("Feuil1" ).Cells(1, 1).Value = "Alex_94"
 
End Sub

 
Et aucun souci les deux fonctionnent bien chez moi, et partout d'ailleurs.

Magnifique, je te remercie dje69r ;-)