Adressage automatique excel [Résolu]

[julius999]

Bonjour à tous,

J'ai une question qui vous semblera sans doute toute bête mais qui me pourrit la vie depuis ce matin...

J'ai plusieurs fichiers excel qui se trouvent sur un serveur. Depuis un autre fichier excel, je voudrais pouvoir aller en chercher un en renseignant dans la cellule a1 le nom du fichier.

Une fois que le fichier est ouvert, je voudrais pouvoir faire des modifications avec VBA (déja codées tout va bien ) puis enregistrer le classeur dans un autre dossier en y ajoutant une mention spéciale au nom qui était contenu dans la cellule a1

en gros ça donnerait:

Code :

1
2
3
4
5
6
7
ChDir "\\serveur1\librairiexy\tartampion\niania\blabla"
    Workbooks.Open Filename:="\\serveur1\librairiexy\tartampion\niania\blabla\(valeur qu'il y a dans la cellule A1)"
 
 
With ActiveWorkbook
    .SaveAs Filename:="\\serveur1\librairiexy\tartampion\niania\traité\(valeur qu'il y a dans la cellule A1)&OK.xls"
    End With

Si quelqu'un pouvait m'aider !!

merci d'avance

[Daniel.C]

Code :

1
2
3
4
5
6
7
ChDir "\\serveur1\librairiexy\tartampion\niania\blabla"
    Workbooks.Open Filename:=[A1]
 
With ActiveWorkbook
    ChDir "..\traité" 
    .SaveAs Filename:=[A1] & "OK.xls"
    End With

Reste à savoir où se situe A1, sur quelle feuille, dans quel classeur ?

[julius999]

Merci de votre réponse, la cellule A1 se trouve dans le fichier excel de "pilotage", celui avec lequel on lance la macro.

[Daniel.C]

Il est peut-être préférable alors d'écrire :

Code :

1
2
3
4
5
6
7
8
9
10
Dim NomFichier as String
NomFichier=ThisWorkbook.Sheets("pilotage").[A1]
 
ChDir "\\serveur1\librairiexy\tartampion\niania\blabla"
    Workbooks.Open Filename:=NomFichier 
 
With ActiveWorkbook
    ChDir "..\traité" 
    .SaveAs Filename:=NomFichier & "OK.xls"
    End With

[AlainTech]

Bonjour à tous,

Pour ma part, je n'aime pas les ChDir.

Une proposition:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TraitementFichier()
 
  Dim strNomFichier As String
  Dim strSourcePath As String
  Dim wbkDest As Workbook
 
  strNomFichier = ThisWorkbook.Sheets("pilotage").[A1]
 
  strSourcePath = "\\serveur1\librairiexy\tartampion\niania\blabla"
  Set wbkDest = Workbooks.Open(Filename:=strSourcePath & "\" & strNomFichier)
  ' Traitement à faire dans le fichier
  wbkDest.SaveAs Filename:=strSourcePath & "\..\traité\" & strNomFichier & "OK.xls"
  wbkDest.Close
End Sub

[julius999]

Merci beaucoup, en effet j'avais pas mal de soucis avec les chdir. Ca marche super du coup.

Je me permets de rajouter au fil de cette discussion la demande suivante qui me semble liée.

En lieu et place de faire écrire à l'utilisateur le nom du fichier avec un risque d'erreur conséquent, est-il envisageable d'ouvrir le "sélectionneur" et de simplement cliquer sur le (au mieux sélection multiple) des fichiers à traiter?

Belle journée

[Jean-Pierre49]

Bonjour,

Regarde

Code :

GetOpenFilename

avec

[Ormonth]

Envoyé par AlainTech

Bonjour à tous,

Pour ma part, je n'aime pas les ChDir.

Pour info, peux-tu expliquer pourquoi ?

Pas de trace de lui dans mes codes, mais je ne sais pas pourquoi et rien dans mes notes techniques non plus.

Par contre est utilisé dans" Excel Utilities" de Rob Bovey et cité dans les tutos de Bidou...

j'aimerais bien lui mettre un drapeau rouge ou blanc finalement

cordialement,

Didier

[AlainTech]

Bonjour,

ChDir change le répertoire par défaut d'Excel.

J'ai déjà pu constater que ce répertoire par défaut peut être aléatoire en fonction de ce qui a été ouvert ou fermé.

Quoi qu'il en soit, je préfère travailler avec le modèle Objet d'Excel en définissant les classeurs, les feuilles, les Ranges, des collections...

Sur base de ce modèle objet, je pourrai facilement récupérer le Path d'un classeur, par exemple, même si j'ai laissé le choix à l'utilisateur de l'ouvrir où il veut.

Pour toutes les constantes qui pourraient évoluer comme un taux de TVA ou un chemin réseau, je crée une feuille Paramètres dans la quelle j'irai chercher ces constantes.

Ah oui, encore une chose:
Il est extrèmement rare que je mette données et programme dans un même classeur.

[Ormonth]

Bonjour,

Ok, il fait ce pourquoi il est défini dans l'aide VBA, je craignais qu'il ai un comportement erratique...

cordialement,

Didier